vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Blitzschnelles Erstellen von grafischen Diagrammen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB & Datenbanken
MyVbQL.DLL und update 
Autor: HalloMallo
Datum: 15.02.07 12:02

Hallo Leute!

Vor einigen Tagen hatte ich ein Workshop "MySQL ohne ADO und MyODBC!" als Lösung für meine DB Probleme gefunden. Tolle Arbeit! Aber ich habe folgendes Problem:

Ich habe einwenig den Code (Syntax) genändert und folgendes passiert:

Nach dem ich die mysql DB geöffnet habe...

-------------------------------------------------------------------------------------------



Um Datensätze hinzuzufügen:

Code Im Worhshop:____________

oConn.Execute "INSERT INTO " & sTable & " (vorname, nachname) " & _
"VALUES ('" & sVorname & "', '" & sNachname & "')"

Ich habe es geändert in:_________

Set oRs = oConn.Execute("Select * From Kunden")
With oRs
.AddNew
.Fields("Vorname").Value = T1.Text
.Fields("Nachname").Value = T15.Text
.Update
.CloseRecordset
End With
Fazit: Funktioniert hervorragend!

------------------------------------------------------------------------------------------------------

Um Datensätze abzurufen:
Code Im Worhshop:
Da brauchte ich nichts ändern. Es ist der gleiche Syntax.
------------------------------------------------------------------------------------------------------

Um Datensätze zu bearbeiten:
Code im Workshop__________

sSQL = "UPDATE " & sTable & " SET " & _
"vorname = '" & sVorname & "', " & _
"nachname = '" & sNachname & "' " & _
"WHERE id = " & CStr(nId)
oConn.Execute sSQL

Ich habe es geändert in:_________

'mit einem Klick auf die Listbox, wo sich die Liste der Kunden befindet, werden die Kundendaten abgerufen und in die Textfelder eingefügt

sSQL = "Select * From kunden Where vorname= '" & List2.List(List2.ListIndex) & "'"

Nach dem ich z.B. den Namen in der Textbox geändert habe kommt folgender code:

With oRs
.Fields("vorname").Value = T1.Text
.Fields(" nachname").Value = T15.Tex
.Update
End With
oRs.CloseRecordset

Fazit: Es funktioniert aber nicht. Es kommt zwar keine Fehlermeldung, aber die Daten werden auch nicht geändert!

Kann mir jemand vielleicht sagen, wo mein Fehler ist?

Danke für eure Hilfe!!
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
MyVbQL.DLL und update974HalloMallo15.02.07 12:02
Re: MyVbQL.DLL und update605Zero-G.22.02.07 13:01
Re: MyVbQL.DLL und update594HalloMallo22.02.07 15:38

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel