md_vinodh

 Profile Answers by md_vinodh 

• May 30th, 2008

 

Dim objConn,objRecSet

Set objConn= CreateObject("ADODB.connection")

Set objRecSet = CreateObject("ADODB.recordset")

objConn.open " Server: , Database: , User Name , Password " ' connection string about ur Datanbase

objRecSet.open "Select * from Table Name "

Finally
objRecSet.close
objConn.close

surenhere07

 Profile Answers by surenhere07 

• Jun 18th, 2008

 

This is for Access DB

Set objDB = CreateObject("ADODB.Connection")
'Here, the DB is MS Access and DSN less connection
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:Sample.MDB" objDB.Open ConnectionString
'if you create DSN use as follows,
'objDB.ConnectionString = "<DNS Name>" in this case comment above- '
-ConnectionString  line

If objDB.state=1 Then
msgbox("Connection Is Establsihed")
else msgbox("Connection is not opened") 
End If
sql_query = "<Your SQl Query>"
Set objResults = CreateObject("ADODB.RecordSet")
Set objResults = objDB.Execute(sql_query )
Do Until objResults.EOF
msgbox objResults("<colname>")
msgbox objResults("colname")
objResults.MoveNext
Loop
objResults.Close
objDB.Close
Set objResults=Nothing
Set objDB = Nothing