Library " " . Klik op "OK . "
Dubbelklik op " Button1 " 3 op de " Form1.vb " module te openen . Typ het volgende in de allereerste regel boven " Public Class Form1 " :
Imports ADODB
Type Goedkope 4 het volgende om uw variabelen hieronder verklaren " Button1_Click " :
Dim con als Nieuwe ADODB.Connection
Dim rst
als Nieuwe ADODB.Recordset
Dim sXMLResult als Koord
Type 5 het volgende om de verbinding te openen naar uw SQL server-database :
con.ConnectionString
= " Provider = SQLNCLI10 ; " _
& " server = naam van uw server ; " _
& " Database = uw database naam , " _
& " Integrated Security = SSPI ; " _
& " DataTypeCompatibility = 80 ; " _
& " MARS Connection = False ; "
con.Open ( )
Type 6 de volgende naar een SQL Server- database tabel een query :
rst.ActiveConnection
= con
rst
= con.Execute ( " SELECT tabelnaam.veldnaam FROM tabelnaam ; " ) op Twitter
Type 7 de volgende voor het doorlussen van alle records in de tabel :
Terwijl ( Niet rst.EOF ) op Twitter
sXMLResult = rst.Fields ( " fieldName " ) . Value
MsgBox ( sXMLResult )
rst.MoveNext
( )
End
Terwijl
Type 8 het volgende te koppelen en ontkoppelen variabele sluiten van het geheugen :
con.Close
( )
con
= Nothing
Druk op " F5 "
aan uw programma uit te voeren klik op ' Button1 . "