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 dr As DataRow() Dim con As New OleDb.OleDbConnection Dim ds As New DataSet Dim da As New OleDb.OleDbDataAdapter Dim sql As String cpath = "P:\HH2003" con.ConnectionString = "Provider=PervasiveOLEDB;Data Source=" & cpath con.Open() sql = "SELECT * FROM Invoices ORDER BY DocumentNumber" da = New OleDb.OleDbDataAdapter(sql, con) da.Fill(ds, "Invoices") con.Close() dr = ds.Tables("Invoices").Select("DocumentNumber = " & (TempInv_no)) If Not (dr Is Nothing) AndAlso dr.Length > 0 Then MessageBox.Show("Found Invoice: " & dr(0)("DocumentNumber").ToString()) frmInvoicing.txtInvoice.SelectAll() frmInvoicing.txtInvoice.Focus() IsinPervasive = True
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.