Hallo!

Ich weis nich ob ich hier richtig bin aber ich schreibes hier einfach rein.

Ich habe volgendes Problem:

Mir ist das Programmieren mit Datenbanken eher neu deswegen nicht lachen wenn ich zu einfache sachen hier hereinschreib.

Also ich habe ein Programm das mir aus dem Clipbord einfügt diese daten dann in Spezielle felder Schreibe. Nun muss ich die Daten auslesen aus den Feldern und in eine Datenbank schreiben aber da das für mich neu ist weis ich nicht recht mit was ich anfangen soll.

Habe schon folgendes Script:

Private Sub Speichern_Click()
Dim Cnn As ADODB.Connection
Dim RS As ADODB.Recordset
Dim strFileName As String
Dim strSQL As String

'On Error GoTo Fehler

' \\\ Öffnen der Connection (Datenbank öffnen)
strFileName = "C:\_ruth\listEmail.mdb"
Set Cnn = New ADODB.Connection
With Cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Data Source") = strFileName
.CursorLocation = adUseClient
.Properties("Persist Security Info") = False
.Open
End With

If (Cnn.State And adStateOpen) = adStateOpen Then

' \\\ Öffnen des Recordsets
strSQL = "listEmail"

Set RS = New ADODB.Recordset
With RS
Set .ActiveConnection = Cnn
.Source = strSQL
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.LockType = adLockBatchOptimistic
.Properties("IRowsetIdentity") = True
.Open
End With

End If

RS.Close

End Sub

Bitte helft mir!

THX im vorraus