Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Dim ds As New DataSet If DatabaseToUse() = BizObjs.DBType.Access Then 'Access Database Dim cFields As New cFieldTableNames cFields.ComboTable = msTblName SelectStr = cFields.ReturnComboString() Dim dc As New OleDb.OleDbConnection(ConnectionString) Dim da As New OleDb.OleDbDataAdapter(mSelectStr, dc) Try da.Fill(ds) dc.Close() cnt.DataSource = ds.Tables(0) cnt.DisplayMember = cFields.SendToCorrectFieldProcedure(3) cnt.ValueMember = cFields.SendToCorrectFieldProcedure(1) 'Returns the field Name of "StateID" Catch ex As Exception MessageBox.Show(ex.Message) Throw ex Finally dc.Close() da.Dispose() End Try End If
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.