connection between Table and forms! 1

[Koaz]

How could i do a connection between the form and table, using DSN-less?
I had try something like this:

Sub DB_Connect()
Dim DataConn
Set DataConn = server.CreateObject("ADODB.Connection&quot
Dim db
db = "C:\Documents and Settings\HoRiZoN\Desktop\Eleave_convert.mdb"
DataConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & db
DataConn.Open
End Sub

But it dun seem to work! Also, i will like to do an inserting of a row to the table, wat wil the coding be like?

 

[DougP]

try this

Dim Conn2 As ADODB.Connection
Dim Rs1 As ADODB.Recordset

Dim SQLCode As String

Set Conn2 = New ADODB.Connection
Set Rs1 = New ADODB.Recordset

Conn2.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = \\Compaqserver\apps\STOCK CODE LOOKUP.mdb"

SQLCode = "SELECT * FROM [yourTable] WHERE xxxx ....;"
Rs1.Open SQLCode, Conn2, adOpenStatic, adLockOptimistic
DougP, MCP

 

[DougP]

BTW did you check the ADO box in VBA editor

Click "Tools" menu then "References" then look for Microsoft ADO 2.x ...
put a check in the box on the left and click OK DougP, MCP

 

[Koaz]

Oh!! Yes, i manage to debug the error.. thank for ur advise...

 

[Koaz]

Erm.. But how do i execute my sql statement, if i wanted to insert data to table, instead of selecting from the table?