ansluta till en databas

Detta borde funka

Private Sub databas()

Dim rec As New ADODB.Recordset
Dim Con As New ADODB.Connection
Dim strConnect As String
Dim strSQL As String

'Definerar databasen
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source="
strConnect = strConnect & "databas"

'Skickar fråga
strSQL = ("SQL fråga)
rec.Open strSQL, Con, adOpenStatic, adLockOptimistic, adCmdText
'Visar svaret från det första fältet
rec.Fields(1)

Zyrex skrev:

Detta borde funka
Lägg till componentet ADO Data control

Private Sub databas()

Dim rec As New ADODB.Recordset
Dim Con As New ADODB.Connection
Dim strConnect As String
Dim strSQL As String

'Definerar databasen
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source="
strConnect = strConnect & "databas"

'Skapa fråga
strSQL = ("SQL fråga)
'Skickar fråga
rec.Open strSQL, Con, adOpenStatic, adLockOptimistic, adCmdText
'Visar svaret från det första fältet
rec.Fields(1)

Private Sub databas() 
    Dim rec As New ADODB.Recordset 
    Dim Con As New ADODB.Connection 
    Dim strSQL As String 

    [blue]'Definerar databasen [/blue]
    Con.Provider = "Microsoft.Jet.OLEDB.4.0"
    Con.ConnectionString = "Data Source = C:\[i]sökväg[/i]\[i]dindatabas.mdb[/i]"
    Con.Open

    [blue]'Skickar fråga [/blue]
    strSQL = "SELECT * FROM tblTabell;" 
    Set rec = Con.Execute (strSQL, , adCmdText)

    [blue]'Visar svaret från det första fältet [/blue]
    MsgBox rec.Fields(0)

    [blue]' Tömmer minnet / stänger databasen[/blue]
    Set rec = Nothing
    Set Con = Nothing
End Sub()

tackar.. :-D