VB Datenbankprogrammierung

OJMD

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:

Code

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 Sub

Alles anzeigen

Kann 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

OJMD

Hallo,

keiner dabei der mir ein kleines Beispiel aufzeigen kann, welchen einen Datensatz in eine Datenbank neu schreibt oder eine bestehenden Datensatz ändert?

Gruß OJMD

driver

ach herje... ich hab viele jahre als vb programmierer gearbeitet,
aber seit 5 jahren nix mehr angeschaut. sollte aber so klappen,
hab ich mal aus nem alten projekt rauskopiert. is allerdings mit
nem dsn-eintrag (hatte ne sqlserver-db dahinter)

Code

Dim rs As New ADODB.Recordset
Dim strSQL As String
Public con As New ADODB.Connection


con.Open "dsn=verwaltung"


strSQL = "Select * from Alben where id=-10"
rs.Open strSQL, con, adOpenDynamic, adLockPessimistic
rs.AddNew
rs!id = getnextid("select max(id) as neuid from Alben")
rs!feld1 = Me.txtFeld(0)
rs!feld2 = Me.txtFeld(1)
rs!datum = Date
rs.Update
rs.Close

Alles anzeigen

function zum holen der nächsten id. wird natürlich nur
benötigt wenn keine automatische hochzählung drin is.

Code

Public Function getnextid(sql) As Long
    Dim rs As New ADODB.Recordset

    rs.Open sql, con, adOpenDynamic, adLockPessimistic
    If Not IsNull(rs!neuid) Then
        getnextid = rs!neuid
    Else
        getnextid = 0
    End If
    getnextid = getnextid + 1
End Function

Alles anzeigen

OJMD

Vielen Dank Driver,

ich hab im Internet eine tolles Tutorial zum Thema Datenbankprogrammierung gefunden und bin super vorran gekommen mit meiner Idee bzw. Projekt.

Was ich mich jetzt aber noch Frage:

Ist es Möglich auf eine FTP Server-DB zugreifen zu können?
Ich hab eine HP und zwei DB. Mich würde jetzt interessieren ob ich ein VB Programm erstellen könnt welches als DB die von meinen Webserver benutzt.

Gruß OJMD

driver

hm.... also webtechnisch könnte das klappen. wir hatten vor vielen jahren in der
schule mal via vb ein cgi programmiert was dann am webserver lief und auf eine
access-db zugegriffen hat...

ne möglichkeit wäre, erneut ein dsn einzutragen (systemsteuerung -> odbc -> system dsn)
und dort dann die url des servers anzugeben. jedoch wird des ja eine mysql-db sein.
ich bin nicht sicher ob diese verbindung im odbc hinterlegt is oder evtl noch irgendwie
nachinstalliert werden muss...

BendOr

hi OJMD, das tutorial würde mich auch interessieren, hättest mal nen Link

mfg

Tags