14. september 2004 - 13:08Der er
11 kommentarer og 1 løsning
database tilgang.
Hvordan skaber jeg best database adgang.
Vil jo gerne have det lige som jeg har med asp filer...
set conn = "database string, blablabla" set rs = conn.execute("select * from tabel where skod = 1") while not rs.eof console.write(rs("felt") rs.movenext wend
Da min app skal køre KUN exe fil, og ikke med ado og adodb som tillægs filer..
Class MainClass Public Shared Sub Main(ByVal args As String()) Dim con As OleDbConnection = New OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database\MSAccess\Test.mdb;User Id=admin;Password=") con.Open Dim cmd As OleDbCommand = New OleDbCommand ("SELECT * FROM T1", con) Dim rdr As OleDbDataReader = cmd.ExecuteReader While rdr.Read Dim f1 As Integer = CType(rdr(0), Integer) Dim f2 As String = CType(rdr(1), String) Console.WriteLine(f1 & " " & f2) End While con.Close End Sub End Class
Dim opretforbindelse As New Thread(AddressOf functions.opretforbindelse) opretforbindelse.Start() Den skal så først køre vidre når der kommer svar fra den tråd...
Hvis den skal afslutte kan du lave en Join på tråden.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.