einfügen in datenbank...
lima-city → Forum → Programmiersprachen → Basic
administrator
basic
bedingung
commando
connection
datenbank
datenquelle
datensatz
einschreiben
gen
jet
kommando
meinst
mengen
not
schnittstelle
set
systemsteuerung
tutorial
verwaltung
-
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
-
Meinst du jetzt ?ber PhpMyAdmin oder ?ber Php drauf zugreifen?
ein bischen genaue sollte es schon sein.
Ich m?chte dich nur mal aufkl?ren, dass es hier um VisualBsic geht und nicht ?ber php oder mysql!
Ich hab da ein Buch, da kann ich dir mal den code geben, muss ich aber erst einscannen, wenn du interressiert bist, dann schreib mir bitte eine pn! -
hmm d?rft ich nochmal drauf hinweisen das es um eine access datenbank geht....
danke -
Okay, ich gehe jetzt einfach mal davon aus, dass du Windows XP verwendest...
Du musst zun?chst im System eine Schnittstelle zu deiner Access Datenbank erstellen, dann kannst du mit den VB Kommandos darauf zugreifen.
Ich w?rde das ganze ?ber eine ODBC Schnittstelle machen.
Die Schnittstelle kannst du ?ber Systemsteuerung -> Verwaltung -> Datenquellen (ODBC) einrichten.
Es ?ffnet sich der Microsoft ODBC Administrator.
Hier gibst du bei Benutzer-DSN (DatenbankSchNittstelle) Microsoft Access Datenbank ausw?hlen und hinzuf?gen anklicken.
Als Treiber gibst du den Microsoft Access Treiber an. Dann musst du noch den Pfad zu deiner Datenbank eingeben - das war?s.
Nun kannst du ?ber VB mit den ODBC Commandos
zugreifen (frag mich net wie, da gibt?s bestimmt
jede Menge Tutorials dazu, ich selbst hab das nur als Schnittstelle zwischen zwei Datenbanken ohne VB ben?tigt) -
Dim cnnClients As ADODB.Connection 'connection' Dim rstClients As ADODB.Recordset 'recordset' cStrConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Ort wo die Datenbank liegt & ";" Set cnnClients = New ADODB.Connection cnnClients.Open cStrConnection Set rstClients = New ADODB.Recordset rstClients.Open "SELECT * FROM table WHERE Bedingung;", cnnClients, adOpenKeyset, adLockReadOnly 'Schleife zum Einschreiben der Werte' Do While Not rstClients.EOF rstClients!Feld = Wert rstClients.MoveNext Loop rstClients.Close cnnClients.Close Set cnnClients = Nothing Set rstClients = Nothing
-
hey astrein danke hast mir sehr geholfen....
-
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage