Beiträge von gmmg

die Query sollte so aussehen wie im Beispiel aussehen...

Beispiel

; schleife durch Array, Werte erzeugen und übergeben


$sQuery = "INSERT INTO tabelle_xyz (`Feld1`,`Feld2`,`Feld3`,`Feld4`) VALUES ('" & $s_wert[1] & "', '" & $s_wert[2] & "', '" & $s_wert[3] & "', '" & $s_wert[4] & "')"

Zum testen auch einfach mal die Query über Consolewrite($query) ausgeben lassen und den String direkt im Access testen

gruß gmmg

die Access UDF brauchst du da nicht zwingend und es gibt hier im Forum auch schon paar Beiträge zum MS Access.

Hier mal ein einfacher Insert in eine Access accdb. (Datei im Anhang)

$dbname = "d:\test.accdb"


_access_write($dbname)


Func _access_write($dbname)


	$adoCon = ObjCreate("ADODB.Connection")
    $adoCon.Open("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & $dbname & ";")
	$adoRs = ObjCreate("ADODB.Recordset")




	;$adocon = ObjCreate("ADODB.Connection")
	;$adocon.open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $dbname)
	;$adors = ObjCreate("ADODB.Recordset")


	Local $sQuery = "INSERT INTO TB1 (`Name`,`Vorname`) VALUES ('Meier','Wolfgang')"
	;Local $sQuery = 'UPDATE TB1 SET [01_MA].SID = "' & $sid  & '" WHERE [01_MA].PC = "' & $ssamaccountname & '"'
	$adoCon.Execute($sQuery)
	$adoCon.Close


EndFunc

gruß gmmg

@bratwurstdealer

da brauchst du kein AccessOpen, das funktioniert so.

gruß gmmg

Hier mal paar Beispiele. jeweils in eine Funktion gepackt.

$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

gruß gmmg

Teste auf dem Client, auf dem das Autoit Script nicht läuft, ob du eine Verbindung über den MYSQL Administrator (neu Heißt das jetzt Workbench, brauchst du aber zum testen nicht) hinbekommst.

https://downloads.mysql.com/archives/administrator/ Version 1.1.9 ist die letzte für Windows

Falls das auch nicht klappt, prüfen ob das Antivirenprogramm/ Firewall auf dem Client etwas blockiert oder aber im Router der Hund begraben ist.
Alternativ kann man auch mit Wireshark den Netzwerkverkehr mitschneiden und schauen wo es klemmt. Erfordert aber etwas Kenntnis.

Auf deinem Handy hast du diese Dinge ja sicher nicht drauf oder? Von daher könnte es daran liegen.

Gruß gmmg

Ich benutze für solche Dinge die _MySQL_Real_Query aud der UDF.

Mit diesem kannst du das Insert, Select, Update abdecken.

Ein Beispiel für ein Update wäre zum Beispiel so.

$sQuery = "UPDATE Tabelle_Spieler SET `Punkte` = '110' WHERE `Spielername` = 'Max Mustermann' "

die Query dann am Besten mit Consorewrite ($sQuery) mal schreiben und schauen ob die Hochkommas, Leezeichen usw stimmen. Danach mal den String über phpadmin testen.

unten etwas komplexer

Local $sQuery = "UPDATE tab_vorgang SET " & _
					"`UMSATZ isoliert EUR` = '" & _MySQL_Real_Escape_String($MysqlConn,$s_Row_txt_t1[2]) & _
					"',`Aenderungsdatum` = '" & _MySQL_Real_Escape_String($MysqlConn,$s_Row_txt_t1[4]) & _
					"',`TourLST` = '" & _MySQL_Real_Escape_String($MysqlConn,$s_Row_txt_t1[5]) & _
					"',`RRKV Umsatz` = '" & _MySQL_Real_Escape_String($MysqlConn,$s_Row_txt_t1[6]) & _
					"',`REISE-DAT` = '" & _MySQL_Real_Escape_String($MysqlConn,$s_Row_txt_t1[7]) & _
					"',`Ag-Nr` = '" & _MySQL_Real_Escape_String($MysqlConn,$s_Row_txt_t1[8]) & _
					"',`WVLKZ` = '" & _MySQL_Real_Escape_String($MysqlConn,$s_Row_txt_t1[9]) & _
					"',`WVL-DAT` = '" & _MySQL_Real_Escape_String($MysqlConn,$s_Row_txt_t1[11]) & _
					"',`ULA_DAT` = '" & _MySQL_Real_Escape_String($MysqlConn,$s_Row_txt_t1[10]) & _
					"',`blankmarke` = '" & _MySQL_Real_Escape_String($MysqlConn,$s_Row_txt_t1[12]) & _
					"',`offen` = '" & _MySQL_Real_Escape_String($MysqlConn,$s_Row_txt_t1[13]) & _
					"' WHERE `Bu-Nr` = '" & _MySQL_Real_Escape_String($MysqlConn,$s_Row_txt_t1[1]) & "'"


