ODBC and SQL

[ufobaby]

hi below is the code
====================
Dim objRs As ADODB.Recordset
Dim objConn As ADODB.Connection

Set objConn = New ADODB.Connection
objConn.ConnectionString = "driver={SQL Server};" & _
"server=ufobaby99;uid=niraj;pwd=abc123;database=test_niraj"
objConn.Open
[red]
Set objRs = New ADODB.Recordset
[/red]
objRs.CursorType = adOpenKeyset
objRs.Open "tbl_login", objConn, , , adCmdTable
MsgBox "1"
objRs.MoveLast
objRs.AddNew
MsgBox "2"
objRs("cod_user&quot = "niraj0000"
objRs("txt_username&quot = "niraj"
objRs("txt_pwd&quot = "niraj"
objRs("category&quot = "admin"
objRs.Update

MsgBox "Updated", vbInformation
=================================
get the following error at the highlighted line
Err Number = -2147217887
Err Desc = ODBC driver does not support the requested properties.

am using SQL Server 2000 and Windows 2000 Adv Server with VB 6.0

pls help !!!!


Niraj

 

[genomon]

Where are you actually opening the recordset?

 

[roswald]

Your error is actually being generated when you try to open your recordset.
What is "tbl_login"?
You may need to remove the "". I can tell you more when I determine what the tbl_login object is.

B

 

[zemp]

The underscore in the table name may also be causing a problem. either qualify the table name with square brackets or rename it without the underscore.

objRs.Open "[tbl_login]", objConn, , , adCmdTable


Thanks and Good Luck!

zemp