Hi All
I have adapted a connection string i used alot in vb6 to what, after much research i think it should look like now. I added some code to a button, i dont get any errors and no result in the textbox, please any pointers in the righ direction will be much appreciated.
Thats from modMain.Code:Imports System.Data
Module modMain
Public MyConn As New OleDb.OleDbConnection()
Public Da As OleDb.OleDbDataAdapter
Public rs As New DataTable
Public us As New DataSet
Public Query As String
Public Sub ActiveReadServer(ByVal Query As String)
MyConn = New OleDb.OleDbConnection()
Da = New OleDb.OleDbDataAdapter(Query, MyConn)
rs = New DataTable
MyConn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Test App\data.accdb;Jet OLEDB:Database Password=hello;"
MyConn.Open()
'rs.open(Query, MyConn, adOpenStatic, adLockReadOnly)
End Sub
Public Sub ActiveUpdateServer(ByVal Query As String)
MyConn = New OleDb.OleDbConnection()
Da = New OleDb.OleDbDataAdapter(Query, MyConn)
us = New DataSet
MyConn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Test App\data.accdb;Jet OLEDB:Database Password=hello;"
MyConn.Open()
'us.Open(Query, MyConn, , adLockBatchOptimistic)
End Sub
End Module
Many Thanks in advanceCode:Private Sub cmdGet_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGet.ClickEvent
ActiveUpdateServer("SELECT First_Name FROM Customers")
txtName.Text = us.Tables("Customers").Rows(0).Item("First_Name")
End Sub
AJ

