Gem data i database
Hej,Jeg sidder og roder med at lave et kørselsregnskabs program til mig selv, jeg syntes det ville være lidt sjovere end at lave et xls. ark.
Jeg er rimelig kendt med hvordan man gemmer data i ASP via ADO, men nu er turen så kommet til vb 6.0.
Jeg ønsker at gemme 4 tekstfelter i min database.
Jeg har fundet ud af at hive data ud fra min database og vise dem i en listboks med flg. kode.
Private Sub Form_Load()
Set Conn = CreateObject("ADODB.Connection")
Set Rs = CreateObject("ADODB.RecordSet")
Call DB_List
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set Rs = Nothing
Set Conn = Nothing
End Sub
Public Function DB_List()
Dim strDSN As String
Dim strSQL As String
Dim DataPath As String
Dim DataPass As String
DataPath = "C:\korsel.mdb" '<- Database file
DataPass = "********" '<- Password
strSQL = "SELECT * FROM KorselTabel"
strDSN = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath & ";PWD=" & DataPass & ";"
With Rs
.open strSQL, strDSN, 3
If Not (.BOF Or .EOF) Then
List1.Clear
Do While Not .EOF
'Tilføjer i en ListBox (List1)
List1.AddItem CStr(Rs("ID") & " - " & Rs("Fra"))
.MoveNext
Loop
End If
.Close
End With
End Function
------------------------------
Men hvis jeg nu ønsker at gemme data fra mine tekstbokse når jeg klikker på min "command" knap hvad skal jeg så gøre?
