Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
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 dc As New OleDb.OleDbConnection(ConnectionString) Dim cmd As New OleDb.OleDbCommand("Select * from Company", dc) Try dc.Open() Dim dr As OleDbDataReader = cmd.ExecuteReader() If dr.HasRows Then CompanyID = dr("CompanyID") CompanyName = dr("CompanyName") Add1 = dr("Address1") Add2 = dr("Address2") City = dr("CityName") StateID = dr("StateID") Postal = dr("Postal") CntryID = dr("CntryID") DefaultStateID = dr("DefaultStateID") DefaultCntryID = dr("DefaultCntryID") End If dr.Close() Catch ex As Exception MessageBox.Show(ex.Message) Throw ex Finally dc.Close() End Try End If
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Visual Studio hangs on running project||6||85|
|VB.NET Application Installation with sqlserver||8||69|
|vb.net datagrid point||4||35|
|SQL Query returned to my Application not sorted data regardless Order By.||3||24|
Join the community of 500,000 technology professionals and ask your questions.