Ergebnis 1 bis 6 von 6

Thema: VB Datenbankprogrammierung

  1. #1
    Azubi(ne) Avatar von OJMD
    Registriert seit
    13.03.2007
    Ort
    Heidelberg
    Beiträge
    63
    Danke
    0
    Bekam 0 mal "Danke" in 0 Postings

    Frage VB Datenbankprogrammierung

    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
    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
    Achtung: Dies ist ein alter Thread im HTML und Webmaster Forum
    Diese Diskussion ist älter als 90 Tage. Die darin enthaltenen Informationen sind möglicherweise nicht mehr aktuell. Erstelle bitte zu deiner Frage ein neues Thema im Forum !!!!!

  2. #2
    Azubi(ne)
    Themenstarter
    Avatar von OJMD
    Registriert seit
    13.03.2007
    Ort
    Heidelberg
    Beiträge
    63
    Danke
    0
    Bekam 0 mal "Danke" in 0 Postings

    Unglücklich AW: VB Datenbankprogrammierung

    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

  3. #3
    Forum Guru Avatar von driver
    Registriert seit
    10.04.2006
    Alter
    34
    Beiträge
    20.729
    Danke
    0
    Bekam 0 mal "Danke" in 0 Postings

    Standard AW: VB Datenbankprogrammierung

    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
    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
    >> die icq-schreiberlinge bitte dies hier beachten



    1679 entdeckte Gottfried Wilhelm Leibniz das Binärsystem, bei einem Gespräch mit seiner Mutter: "Ja..., Nein..., Nein..., Nein..., Ja..., Ja..., Nein..."

  4. #4
    Azubi(ne)
    Themenstarter
    Avatar von OJMD
    Registriert seit
    13.03.2007
    Ort
    Heidelberg
    Beiträge
    63
    Danke
    0
    Bekam 0 mal "Danke" in 0 Postings

    Standard AW: VB Datenbankprogrammierung

    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

  5. #5
    Forum Guru Avatar von driver
    Registriert seit
    10.04.2006
    Alter
    34
    Beiträge
    20.729
    Danke
    0
    Bekam 0 mal "Danke" in 0 Postings

    Standard AW: VB Datenbankprogrammierung

    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...
    >> die icq-schreiberlinge bitte dies hier beachten



    1679 entdeckte Gottfried Wilhelm Leibniz das Binärsystem, bei einem Gespräch mit seiner Mutter: "Ja..., Nein..., Nein..., Nein..., Ja..., Ja..., Nein..."

  6. #6
    Kaiser(in)
    Registriert seit
    09.12.2005
    Alter
    29
    Beiträge
    2.496
    Danke
    1
    Bekam 0 mal "Danke" in 0 Postings

    Standard AW: VB Datenbankprogrammierung

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

    mfg
    Sei immer du selbst. Außer du kannst Batman sein. Sei immer Batman!

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •