Undrar om man kan anväda liknade databaskopplingar i vb 6 som man har i ASP. Hej! Man tackar för hjälpen.Koppla till databas
Denna använder jag i ASP
Set Connect = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & Server.MapPath("databas.mdb")
Visa = "SELECT * FROM namn"
RecSet.Open Visa, Connect, 2, 3
Om det går skriver man den i en public Function eller hur får man i hop detSv: Koppla till databas
Jag brukar göra så här! (Kör inte längre med ODBC-kopplingar).
Public conn as ADODB.Connection
' Fixa anslutning till databasen
Public Function Connect() as Boolean
Dim strConn As String
On Error GoTo ErrorHandler
strConn = "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq="Sökväg till din databas;" & _
"Uid=; Pwd=;"
Set conn = New ADODB.Connection
conn.Open = strConn
Connect = True
Exit Function
ErrorHandler:
MsgBox Err.Description
End Function
' Hämta data ifrån databasen
Dim rst As ADODB.Recordset
Dim strSQL As String
strSQL = "SELECT förnamn, efternamn FROM namn"
Set rst = New ADODB.Recordset
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.open strSQL, conn
Do While Not rst.EOF
MsgBox "Förnamn: " & rst!förnamn & " Efternamn: " & rst!efternamn
rst.MoveNext
Loop
rst.Close
Hoppas att detta kan vara till någon hjälp för dig!
/Mathias
Sv: Koppla till databas
Varför jag vill ha en ODBC anslutning.
alldrig använt nån annan. försökte med nån modul men det funkade inte.