_MySQL_Real_Query($MysqlConn, $sQuery)

Gruß gmmg

Da will ich mich auch mal einbringen, habe jetzt nicht alle Posts gelesen, aber hast du mal probiert mit den Tools für MySQL zum Beispiel MySQL Administrator, auf die DB zuzugreifen?

Wenn das nicht geht, schau doch mal in den Einstellungen in der mysql.ini ob TCP/IP connections erlaubt sind. (Habe leider nur ein Screenshot vom MySQL Administrator)
Wenn das aktiv ist und es geht trozdem nicht, liegt es bestimmt an der Netzwerk/Router Konfiguration (Portweiterleitung etc. )

Gruß gmmg

@Reiterfuchs

Ich hatte mich auch mal Tage mit der Zip herumgeärgert und habe dann 7zip genommen.
Ein großer Vorteil hier ist, du kannst auch andere gängige Formate entpacken und istalliert muss das Programm ja auch nicht sein, weil du die dll oder exe ja dem Script mitgeben kannst.

Gruß gmmg

Hallo,

ich glaube dazu gab es schonmal etwas im Forum.
Ich selbst benutze aber immer 7zip. Anbei mal ein Beispiel zum entpacken. Dazu lege ich dem Script die 7zip.exe oder dll mit Fileinstall bei.

