Visual Studio 2008 (VBA)
Hallo,
ich habe in einem Tool in Visual Studio 2008 (VBA) eine
Datenverbindung (über den Assistenten) auf eine Access-Datenbank
hergestellt. Hab dann im Formular die Datenverbindung mit der Tabelle
aufgemacht und ein Feld auf das Formular gezogen.
Ich kriege den Datensatz zwar angezeigt, kann ihn aber nicht ändern -
bzw. ändern schon, aber er speichert es nicht in die Access-DB zurück.
Was muß ich tun. Ich will in einem einzigen Feld (Datenbank hat nur einen Datensatz)
den Wert ändern. Will auch nicht hinzufügen, löschen oder so.
Bitte helft mir.
Danke
Stephan Möller
ich habe in einem Tool in Visual Studio 2008 (VBA) eine
Datenverbindung (über den Assistenten) auf eine Access-Datenbank
hergestellt. Hab dann im Formular die Datenverbindung mit der Tabelle
aufgemacht und ein Feld auf das Formular gezogen.
Ich kriege den Datensatz zwar angezeigt, kann ihn aber nicht ändern -
bzw. ändern schon, aber er speichert es nicht in die Access-DB zurück.
Was muß ich tun. Ich will in einem einzigen Feld (Datenbank hat nur einen Datensatz)
den Wert ändern. Will auch nicht hinzufügen, löschen oder so.
Bitte helft mir.
Danke
Stephan Möller
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 135293
Url: https://administrator.de/forum/visual-studio-2008-vba-135293.html
Ausgedruckt am: 23.12.2024 um 18:12 Uhr
8 Kommentare
Neuester Kommentar
Wo liegt die Datenbank ? Lokal oder Remote ?
Was hast du bisher für Code ?
Ich kenn mich mit dem Assistenten in VS 2008 nicht aus, aber eine Verbindung zu einer Datenbank kannst du über AdoDb machen ->
Was hast du bisher für Code ?
Ich kenn mich mit dem Assistenten in VS 2008 nicht aus, aber eine Verbindung zu einer Datenbank kannst du über AdoDb machen ->
Dim Conn As New ADODB.Connection
Dim RS As New ADODB.Recordset
Connection String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;User Id=admin;Password=1234"
Conn.Open ConnectionString
RS.Open "Select * From Table Where smth Like 'iwant'", Conn
For a = 0 To RS.Fields.Count
'mach was mit RS.Fields(a)
Next
RS.close
Conn.close
Hab auch gerade gelesen das das mit dem New funktioniert wenn man die höchste Version der Microsoft ActiveX Data Objects Library als Verweis
hinzufügt (über Extras->Verweise)
Habs aber hier quasi mal als Vb Script Variante die in VBA aber funktioniert. Habs kurz getestet
Ein winzig bissi Eigeninitiative und du wärst drauf gekommen..
gruss Mono
hinzufügt (über Extras->Verweise)
Habs aber hier quasi mal als Vb Script Variante die in VBA aber funktioniert. Habs kurz getestet
Dim ConnectionStr
Dim Conn, RS
Set Conn = CreateObject("ADODB.Connection")
Set RS = CreateObject("ADODB.Recordset")
ConnectionStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;User Id=admin;Password=1234"
Conn.Open ConnectionString
RS.Open "Select * From Table Where smth Like 'iwant'", Conn
For a = 0 To RS.Fields.Count
'mach was mit RS.Fields(a)
Next
RS.Close
Conn.Close
Ein winzig bissi Eigeninitiative und du wärst drauf gekommen..
gruss Mono
vb.net ? ich denke vba oO
und dies ist ein Datenbank Fehlercode, der kommt von Access, entweder du hast iwo ein Leerzeichen vergessen oder zu viel, die Tabelle existiert nicht oder du hast keinen Zugriff drauf, der Tabellenname ist falsch, am besten du erstellst mal eine Neue TEST Datenbank, erstelllst eine Tabelle per Code, befüllst sie und fragst sie ab und liest dich da mal etwas rein in das thema...
Mit dem was du sagst kann ich leider nicht genug anfangen um dir ordentlich helfen zu können... es kann viele Gründe haben wieso so ein Fehler auftritt
und dies ist ein Datenbank Fehlercode, der kommt von Access, entweder du hast iwo ein Leerzeichen vergessen oder zu viel, die Tabelle existiert nicht oder du hast keinen Zugriff drauf, der Tabellenname ist falsch, am besten du erstellst mal eine Neue TEST Datenbank, erstelllst eine Tabelle per Code, befüllst sie und fragst sie ab und liest dich da mal etwas rein in das thema...
Mit dem was du sagst kann ich leider nicht genug anfangen um dir ordentlich helfen zu können... es kann viele Gründe haben wieso so ein Fehler auftritt