Article ID: 198858
Article Last Modified on 10/15/2002
cn.Execute "CREATE TABLE mixed(""Col1"" varchar(20))"
rs.rdoColumns(0).SourceColumn = """Col1"""
Dim cn As New rdoConnection
Dim rs As rdoResultset
Dim q As rdoQuery
Dim strConnect As String
strConnect = "dsn=orac;UID=pss;PWD=pss"
cn.Connect = strConnect
cn.CursorDriver = rdUseClientBatch
cn.EstablishConnection
'uncomment below line after mixed table created
' cn.Execute "DROP TABLE mixed"
cn.Execute "CREATE TABLE mixed(""Col1"" varchar(20))"
Set q = cn.CreateQuery("bob", "SELECT * FROM mixed")
Set rs = q.OpenResultset(rdOpenKeyset, rdConcurLock)
'rs.rdoColumns(0).SourceColumn = """Col1"""
rs.AddNew
rs(0) = "alfka"
rs.Update
rs.BatchUpdate
rs.Requery
Debug.Print rs(0).Value
Result: You will receive the "Invalid Column name" error.
If you uncomment the SourceColumn line, the code will work.
Keywords: kbbug kboracle kbrdo kbpending KB198858