DirCreate(@Scriptdir & "\TEMP\")
FileInstall("D:\Data\7z.exe", @Scriptdir & "\TEMP\7z.exe", 1)
;FileInstall("D:\Data\7z.dll", @Scriptdir & "\TEMP\7z.dll", 1)


$Quelle = "C:\Test.zip"
$Ziel = "C:\entpackt\"


;---------unpack-------
RunWait(@ComSpec & " /c " & @ScriptDir & "\TEMP\7z.exe x " & '"' & $Quelle & '"' & " -aoa -y -o" & '"' & $Ziel & '"')

Gruß gmmg

Du schreibst bei jedem Systemstart, da gibt es, falls du einen Server am laufen hast, auch die Möglichkeit der Gruppenrichtlinien oder auch Logonscripte.
gruß gmmg

Anbei nochmal ein Beispiel, wie man dann in eine andere Spalte schreibt.

#include <Array.au3>
#include <Excel.au3>


$path = "d:\excel_test..xls"


Local $oExcelapp = _Excel_Open(False)
Local $oExcel = _Excel_BookOpen($oExcelapp, $path)
Local $aArray = _Excel_RangeRead($oExcel,Default,Default)
_ArrayDisplay($aArray)


For $i = 0 to UBound($aArray) -1
	;MsgBox(0,"",$aArray[$i]) 
	_Excel_RangeWrite($oExcel, $oExcel.Activesheet, $aArray[$i], "B" & $i +1)  ; das +1, weil das scheiben ja in B1 beginnen soll, das Array aber mit 0 beginnt.


Next


_Excel_BookClose($oExcel, True)
_Excel_Close($oExcelapp, Default, True)

gruß gmmg

Hallo,

ja, das geht. Ich würde empfehlen, alle zeilen in ein array zu lesen und dieses dann abzuarbeiten.

Beispiel für ein komplettes auslesen des Excel Sheets.

#include <Array.au3>
#include <Excel.au3>


$path = "d:\Excel.xls"


Local $oExcelapp = _Excel_Open(False)
Local $oExcel = _Excel_BookOpen($oExcelapp, $path)
Local $aArray = _Excel_RangeRead($oExcel,Default,Default)
_Excel_BookClose($oExcel, True)
_Excel_Close($oExcelapp, Default, True)
_ArrayDisplay($aArray)


For $i = 0 to UBound($aArray) -1
	;MsgBox(0,"",$aArray[$i][2])  ; muss angepasst werden, in dem abschnitt kannst du auch die Übergabe realisieren, am besten man erstellt eine Funktion und ruft diese auf. wie folgt.
        _übergabe_an_anderes_Programm()
Next


Func _übergabe_an_anderes_Programm()
     ;hier den quelltext einfügen
Endfunc

Bei fragen einfach mal melden. Im Forum sollte es auch diverse Beispiele geben.

Gruß gmmg

Wie hast du denn den Quelltext ausgelesen?
Hast du mal im Firefox das Plugin Firebug benutzt oder im IE11 mit der F12 Taste?

Damit arbeite ich immer, wenn es um das auslesen geht und da siehst du ja dann genau, ob dahinter eine andere Scriptsprache steckt ..

_IELinkClickByText ($oIE, "Link_Text")

Gruß gmmg

Hallo,

hier ein Beispiel für das schreiben in eine Access mdb und das auslesen einer Access accdb über die Access.au3.
Willst du direkt auf eine MS SQL Zugreifen, kannst du dir die sql_udf.au3 ansehen.
Hier habe ich leider nur Beispiel zum lesen, falls du was benötigst.

Beispiele sollten auch hier oder im englischen Forum zu finden sein.

;--------- Modify the variables below as desired or applicable -------
local $dbname = @ScriptDir & "\Report.mdb"
$tblname = "Reporting"
$fldname = "Kennziffer"
$fldname1 = "code"
$fldname2 = "Woher"
$fldname2 = "Sonstiges"


_access_write($w1, $w2, $w3, $w4)


Func _access_write($w1, $w2, $w3, $w4)






    $FULL_MDB_FILE_NAME = $dbname
    ;$SQL_CODE = "select * from Reporting"
    $CONN = ObjCreate("ADODB.Connection")
    $CONN.Open('Driver={Microsoft Access Driver (*.mdb)};Dbq=' & $FULL_MDB_FILE_NAME & ';')
    $RecordSet = ObjCreate("ADODB.Recordset")






    Local $sQuery = "INSERT INTO Reporting (`Kennziffer`,`code`,`Woher`,`Sonstiges`)" & _
                    "VALUES ('" & $w1 & "',"& _     ;
                    "'" & $w2 & "'," & _            ;
                    "'" & $w3 & "'," & _            ;
                    "'" & $w4 &  "')"                 ;
    ;ConsoleWrite($sQuery)
    $CONN.Execute($sQuery)
    $CONN.Close






EndFunc


; Hier noch ein Beispiel für das ausklesen einer Access accdb...


;$datenbankpfad = @ScriptDir & "\Test.accdb"
$datenbankpfad = "d:\Test.accdb"
$tabellenname = "Tabellentest"
$Spalte0 = "ID"    ;nicht ID Spalte
$Spalte1 = "Stick"    ;nicht ID Spalte
$Spalte2 = "Box"        ;nicht ID Spalte


$query = "SELECT * FROM " & $tabellenname & " WHERE Box = '12' AND Stick = '3'"
$strData1 = _ReadOneFld($query, $datenbankpfad,$Spalte0)


ConsoleWrite($query& @CRLF &$strData1)
MsgBox(0,"",$query & @CRLF & "Ergebnis: " & $strData1)


Func _ReadOneFld($_sql, $_datenbankpfad, $_field)
    Dim $_output
    $adoCon = ObjCreate("ADODB.Connection")
    $adoCon.Open("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & $datenbankpfad & ";")
    $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


;---------------------- schreiben in eine Access accdb --------


$s_db_pwd = "12345678"


_access_write()


Func _access_write()


	$s_dbname = "D:\TestDB.accdb"
	$datenbankpfad = $s_dbname


	$s_data01 = @username
	$s_data02 = @ComputerName






	$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


	Local $sQuery = "INSERT INTO TB1 (`feld1`,`feld2`)" & _
					"VALUES ('" & $s_data01 & "',"& _ 	;User
					"'" & $s_data02  & "')" 			;PC


	$adoCon.Execute($sQuery)
	$adoCon.Close


EndFunc


;-------- update auf eine access accdb ----------
_access_write_update()


Func _access_write_update()


	$dbname = "D:\Data\scripte\MS_AccessCom\access_01\db_test.accdb"
	$tblname = "epayslip"
	$s_data07 = _Now()


	$FULL_MDB_FILE_NAME = $dbname
	;$SQL_CODE = "select * from epayslip"
	$CONN = ObjCreate("ADODB.Connection")
	;$CONN.Open('Driver={Microsoft Access Driver (*.mdb)};Dbq=' & $FULL_MDB_FILE_NAME & ';')
	$CONN.Open("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & $FULL_MDB_FILE_NAME & ";")
	$RecordSet = ObjCreate("ADODB.Recordset")


	;Local $sQuery = "UPDATE " & $tblname & " SET check = 1, date = " & $s_data07 & " WHERE user = " & "'" & @UserName & "'"
	Local $sQuery = "UPDATE " & $tblname & " SET " & $tblname & ".[check] = 1, " & $tblname & ".[date] = '" & $s_data07 & "' WHERE " & $tblname & ".[user] = " & "'" & @UserName & "'"
	;ConsoleWrite($sQuery)
	$CONN.Execute($sQuery)
	$CONN.Close


EndFunc

gruß gmmg

schau mal hier, ob da was passendes zu finden ist

http://support.dameware.com/kb/article.aspx?ID=400113
http://forums.dameware.com/viewtopic.php?f=8&t=59

Complete the following procedures according to your deployment scenario.
To install DRS or MRC using the MSI installer and a valid license:
Use the following command at the command line or in an installer script. Replace the variables in this example according to the values in the Arguments section.
msiexec /i fileName.msi /qn APPDIR="C:\Program Files\DameWare programName\" reboot=reallysuppress SILENT=yes INSTALLSTANDALONE=1 SA_KEY=licenseKey SA_EMAIL=emailAddress SA_FIRST_NAME=firstName SA_LAST_NAME=lastNema /l*+ %temp%\install.log
To install DRS or MRC using the EXE installer and a valid license:
Use the following command at the command line or in an installer script. Replace the variables in this example according to the values in the Arguments section.
fileName.exe /args "/qn APPDIR=\"C:\Program Files\DameWare programName\" reboot=reallysuppress SILENT=yes INSTALLSTANDALONE=1 SA_KEY=licenseKey SA_EMAIL=emailAddress SA_FIRST_NAME=firstName SA_LAST_NAME=lastName /L*V %temp%\Install.log"
To install DRS or MRC using the MSI installer in evaluation mode:
Use the following command at the command line or in an installer script. Replace the variables in this example according to the values in the Arguments section.
msiexec /i fileName.msi /qn APPDIR="C:\Program Files\DameWare programName\" reboot=reallysuppress SILENT=yes INSTALLSTANDALONE=1 /L*V %temp%\Install.log
To install DRS or MRC using the EXE installer in evaluation mode:
Use the following command at the command line or in an installer script. Replace the variables in this example according to the values in the Arguments section.
fileName.exe /args "/qn APPDIR=\"C:\Program Files\DameWare programName\" reboot=reallysuppress SILENT=yes INSTALLSTANDALONE=1 /L*V %temp%\Install.log"
To install DRS or MRC using the MSI installer in centralized mode:
Use the following command at the command line or in an installer script. Replace the variables in this example according to the values in the Arguments section.
msiexec /i fileName.msi /qn APPDIR="C:\Program Files\DameWare programName\" reboot=reallysuppress SILENT=yes INSTALLSTANDALONE=0 CENTRALSERVERHOSTNAME=CentralServerHostName CENTRALSERVERPORT=portNumber CSUSER=userName CSPASSWORD=userPassword /L*V %temp%\Install.log
To install DRS or MRC using the EXE installer in centralized mode:
Use the following command at the command line or in an installer script. Replace the variables in this example according to the values in the Arguments section.
fileName.exe /args "/qn APPDIR=\"C:\Program Files\DameWare programName\" reboot=reallysuppress SILENT=yes INSTALLSTANDALONE=0 CENTRALSERVERHOSTNAME=CentralServerHostName CENTRALSERVERPORT=portNumber CSUSER=userName /L*V %temp%\Install.log"

Arguments
The following define the arguments used in the commands in this article.

• /args "argumentsHere" (EXE only) instructs the EXE installer to pass the arguments inside the quotation marks along to the MSI installer.
• /L*V C:\Install.logargument will ensure that along installation will be created Install.log file.
• APPDIR="C:\Program Files\DameWare programName\" specifies the installation directory. Enter Remote Support or Mini Remote Control in place of programName to use the default installation directory.
• SILENT=yes instructs the installer to install the program silently.
• SA_KEY=licenseKey (licensed only) contains the license key for licensed installations. Enter a valid license key in place of licenseKey.
• SA_EMAIL=emailAddress (licensed only) contains the administrator's email address for licensed installations. Enter a valid email address in place of emailAddress.
• SA_FIRST_NAME=firstName (licensed - optional) contains the administrator's first name. Enter the first nargument will ensure that along installation will be created Install.log fileame in place of firstName.
• SA_LAST_NAME=lastName (licensed - optional) contains the administrator's last name. Enter the last name in place of lastName.
• SA_PHONE_NUMBER=phoneNumber (licensed - optional) contains the administrator's phone number. Enter a valid phone number in place of phoneNumber.
• SA_PROXY_ADDRESS=proxyAddress (licensed - optional) contains the address of the proxy server the program should use to connect to the SolarWinds licensing server. If applicable, enter the proxy server's IP address or hostname in place of proxyAddress.
• SA_PROXY_PORT=proxyPort (licensed - optional) contains the port the program should use to connect to the proxy server. If applicable, enter the proxy port number in place of proxyPort.
• INSTALLSTANDALONE=1 (centralized) installs the standalone version. Use 0 to install the centralized version.
• CENTRALSERVERHOSTNAME=centralServerHostName (centralized) contains the 's host name.
• CENTRALSERVERPORT=portNumber (centralized) contains the port number to the . By default, this is 6133.
• CSUSER=centralServerUser (centralized) contains the login name of a Central Server user.
• CSPASSWORD=centralServerUserPassword (centralized) contain the password of the Central Server user.

The following arguments are included in version 10.0:

gruß gmmg

hallo,

am besten du benutzt das MSI paket von Dameware ...Wir benutzen noch die DNTU7x.msi (msiexec /i "Pfad zur msi\DNTU7x.msi" /qn /norestart)
Wenn du nur die Exe hast, probiere mal in der CMD Dameware.exe /? und schau ob da die Parameter angezeigt werden.

Beispiel ungetestet ...
RunAs($ADMINUSER, $DOMAIN, $ADMINPASS, 0, @comspec & " /c " & "msiexec /i c:\temp\DNTU7x.msi /qn /norestart")

Gruß gmmg

Autoit ist dafür wunderbar geeignet.

x0r: wenn du das schon in der Form in deiner Firma gemacht hast, wäre das hier ja was für dich.

Wie groß sind die Anhänge der eMail?
Es gibt ja oft die 10 MB Beschränkung. Da sollte man aufpassen, vorallem, wenn man dann zu externen Kudnen versendet.
Hier weiß man ja nicht, ob es da Beschränkungen gibt.

Hier müsste man zuerst ein Ablauf definieren ...

-Wann sollen die Daten versendet werden -> Wenn z.B. Mitarbeiter XY das Programm öffnet
-Der Mitarbeiter XY muss ja dann den Kunden und Monat für das Zip + Versand auswählen
-Passwortschutz in der ZIP Datei

Beim Versand über Outlook -> das Programm muss auf dem PC vorhanden und funktionsfähig sein.

Es gibt hier bestimmt noch andere Dinge zu beachten an die man denken sollte.

Klingt interessant
Muss der Versand aus Outlook erfolgen oder kann man auch direkt über SMTP (über den Email Server) versenden?
Mit Autoit kann man das realisieren.

Ich selbst habe darüber z.b. ein IT-Helpdesktool und den Reporting Versand in der Firma realisiert.
In welcher Datenform liegen denn hier die Kundendaten vor. Für den automatisierten Versand benötigt man ja die Email Kontakdaten.

Ein löschen der Zip Datei würde ich persönlich nicht gleich durchführen, sondern diese lieber in einen Unterordner "erledigt" verschieben. Falls es mal probleme mit dem Versand gibt, will man ja eventuell die Datei Händisch nochmal rausschicken.

Gruß gmmg

Danke

bitte ... kannst im ersten Post noch auf gelöst setzen ..

Grüße zurück ...
gmmg