ADO Error :( 2

[TudorSmith]

Hi All

I have the following code calling a recordset from an SQL DB. I'm getting an error telling me the Object Variable is not set...and it's late...and my head is spinning

Can anyone check my code and see what I'm missing on my oRS!

Set conn = New ADODB.Connection
strConnect = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=MIS_Finances;Data Source=SQL01"
    conn.ConnectionString = strConnect
    
strSQL = ""
strSQL = strSQL & "SELECT Email FROM BBRIS_SupplierNotify "
    strSQL = strSQL & "WHERE SupplierID = " & Me.SupplierID & " "
    strSQL = strSQL & "AND ContractID = " & Me.ContractID & " "
    strSQL = strSQL & "AND ResourceTypeID = " & Me.RTypeID
    If conn.State = 0 Then
        conn.Open
    End If

    [COLOR=green]'Error happens on next line[/color]
    oRs.Open strSQL, conn, adOpenDynamic, adLockOptimistic
       oRs("Email") = Me.txtEmail
    oRs.Update

Any clues would be greatly appreciated...cuase I've burnt out !

birklea ~©¿©~ <><
Dim objJedi as Jedi.Knight
Set objJedi[skyWalker].Aniken = FatherOf(useThe.Force(objJedi[skyWalker].luke))

 

[neilharris]

Looks like you are missing an

Set oRS = New ADODB.RecordSet

line before the oRS.Open line.

 

[NoCoolHandle]

IN red

Set conn = New ADODB.Connection
strConnect = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=MIS_Finances;Data Source=SQL01"
    conn.ConnectionString = strConnect
    
strSQL = ""
strSQL = strSQL & "SELECT Email FROM BBRIS_SupplierNotify "
    strSQL = strSQL & "WHERE SupplierID = " & Me.SupplierID & " "
    strSQL = strSQL & "AND ContractID = " & Me.ContractID & " "
    strSQL = strSQL & "AND ResourceTypeID = " & Me.RTypeID
    If conn.State = 0 Then
        conn.Open
    End If
[red]set oRs = server.createobject("Adodb.recordset")[/red]
    'Error happens on next line
    oRs.Open strSQL, conn, adOpenDynamic, adLockOptimistic
       oRs("Email") = Me.txtEmail
    oRs.Update

 

[NoCoolHandle]

Sorry I was thinking in ASP, use the new sytax or get rid of the server.

Rob

 

[TudorSmith]

thanks Guys

I thought it might be obviious!

works great now

birklea ~©¿©~ <><
Dim objJedi as Jedi.Knight
Set objJedi[skyWalker].Aniken = FatherOf(useThe.Force(objJedi[skyWalker].luke))