General Development Discussions

i have this code to connetion my VBA script to my database. but i got the error 424 which is that error "424 object required"


Private Sub RSWVBAPage_afterPlay()

Dim strConnection, conn, rs
Dim strSQL As String
Set strConnection = New Connection
Set conn = New ADODB.Connection
Set rs = New recordset

strConnection = "Provider=OraOLEDB.oracle;Data Source=192.168.1.234:1521:xe;User Id=viola-0.5.0;Password=123456;"
'strConnection = "Driver=(OraOLEDB.oracle);dbq=192.168.1.234:8080/XE;Uid=viola-0.5.0;Pwd=123456;"

Set conn.strConnection = Server.CreateObject("ADODB.Connection")
conn.open strConnection

Set rs = Server.CreateObject("ADODB.recordset")
strSQL = "SELECT * FROM AIRLINES"
rs.open strSQL, conn, 3, 3

rs.MoveFirst
While Not rs.EOF
RSWApp.WriteToLog rs("ID"), rs("CODE"), rs("NAME")
rs.MoveNext
Wend
rs.Close
conn.Close
Set conn = Nothing
Set rs = Nothing
End Sub

null