Daten in eine SQL Datenbank wegschreiben (GUI)

caran

Guten Morgen zusammen,

ich bin in der Programmierung neu und habe ein Script erstellt. Dieses Script hat 3 Fragen bzw. 3 InputBoxen, die Antworten möchte per "Speichern" Button
ich eine Access Datenbank wegschreiben, wie funktioniert das genau?

Quellcode:

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <SQLite.au3>

#Region ### START Koda GUI section ### Form=c:\users\*\documents\autoit\erstegui.kxf
$Erste = GUICreate("Erste", 525, 336, 193, 149)
GUISetBkColor(0xFFFFFF)
$Label1 = GUICtrlCreateLabel("Mein erstes Programm", 16, 16, 207, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Reference Sans Serif")
Global $IO1 = GUICtrlCreateInput("", 24, 72, 129, 21)
Global $IO2 = GUICtrlCreateInput("", 24, 128, 129, 21)
Global $IO3 = GUICtrlCreateInput("", 24, 184, 129, 21)
$Radio1 = GUICtrlCreateRadio("Vorkenntnisse vorhanden", 200, 72, 161, 17)
$Radio2 = GUICtrlCreateRadio("Bist du bereit auch Sonntags zu Arbeiten (24/7)", 200, 128, 300, 17)
$Radio3 = GUICtrlCreateRadio("Wärst du einverstanden, wenn wir dich ausspionieren?", 200, 184, 300, 17)
$Exit = GUICtrlCreateButton("Exit", 16, 264, 75, 25)
$Button2 = GUICtrlCreateButton("Speichern", 112, 264, 107, 25)
$Label2 = GUICtrlCreateLabel("Wie heitßt du?", 24, 48, 73, 17)
$Label3 = GUICtrlCreateLabel("Interessierst du dich für Technik?", 24, 104, 161, 17)
$Label4 = GUICtrlCreateLabel("Trage deine sonstigen Interessen ein:", 24, 160,2000, 17)
$Label5 = GUICtrlCreateLabel("Welche Interessen oder Ziele hast du?", 200, 48, 187, 17)
GUICtrlCreateCombo("Wähle aus!", 200, 224, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1,"mit Abschluss|ohne Abschluss|evt. Vorkenntnisse")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Exit
Exit
Case $Button2
Local $oRS
Local $oConn
$oConn = ObjCreate("ADODB.Connection")
$oRS = ObjCreate("ADODB.Recordset")
$oConn.Open("Driver={Microsoft Access Driver (*.mdb, *.accdb)};Dbq=C:\Users\*\Documents\AutoIT\First Steps\SafeMe.accdb")
$oRS.Open("INSERT INTO SafeMeMI (Name, Interessen, Sonstiges) VALUES (" & GUICtrlRead($IO1) & "," & GUICtrlRead($IO2) & "," & GUICtrlRead($IO3) &")", $oConn, 1, 3)
;MsgBox(0,"Test",GUICtrlRead($IO1))
EndSwitch
WEnd

**chip**

Was willst du denn nun genau? Im Titel schreibst von einen SQL Datenbank und im Text von einer Access Datenbank.

caran

Ich habe eine SQL Datenbank in Access erstellt, nun muss ich die Daten in der InputBox in diese Datenbank reinschreiben und da komme ich grade nicht weiter.

**BugFix**

Wenn du eh Access verwendest, warum jetzt noch AutoIt dazu mixen? Access bietet dir eine programmierbare Datenbankoberfläche mit Userinterface, kannst du doch dann auch nutzen (wobei ich mit Access nie richtig warm geworden bin).
Und was bitte ist eine "SQL-Datenbank in Access"? Das ist eine Access Datenbank (mdb). Kannst du natürlich auch mit AutoIt ansprechen. Ich glaube ich habe auch dazu mal eine (ansatzweise) UDF gesehen. Aber nicht immer ist alles auch gut, was möglich ist.

caran

Das ist mir klar, aber meine Frage war nicht ob das Sinn macht, was ich da tue, sondern ob mir einer Helfen kann mit AutoIT die Datenbank anzusprechen ;=)

**BugFix**

Wenn du mit ADODB arbeitest, musst du auch die richtigen Methoden wählen. Es erstaunt mich, dass du jetzt schon der 2.te User bist, der ein Query mit .Open ausführen will, statt mit .Execute.

Schau dir mal die Verwendung von ADODB hier an.
Und bist du dir sicher beim Verbindungsstring? Ich habe in einem alten Bsp. für mdb-Verbindung stehen "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=DB_PATH;")

caran

Hallo, ich bin mir sicher, da ich eine Error Funktion eingebaut habe, die mir anzeigt, wenn die DB nicht geöffnet werden kann.
Das eigentliche Problem ist, dass ich ein Button am programmieren bin, der mir die Daten aus der DB in ein 2D Array anzeigen soll, jedoch zeigt der mir jede der Daten in jeweils eine ganze Tabelle/Array an, wie bekomm ich das hin, dass er mir die Daten in nur ein Array anzeigt?

MFg

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.

AutoIt

;--------- 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

Alles anzeigen

gruß gmmg