M
Moskvichev Nikolay
Hello,
WindowsXP SP2
Code snippet below works perfectly in Serbian Latin or Serbian Cyrillic
locales, but in Serbian (Bosnia and Herzegovina) both Latin and Cyrillic
locales it gives "The Microsoft Jet ... could not find the object 'Name'"
code 80040E37.
Field name don't matter, error raised on
oRecordset.Open sSQL, oConnection, adOpenStatic, adLockOptimistic
Really this is problem in my application, where Jet used as backend, and
i can remember at least one more locale causes same error. I can create
new database, create table, get metadata, but can't execute query.
Can some one explain this for me please ?
Const adOpenStatic = 3
Const adLockOptimistic = 3
Dim oConnection
Dim oRecordset
Dim sMsg
Dim sConnectString
Dim sSQL
Const Jet10 = 1
Const Jet11 = 2
Const Jet20 = 3
Const Jet3x = 4
Const Jet4x = 5
Sub CreateNewMDB(FileName, Format)
Dim Catalog
Set Catalog = CreateObject("ADOX.Catalog")
Catalog.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Jet OLEDB:Engine Type=" & Format & _
";Data Source=" & FileName
End Sub
CreateNewMDB "a2000.mdb", Jet4x
sConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=a2000.mdb;Persist Security Info=False;"
Set oConnection = CreateObject("ADODB.Connection")
oConnection.Open sConnectString
oConnection.Execute "Create Table Persons (Name char(50))"
Set oRecordset = CreateObject("ADODB.Recordset")
sSQL = "SELECT * FROM Persons"
oRecordset.Open sSQL, oConnection, adOpenStatic, adLockOptimistic
oRecordset.Close
Set oRecordset = Nothing
oConnection.Close
Set oConnection = Nothing
WindowsXP SP2
Code snippet below works perfectly in Serbian Latin or Serbian Cyrillic
locales, but in Serbian (Bosnia and Herzegovina) both Latin and Cyrillic
locales it gives "The Microsoft Jet ... could not find the object 'Name'"
code 80040E37.
Field name don't matter, error raised on
oRecordset.Open sSQL, oConnection, adOpenStatic, adLockOptimistic
Really this is problem in my application, where Jet used as backend, and
i can remember at least one more locale causes same error. I can create
new database, create table, get metadata, but can't execute query.
Can some one explain this for me please ?
Const adOpenStatic = 3
Const adLockOptimistic = 3
Dim oConnection
Dim oRecordset
Dim sMsg
Dim sConnectString
Dim sSQL
Const Jet10 = 1
Const Jet11 = 2
Const Jet20 = 3
Const Jet3x = 4
Const Jet4x = 5
Sub CreateNewMDB(FileName, Format)
Dim Catalog
Set Catalog = CreateObject("ADOX.Catalog")
Catalog.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Jet OLEDB:Engine Type=" & Format & _
";Data Source=" & FileName
End Sub
CreateNewMDB "a2000.mdb", Jet4x
sConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=a2000.mdb;Persist Security Info=False;"
Set oConnection = CreateObject("ADODB.Connection")
oConnection.Open sConnectString
oConnection.Execute "Create Table Persons (Name char(50))"
Set oRecordset = CreateObject("ADODB.Recordset")
sSQL = "SELECT * FROM Persons"
oRecordset.Open sSQL, oConnection, adOpenStatic, adLockOptimistic
oRecordset.Close
Set oRecordset = Nothing
oConnection.Close
Set oConnection = Nothing