Beiträge von SirJonny

Guter Tipp. Mit Adobe Reader zeigt es diese Verschiebung an. Mit Firefox nicht.

Das ist ja verrückt. Bei mir sieht das ganze so aus:

Also bei mir laufen die beiden.

Hallo zusammen,

ich möchte mithilfe folgender UDF:

https://www.autoitscript.com/forum/topic/11…ur-application/

eine PDF-Datei erstellen. Dafür habe ich die Funktionen in mein Code eingebunden. Es funktioniert auch soweit außer, dass nach einem Umlaut immer mehrere Leerzeichen eingefügt werden. Der Umlaut wird aber richtig angezeigt. Dieses Verhalten ist unabhängig von der gewählten Schriftart.

Hat jemand von euch eine Idee?

Grüße

Ich habe jetzt den Code umgestellt auf:

_SQLite_SQLiteExe( $Path_Datenbank, "UPDATE Firma SET Personal = " & _SQLite_FastEscape($PersID) & " WHERE FirmenID = " & $FirID & ";", $Out, "sqlite3_301600100.exe")

Jetzt funktioniert es einwandfrei. Damit ist mein Fehler von vorher zwar nicht gefunden, aber das Problem umgangen. Ich betrachte das Problem somit als gelöst.

Danke euch beiden trotzdem.

Danke für eure schnellen Antworten am Sonntag morgen. Also ich habe mir den Code jetzt auch mal in ein extra Programm rausgezogen und die aktuelle .dll runtergeladen und da funktioniert es. In meinem kompletten Code habe ich diese Fehlermeldung aber immer noch. Ich suche mal weiter und gebe euch dann Rückmeldung.

Hallo Zusammen,

ich möchte in einer vorhandenen Datenbank eine Zelle in einer Tabelle ändern. Dafür verwende ich den UPDATE-Befehl. Wenn ich meinen Code wie unten angegeben durchlaufen lassen erhalte ich den SQLite Error Code: 21. Die passende Error Message lautet: Library used incorrectly.
Kann mir vielleicht jemand sagen, wo mein Fehler liegt?

Der Fehler muss mit dem UPDATE-Befehl zusammen hängen, wenn INSERT INTO führt er ordnungsgemäß aus. Den Code dafür habe ich nur eingefügt, damit der Kontext ein wenig klarer wird. Ob das nun notwendig ist um meinen Fehler zu finden weiß ich nicht.

Danke schon mal im vorraus!

Local $sSQLDLL = _SQLite_Startup()		;Laden der SQLite3.dll


If @error Then
	MsgBox($MB_SYSTEMMODAL, "SQLite Error", "SQLite3.dll konnte nicht gefunden werden!" & @CRLF & @CRLF & _
	"Bitte in einen der folgenden Ordner kopieren " & @SystemDir & ", " & @WindowsDir & ", " & @ScriptDir & ", " & @WorkingDir)
	Return
EndIf


Local $hDskDb = _SQLite_Open($Path_Datenbank)	;Öffnen der Baustellendatenbank


If @error Then
	MsgBox($MB_SYSTEMMODAL, "SQLite Error", "Fehler beim öffnen der Datenbank!")
	Exit -1
EndIf


Local $ReturnValue = _SQLite_Exec($hDskDb, "INSERT INTO Person (Vorname, Nachname, Adresse, PrivMobil, PrivFest, PrivFax, PrivMail, GeschMobil, GeschFest, GeschFax, GeschMail, Geburtsdatum, Firma) VALUES ('" & _
$Dat[1] & "', '" & $Dat[2] & "', '" & Number($Dat[3]) & "', '" & $Dat[9] & "', '" & $Dat[11] & "', '" & $Dat[13] & "', '" & $Dat[7] & "', '" & $Dat[10] & "', '" & $Dat[12] & _
"', '" & $Dat[14] & "', '" & $Dat[8] & "', '" & $Dat[16] & "', '" & $Dat[15] & "');") ; Fügt die Personaldaten der Datenbank hinzu


If $SQLITE_OK <> $ReturnValue Then
	MsgBox($MB_SYSTEMMODAL, "SQLite Error", "Error Code: " & _SQLite_ErrCode() & @CRLF & "Error Message: " & _SQLite_ErrMsg())
EndIf


Local $PersID = _SQLite_LastInsertRowID()


$ReturnValue = _SQLite_Exec(-1, "UPDATE Firma SET Personal = " & _SQLite_FastEscape($PersID) & " WHERE FirmenID = " & Number($FirID) & " ;")
If $SQLITE_OK <> $ReturnValue Then
	MsgBox($MB_SYSTEMMODAL, "SQLite Error", "Error Code: " & _SQLite_ErrCode() & @CRLF & "Error Message: " & _SQLite_ErrMsg())
EndIf

Danke Oscar, dass war genau der springende Punkt.

Wenn ich die Codezeile ändere und dem ini File einen String und keine variable übergebe funktioniert es einwandfrei.

Hallo zusammen,

ich komme bei folgendem Code nicht weiter

Es taucht die MessageBox "Einstellungen gespeichert!" auf, jedoch steht in der .ini dann "Fehler beim Lesen der Setup.ini!". Hat jemand eine Idee?

#include <MsgBoxConstants.au3>

Local $PowerPointPath = IniRead("Setups.ini", "path", "pp", "Fehler beim Lesen der Setup.ini!")

$PowerPointPath = FileOpenDialog("Datei auswählen", @ProgramFilesDir & "\", "All (*.exe*)")

SpeichernEinstellungen($PowerPointPath)

Func SpeichernEinstellungen($PPP)

Local $pp = IniWrite("Setups.ini", "path", "PP", $PPP)

If $pp = 1 Then
MsgBox ( $MB_ICONINFORMATION, "Speichern", "Einstellungen gespeichert!")
Else
MsgBox ( $MB_ICONERROR, "Error", "Speichern nicht erfolgreich!")
EndIf

EndFunc