Hallo zusammen,
ich bin gerade dabei in VB6 die Dantenbankprogrammierung anzueigen, ich selber habe schon viel mit SQL auf Webserver gearbeitet.
In VB jedoch nicht und ich wollte wegkommen vom Zwischenspeichern in reinen Textdateien.
Eine Dantenbank erstellen und Abfragen und anzeigen in einem flexgrid funktioniert schon super, auch das filter von bestimmten Zeilen klappt auch schon.
Nur was ich nicht hin bekomme ist es einen Datensatz in die Tabelle zurück zuschreiben bzw einen Neuen zu erstellen.
hier mal mein ein Auszug von meinen Versuchen:
Private Sub Update(dat As String, id As Long)
'''Dim Rs As Recordset
'''Dim Cn As New Connection
'''Dim cmdBefehl As New Command
'''Cn.Open "Aktionsliste.mdb"
'''Cn.BeginTrans
'''
'''Set cmdBefehl.ActiveConnection = Cn
'''
'''cmdBefehl.CommandType = adCmdTable
'''cmdBefehl.CommandText = "opl_liste"
'''
'''Set Rs = cmdBefehl.Execute
'''
'''Cn.BeginTrans
'''With Rs
'''Rs.AddNew
''' .Fields("date").Value = dat
'''.Update
'''End With
'''
'''Cn.CommitTrans
'''Cn.Close
'Exit Sub
Dim Cn As Connection
Set Cn = New Connection
Dim Rs As New Recordset
Cn.Provider = "Microsoft.Jet.OLEDB.3.51"
Cn.Open "D:\40 - Projekte\VB6\Aktionslisten - Manager\Aktionsliste.mdb", "admin", ""
If Not Cn.State = adStateOpen Then
MsgBox Prompt:="Keine Verbindung hergestellt!"
Exit Sub
End If
Dim SQLText As String
Dim C As Command
'Dim Rs As Recordset
SQLText = "UPDATE opl_liste SET datum = " & dat & " WHERE id = " & id & ""
Set C = AdoData.Recordset.ActiveCommand
C.CommandText = SQLText
Set Rs = C.Execute
AdoData.Refresh
End SubKann mir wer sagen wie ich das hin bekommen kann?
Wenn jemand mir eine einfachere Schreibweise zeigen kann oder Tipps hätte wäre ich auch sehr dankbar. (Mein Buch schweig sich darüber aus.)
Vielen Dank schon mal, Gruß Oli