---
title: "ansluta till en databas"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/69458-ansluta-till-en-databas"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "sin_adec"
published: "2003-02-26T06:42:08.000Z"
updated: "2003-02-26T15:29:10.000Z"
replies: 4
views: 314
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/69458-ansluta-till-en-databas"
---

# ansluta till en databas

## #1 — sin_adec, 2003-02-26T06:42Z

Är det någon som vet??..
uppskattar alla inlägg jag får..

Permalänk: https://www.webforum.nu/p/69458

## #2 — Zyrex, 2003-02-26T08:44Z

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)

Permalänk: https://www.webforum.nu/p/961252

## #3 — Zyrex, 2003-02-26T11:36Z

> **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)

Permalänk: https://www.webforum.nu/p/961349

## #4 — Engine^, 2003-02-26T11:55Z

```
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()
```

Permalänk: https://www.webforum.nu/p/961372

## #5 — sin_adec, 2003-02-26T15:29Z

tackar.. :-D

Permalänk: https://www.webforum.nu/p/961557

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/69458-ansluta-till-en-databas