hejsan jag är helt grön på Vb men kan man koppla en databas så här i Vb allså som i ASp?
Private Sub Form_Load()
file = server.mappath("C:\Inetpub\wwwroot\default.mdb")
Set Connect = server.CreateObject("ADODB.connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & file
Set RecSet = server.CreateObject("ADODB.RecordSet")
SQL = "SELECT * FROM site order by id asc"
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic
Do Until RecSet.EOF
i = i + 1
adress = RecSet("adress")
namn = RecSet("namn")
If i < 10 Then
Response.write " " & i & ")"
Else
Response.write "" & i & ")"
End If
Response.write "" & namn & "<br>"
RecSet.MoveNext
Loop
RecSet.Close
Set RecSet = Nothing
End Sub
Dim Recset As ADODB.Recordset
Dim Connect As ADODB.Connection
file = "c:\databasmapp\databas.mdb"
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & file
SQL = "SELECT * FROM site order by id asc"
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic
Do Until RecSet.EOF
i = i + 1
adress = RecSet("adress")
namn = RecSet("namn")
If i < 10 Then
Response.write " " & i & ")"
Else
Response.write "" & i & ")"
End If
Response.write "" & namn & "<br>"
RecSet.MoveNext
Loop
RecSet.Close
Set RecSet = Nothing
End Sub
Du måste även klicka i en referens till ado under references
Tack för svaret men när ja kör koden får ja fel meddelande på denna raden:
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & file
Felet lyder: Run tim error 91
Object variable or block variable not set...
hela koden:
Private Sub Form_Load()
Dim Recset As ADODB.Recordset
Dim Connect As ADODB.Connection
file = "C:\Inetpub\wwwroot\default.mdb"
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & file
SQL = "SELECT * FROM site order by id asc"
Recset.Open SQL, Connect, adOpenStatic, adLockOptimistic
Do Until Recset.EOF
i = i + 1
adress = Recset("adress")
namn = Recset("namn")
If i < 10 Then
Response.write " " & i & ")"
Else
Response.write "" & i & ")"
End If
Response.write "" & namn & "<br>"
Recset.MoveNext
Loop
Recset.Close
Set Recset = Nothing
End Sub
