Access - Problem mit OpenFile

bratwurstdealer

Hallo zusammen,

ich habe mir von von hier:
https://www.autoitscript.com/forum/topic/140277-ms-access-udf/

eine Access.au3 geholt.
Ihr findet die .au3 auch noch einmal im Anhang.

Leider funktioniert nichtmal die erste Funktion AccessOpen.

Ich habe mir die Zeilen aus einem Beispielskript besorgt;

AutoIt

Local $o_DataBase = _AccessOpen(@ScriptDir & "\Test.mdb")
If $o_DataBase = 0 Then
	MsgBox(0, "Information", "Database file is not found :-" & @CR & @ScriptDir & "\Test.mdb")
Else
	MsgBox(0, "Information", "Database file was opened :-" & @CR & @ScriptDir & "\Test.mdb")
EndIf
_AccessClose($o_DataBase)

Ich bekomme dann folgende Fehlermeldung:
--> Access.au3 Error from function _AccessOpen (Access Object Creation Failed)
Die Meldung kommt aus der Methode, letzter If Block:

AutoIt

If Not IsObj($o_object) Then
			__AccessErrorNotify("Error", "_AccessOpen", "", "Access Object Creation Failed")
			Return SetError($_AccessStatus_GeneralError, 0, 0)
		EndIf

Mein Testaccess hat den Dateityp mdb und liegt auf dem angegebenen Pfad.

Mit einer accdb habe ich es auch versucht - gleiches Ergebnis.

Die Funktion FileExist sagt mir auch, dass das File Existiert. Nur das AccessOpen funktioniert eben nicht.
Ich benutze die SciTe Version 3.6.0

Kann mir jemand weiterhelfen?

Danke und Grüße an alle

Alex

**water**

Hast Du Microsoft Access installiert auf dem PC?
Volle Version oder nur die Trial-variante?
War mal die Trial-Variante drauf auf dem PC?

gmmg

Hier mal paar Beispiele. jeweils in eine Funktion gepackt.

AutoIt

$dbname = "\\server\test.mdb"


Func _access_write($dbname, $ssamaccountname, $sid)
	;$adoCon = ObjCreate("ADODB.Connection")
    ;$adoCon.Open("Provider=Microsoft.ACE.OLEDB.12.0; Jet OLEDB:Database Password=" & $s_db_pwd & "; Data Source=" & $datenbankpfad & ";")
	;$adoRs = ObjCreate("ADODB.Recordset")
    ;$adoRs.CursorType = 1
    ;$adoRs.LockType = 3
	$adocon = ObjCreate("ADODB.Connection")
	$adocon.open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $dbname)
	$adors = ObjCreate("ADODB.Recordset")
	;Local $sQuery = "INSERT INTO 01_MA (`SID`) VALUES ("'" & $sid  & "')"
	Local $sQuery = 'UPDATE 01_MA SET [01_MA].SID = "' & $sid  & '" WHERE [01_MA].PC = "' & $ssamaccountname & '"'
	$adoCon.Execute($sQuery)
	$adoCon.Close
EndFunc
Func _user()
	$tblname = "01_MA"
	$fldname01 = "PC"
	;	$query = "SELECT * FROM " & $tblname & " WHERE AS400 = " & "'" & $ssamaccountname & "'"
	;	$query = 'SELECT 01_MA.SID FROM 01_MA WHERE 01_MA.PC <> " " AND 01_MA.Ausgeschieden="False"'
	$query = 'SELECT PC FROM 01_MA WHERE PC <> " " And Ausgeschieden = False And SID is Null'
	$strdata = _readonefld($query, $dbname, $fldname01)
EndFunc
Func _readonefld($_sql, $_dbname, $_field)
	Dim $_output
	$adocon = ObjCreate("ADODB.Connection")
	$adocon.open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $_dbname)
	$adors = ObjCreate("ADODB.Recordset")
	$adors.cursortype = 1
	$adors.locktype = 3
	$adors.open($_sql, $adocon)
	With $adors
		If .recordcount Then
			While NOT .eof
				$_output = $_output & .fields($_field).value & "|"
				.movenext
			WEnd
		EndIf
	EndWith
	$adocon.close
	Return $_output
EndFunc

Alles anzeigen

gruß gmmg

bratwurstdealer

Danke für die Beispiele. Aber bevor ich irgendetwas machen kann, muss ja die AccessOpen Funktion funktionieren.

water:
Ich habe MS Access 2010 als Vollversion auf meinem Rechner. Es war noch nie eine Trial Version Installiert, von Anfang an Vollversion.

**water**

Kannst Du Dein Script mal von SciTE aus starten und dann die Ausgabe der SciTE Konsole hier posten?

gmmg

@bratwurstdealer

da brauchst du kein AccessOpen, das funktioniert so.

gruß gmmg

**water**

gmmg will sagen, dass sein Beispiel ohne die UDF auskommt. Dadurch fehlt aber auch die Fehlerbehandlung.
Ich vermute mal, dass bei der UDF eine nicht existierende Klasse angesprochen wird.
Kannst Du bitte mal das folgende Script laufen lassen und das Ergebnis hier posten?

Code

Local $oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")
$o_object = ObjCreate("DAO.DBEngine.36")
ConsoleWrite(@error & @CRLF)


; User's COM error function. Will be called if COM error occurs
Func _ErrFunc($oError)
    ConsoleWrite(@ScriptName & " (" & $oError.scriptline & ") : ==> COM Error intercepted !" & @CRLF & _
            @TAB & "err.number is: " & @TAB & @TAB & "0x" & Hex($oError.number) & @CRLF & _
            @TAB & "err.windescription:" & @TAB & $oError.windescription & @CRLF & _
            @TAB & "err.description is: " & @TAB & $oError.description & @CRLF & _
            @TAB & "err.source is: " & @TAB & @TAB & $oError.source & @CRLF & _
            @TAB & "err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
            @TAB & "err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
            @TAB & "err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
            @TAB & "err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
            @TAB & "err.retcode is: " & @TAB & "0x" & Hex($oError.retcode) & @CRLF & @CRLF)
EndFunc   ;==>_ErrFunc

Alles anzeigen