HI!
Ich habe ein Problem und weis leider nichtmehr weiter. Ich will einfache Daten zu einer Access Datenbank senden.
Mein Quelltext:
"
Dim db1 As New ADODB.Connection()
Dim Adresse As New ADODB.Recordset()
Private Sub Form1_Load([…]) Handles MyBase.Load
With db1
.Provider = „Microsoft.Jet.OLEDB.4.0“
.Open( Add.Path & „\db1.mdb“)
End With
With Adresse
.ActiveConnection = db1
.Source = „Adresse“
.CursorType = ADODB.CursorTypeEnum.adOpenKeyset
.LockType = ADODB.LockTypeEnum.adLockOptimistic
.Open(Options:= adCmdTable )
End With
End Sub
Private Sub Hinzufügen_Click([…]) Handles Hinzufügen.Click
With Adresse
.AddNew()
!Name = EinName
!Vorname = EinVorname
.Update()
End With
**EinName = „“
EinVorname = „“
End Sub
"
Beim VB 6.= hat das programm funktioniert, nun bekomm ich aber folgende Fehlermeldungen:
ADD: „Der Name ‚Add‘ wurde nicht deklariert.“
adCmdTable: „Der Name ‚adCmdTable‘ wurde nicht deklariert.“
!Name = EinName: „Die Eigenschaft ‚Fields‘ ist ReadOnly.“
EinName = „“: „Der Wert des Typs ‚String‘ kann nicht
zu ‚System.Windows.Forms.TextBox‘ konvertiert
werden.“
Ich hoffe das mir jemand von euch behilflich sein kann und eine Losung weis wie ich diese Probleme beheben kann. Ich sitze jetzt schon seit stunden daran finde aber keine Lösung dafür.
Gruss
André**