Dim objConnection
'Set Adodb Connection Object
Set objConnection = CreateObject("ADODB.Connection")
Dim objRecordSet
'Create RecordSet Object
Set objRecordSet = CreateObject("ADODB.Recordset")
Dim DBQuery 'Query to be Executed
DBQuery = "Query to be Executed"
'Connecting using SQL OLEDB Driver
objConnection.Open "Provider=sqloledb.1;Server=.\SQLEXPRESS;User Id=sa;Password=Password123;Database=Trial"
'Execute the Query
objRecordSet.Open DBQuery,objConnection
'Return the Result Set
If (not objRecordSet.EOF) then
For i = 0 To ObjRecordSet.Fields.Count - 1
Value = objRecordSet.fields(i)
'Value = objRecordSet.fields.item(i)
msgbox Value
Next
End If
' Release the Resources
objRecordSet.Close
objConnection.Close
Set objConnection = Nothing
Set objRecordSet = Nothing
Follow @TestingQ
'Set Adodb Connection Object
Set objConnection = CreateObject("ADODB.Connection")
Dim objRecordSet
'Create RecordSet Object
Set objRecordSet = CreateObject("ADODB.Recordset")
Dim DBQuery 'Query to be Executed
DBQuery = "Query to be Executed"
'Connecting using SQL OLEDB Driver
objConnection.Open "Provider=sqloledb.1;Server=.\SQLEXPRESS;User Id=sa;Password=Password123;Database=Trial"
'Execute the Query
objRecordSet.Open DBQuery,objConnection
'Return the Result Set
If (not objRecordSet.EOF) then
For i = 0 To ObjRecordSet.Fields.Count - 1
Value = objRecordSet.fields(i)
'Value = objRecordSet.fields.item(i)
msgbox Value
Next
End If
' Release the Resources
objRecordSet.Close
objConnection.Close
Set objConnection = Nothing
Set objRecordSet = Nothing