Serbian (Bosnia and Herzegovina)

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.

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
.

Relevant Pages

  • Serbian (Bosnia and Herzegovina)
    ... Code snippet below works perfectly in Serbian Latin or Serbian Cyrillic locales, but in Serbian both Latin and Cyrillic locales it gives "The Microsoft Jet ... ... Const adLockOptimistic = 3 ... Dim oConnection ... Set oConnection = CreateObject ...
    (microsoft.public.vb.database.ado)
  • Re: IE sequencing and cookie notification popups
    ... ' 10Apr04: accept cookies from hotmail. ... Dim SetWindowLong ' as object ... Const sDlgCaption = " Kookie Kruncher, ... ' notifications associated with that type of control. ...
    (microsoft.public.scripting.vbscript)
  • Re: Using VBS Arrays As Data Ranges In Excel
    ... SaveAsGif and also the Trendline I added. ... Const ForReading = 1 ... Dim objExcelApp ' Excel application object ... 'Order - Optional Variant. ...
    (microsoft.public.scripting.vbscript)
  • Re: Using VBS Arrays As Data Ranges In Excel
    ... SaveAsGif and also the Trendline I added. ... Dim objFSO, objShell ... Const ForReading = 1 ... 'Order - Optional Variant. ...
    (microsoft.public.scripting.vbscript)
  • RE: VBA help w/ look & fill in data
    ... Const OP = 0 ... Dim R1300M100 ... RowCount = RowCount + 1 ... problem is there are multiple rows on Sheet 1 with the same model number. ...
    (microsoft.public.excel.programming)