i need a code for adodb which can link my form in vb to a table in ms access which contains
name and id as the fields.help please!! thanx
az_master
0
Newbie Poster
Recommended Answers
Jump to PostFunction GetRecord()
Dim ConnectionStr As String
Dim Uconnection As ADODB.Connection
Dim rs As ADODB.Recordset
ConnectionStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabasePath & "\databasefilename.mdb;Persist Security Info=False"
Set Uconnection = New Connection
Uconnection.ConnectionString = ConnectionStr
Uconnection.CommandTimeout = 120000
Uconnection.Open
Set rs = New Recordset
rs.CursorLocation = adUseClient
strQry="Select Name,Id from …
All 3 Replies
guest11
0
Junior Poster in Training
Function GetRecord()
Dim ConnectionStr As String
Dim Uconnection As ADODB.Connection
Dim rs As ADODB.Recordset
ConnectionStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabasePath & "\databasefilename.mdb;Persist Security Info=False"
Set Uconnection = New Connection
Uconnection.ConnectionString = ConnectionStr
Uconnection.CommandTimeout = 120000
Uconnection.Open
Set rs = New Recordset
rs.CursorLocation = adUseClient
strQry="Select Name,Id from tablename"
rs.Open strQry, Uconnection, adOpenDynamic, adLockOptimistic
strQry = ""
Set GetRecord = rs
End Function
cometburn
2
Junior Poster
this if your using a DE...
dim rs as new adodb.recordset
set rs = new adodb.recordset
if rs.state = 1 then rs.close
rs.open "SELECT NAME, ID FROM TABLE", DataEnvironment1.Connection1, adOpenDynamic, adLockOptimistic
Jx_Man
987
Nearly a Senior Poster
Featured Poster
see this thread :
http://www.daniweb.com/forums/thread110150.html
you can see an attachment by shouvik about adodb
Be a part of the DaniWeb community
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.