03. september 2002 - 09:34Der er
29 kommentarer og 2 løsninger
At Gemme i en Access Database
Jeg har fået lidt hjælp til at lave en meget fin Kundedatabse... den er linket op med Access!!
Men nu kan jeg fandme ikke få lortet til at gemme hvis jeg laver nogle ændringer i den....
HJÆLP!!! Men kode der kobler op er her: ------------------------------------------------------- objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\data.mdb" strSQL = "SELECT * FROM kunder" Set objRs = objConn.Execute(strSQL)
MEN jeg fatter ikke en BRIK af hvad der står i den kode!!! ---------------------------------------------------------------------- Option Explicit Public Sub Main() On Error GoTo ErrorHandler
'recordset and connection variables Dim Cnxn As ADODB.Connection Dim rstEmployees As ADODB.Recordset Dim strCnxn As String Dim strSQL As String
'record variables Dim strID As String Dim strFirstName As String Dim strLastName As String Dim blnRecordAdded As Boolean
'Open a connection Set Cnxn = New ADODB.Connection strCnxn = "Provider='sqloledb';Data Source='data.mde';" & _ "Initial Catalog='kunder';Integrated Security='SSPI';" Cnxn.Open strCnxn
'Open Employees Table with a cursor that allows updates Set rstEmployees = New ADODB.Recordset strSQL = "Kunder" rstEmployees.Open strSQL, strCnxn, adOpenKeyset, adLockOptimistic, adCmdTable
'Get data from the user strFirstName = Trim(InputBox("Konto:")) strLastName = Trim(InputBox("navn:"))
'Proceed only if the user actually entered something 'for both the first and last names If strFirstName <> "" And strLastName <> "" Then
' Show the newly added data MsgBox "New record: " & rstEmployees!EmployeeId & " " & _ rstEmployees!firstname & " " & rstEmployees!LastName
Else MsgBox "Please enter a first name and last name." End If
'Delete the new record because this is a demonstration Cnxn.Execute "DELETE FROM Employees WHERE EmployeeID = '" & strID & "'"
'clean up rstEmployees.Close Cnxn.Close Set rstEmployees = Nothing Set Cnxn = Nothing Exit Sub
ErrorHandler: 'clean up If Not rstEmployees Is Nothing Then If rstEmployees.State = adStateOpen Then rstEmployees.Close End If Set rstEmployees = Nothing
If Not Cnxn Is Nothing Then If Cnxn.State = adStateOpen Then Cnxn.Close End If Set Cnxn = Nothing
If Err <> 0 Then MsgBox Err.Source & "-->" & Err.Description, , "Error" End If End Sub
'EndAddNewVB ---------------------------------------------------------------------- Hvor sætter jeg ind hvilken Access database den skal hente fra og Hvilken table og hvilke data de skal hente + sætte ind i nogle textfelter!!!!!
You are NOT going to get very far if you dont understand what is happening. I would suggest that you get hold of a book covering this subject, that way you will more than likely get some working examples to help you understand it better. Otherwise you will continue having problems.
Den må nemlig IKKE lave en ny, men derimod rette i den eksisterende!!! For hvis jeg retter i et felt og siger videre så brokker den sig indtil jeg har fjernet den primærer nøgle i databsen, og så opretter den bare en NY... istedet for bare at rette!!!!
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
