Databas api — webForum

ThureMedlem sedan okt. 200328 inlägg

Frågan6 apr. 2004 13:39#1

Jag använder VB´s Data control för att koppla mig mot databaser, men jag skulle vilja ha ett api så jag slipper använda kontrollen (till dll filer). Är det någon som har nån kodsnutt att dela med sig av?

Tack på förhand

Rickard

PsyDoniaMedlem sedan maj 2003924 inlägg

6 apr. 2004 21:16#2

i referenser markerar du att använda.
Microsoft ActiveX Data Objects 2.5 Library

sen i koden gör du typ så här t.ex.

Dim Conn As New ADODB.Connection
Dim strConn As String

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Databas.mdb"

Conn.Open strConn

Dim RecSet As New ADODB.Recordset
Dim strSQL As String

strSQL = "SELECT * FROM Tabell"

RecSet.Open strSQL, Conn, adOpenStatic, adLockOptimistic
Dim i
i = 0
Do Until RecSet.EOF

        Text1(i).Text = RecSet!antal
        Text5(i).Text = RecSet!Date
        RecSet.Update
        

i = i + 1

RecSet.MoveNext
Loop

RecSet.Close
Conn.Close
Set RecSet = Nothing
Set Conn = Nothing