✔ Help DB

[5Rad]

Hi,
weiß jemand warum das nicht tut?

Option Explicit

Dim WithEvents Rs As ADODB.Recordset
Dim KdName As String
Dim Rabatt As Double
Dim KdNr As Integer
Dim Cn As ADODB.Connection

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdSave_Click()
    KdName = txtKdName
    KdNr = txtKdNr
    Rabatt = txtRabatt
    
   Rs.Recordset.AddNew
   Rs.Recordset("KdNr") = KdNr
   Rs.Fields("KdName") = KdName
   Rs.Fields("Rabatt") = Rabatt
   Rs.Recordset.Update
End Sub

Sub Prüfung_Tabelle()
 On Error GoTo Tabelle_Err
    Set Rs = New ADODB.Recordset
        With Rs
            .ActiveConnection = Cn
            .CursorLocation = adUseClient
            .CursorType = adOpenKeyset
            .LockType = adLockOptimistic
            .Source = "Select * From tbl_Kundenstamm"
            .Source = "SELECT KdNr, KdName, Rabatt FROM tbl_Kundenstamm"
            .Open
        End With
 Exit Sub
    
Tabelle_Err:
    MsgBox "Tabelle 'Kundenstamm' ist nicht vorhanden!" & vbCrLf _
      & "Bitte Prüfen Sie die Datenbank 'Comback'", 16, "Warnung!"
    End

End Sub

Private Sub Form_Load()
 Prüfung_DB
 Prüfung_Tabelle
 
End Sub
Sub Prüfung_DB()
  On Error GoTo DB_Err
    Set Cn = New ADODB.Connection
        With Cn
            .CursorLocation = adUseClient
            .Mode = adModeShareDenyNone
            .Provider = "Microsoft.Jet.OLEDB.4.0"
            .Properties("Data Source") = "Comback.mdb"
            .Open
        End With
 Exit Sub
 
DB_Err:
    MsgBox "Datenbank ist nicht vorhanden!" & vbCrLf _
      & "Sie müssen das Programm beenden!", 16, "Warnung!"
    End
End Sub

Danke im Voraus für eure Bemühungen

lg
Piti

 

[DrMueller]

ich hätte jetzt gesagt

KdName = txtKdName
KdNr = txtKdNr
Rabatt = txtRabatt

musst bei Textfeldern .text angeben, damit das Programm weiss, welche Info du willst. Kann gut sein, dass dies als Standard genommen wird.

 

[5Rad]

Also die Übergabe der Werte funktioniert mein eigentliches prob is hier

   Rs.Recordset.AddNew

hier kracht des Programm immer ...

 

[Alex F.]

was gast du denn für einen Fehler ?

 

[5Rad]

Ich weiß net was ich falsch gemacht habe^^

lg
Piti

 

[Alex F.]

Die Methode heisst bei mir

rs.addnew

und nicht

rs.recordset.Addnew

Grüsse bb

 

[5Rad]

Guten Morgen.

ich glaub ich hab schon mal erwähnt das ich en dummes Buch hab zum VB lernen ...

ICh danke dir bb
Ich poste mal den funktionierenden Code waren nemlich noch 2 Fehler drin

Private Sub cmdSave_Click()
    KdName = txtKdName
    KdNr = txtKdNr
    Rabatt = txtRabatt
    
   Rs.AddNew
   Rs.Fields("KdNr") = KdNr 'Hier Fehler 1
   Rs.Fields("KdName") = KdName
   Rs.Fields("Rabatt") = Rabatt
   Rs.Update  ' Hier war Fehler 2 
End Sub

Nochmals Danke

lg
Piti

 

[Alex F.]

Moin 5Rad

Schmeiss das buch weg! Nachdem wir beide nun schon den 2. Fehler da rausgeholt haben ;-)

 

[5Rad]

Lol du hast recht
Dann hol ich mir ne Kopie von dir *gg*

Ich brauch endlich ne gescheide Stütze
Hab die Aufgabe bekommen VB6 zu lernen und des Buch Visual Basic 6 für Dummies

Das Buch is Super bloß zu Oberflächlich es schneidet jees Kapitel an ...
Drumm hab ich mri des "tolle" Buch von Visual Basic 6 Kompendium von dem Vater einer Freudin ausgeliehen ... (weist ja inzwischen selber wie toll das Buch is ... und dafür hat man mal 90 DM gezahlt ... *lol*)

Naja ich denk wir werden uns noch öfters lesen

Danke dir übrigens nochmals

lg
Piti