Trying to monitor database validating with vba

Question

Hi,
i am going to try use sql query to check that data was saved in my database. and if that data not saved some message give me warning error.
thanks.

Answer 1

Hi Diana85,
Below is an example of how to connect to a database via VBA. This example is written in the RSWVBAPage_afterPlay event which is executed after a page has completed it's playback. The code connects to a northwind database and writes the employee first name, last name and title to the e-Tester results log.
Private Sub RSWVBAPage_afterPlay()
'This sub references Microsoft ADO 2.5 components. Select Tools-->References to enable the library
Dim conn As Connection
Dim rs As recordset
Set conn = New Connection
'Create a new connection to the database
'ODBC DSN is NorthwindSQLServer. This is the Northwind database running on SQL Server
'UserName is sa
'Password is Empirix3
conn.Open "DSN=NorthwindSQLServer", "sa", "Empirix3"
'Perform an SQL query and return the results to a recordset
Set rs = conn.execute("Select FirstName, LastName, Title from Employees")
'Loop the recordset to display FirstName, LastName and Title (actual database field names)
Do Until rs.EOF
RSWApp.WriteToLog rs("FirstName"), rs("LastName"), rs("Title")
rs.MoveNext
Loop
rs.Close
conn.Close
Set conn = Nothing
Set rs = Nothing
End Sub
I hope it helps....