Script läuft unter x64 nicht

29/12/2008 - 09:29 von Stefan Brand | Report spam
Hallo,

ich habe mir folgende Script geschrieben und in einer Access-Datenbank
bestimmte Datensàtze zu löschen:

Sub Testprogramm()
Dim objDB As New OleDb.OleDbConnection
Dim RecsAffected As Integer
Dim Cmd As New OleDb.OleDbCommand
Dim strAccessDatei = "C:\Accessdatenbank.mdb"
Dim txtUebergabeCN = "AktRechner"

'Try
objDB.ConnectionString = "Data Source= " & strAccessDatei & "; " &
"Provider = Microsoft.Jet.OLEDB.4.0;"
objDB.Open()

Dim strSQL As String = "DELETE [T-Softwareueberblick].Computername,
[T-Softwareueberblick].Software FROM [T-Softwareueberblick] WHERE
((([T-Softwareueberblick].Computername)='" & txtUebergabeCN & "'))"

With Cmd
.Connection = objDB
.CommandText = strSQL
.CommandType = CommandType.Text
RecsAffected = .ExecuteNonQuery
End With
objDB.Close()
'Catch ex As Exception

'End Try
objDB.Close()
End Sub

Mein Problem ist, dass das Script auf einem x86-WinXP-SP2-Rechner problemlos
làuft aber unter keinem x64-WinXP-Rechner.

Bei der Schrittverfolgung hàngt sich unter VB2005 das Script am Befehl
"objDB.Open()" auf. Mein Problem ist, dass ich auch keine Fehlermeldung
bekommen. Da auf dem Rechner auch Access installiert ist, glaube ich nicht,
dass es an der Datenbank liegt.

Wer kann helfen?
 

Lesen sie die antworten

#1 Karsten Heimer
29/12/2008 - 10:16 | Warnen spam
"Stefan Brand" schrieb im Newsbeitrag
news:
Hallo,

ich habe mir folgende Script geschrieben und in einer Access-Datenbank
bestimmte Datensàtze zu löschen:

Sub Testprogramm()
Dim objDB As New OleDb.OleDbConnection
Dim RecsAffected As Integer
Dim Cmd As New OleDb.OleDbCommand
Dim strAccessDatei = "C:\Accessdatenbank.mdb"
Dim txtUebergabeCN = "AktRechner"

'Try
objDB.ConnectionString = "Data Source= " & strAccessDatei & "; " &
"Provider = Microsoft.Jet.OLEDB.4.0;"
objDB.Open()




Soviel ich weiß, gibt es für 64-bit keinen Jet-Treiber mehr...

Gruß, Karsten.

Ähnliche fragen