Library " " . Klicken Sie auf " OK".
3 Doppelklicken Sie auf " Button1 ", um die " Form1.vb "-Modul zu öffnen. Geben Sie den folgenden in der ersten Zeile über " Public Class Form1 ":
Imports ADODB
4
Geben Sie den folgenden Ihre Variablen unten erklären, " Button1 ":
< p > Dim con As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sXMLResult As String
5
Geben Sie den folgenden , um die Verbindung zu Ihrem öffnen SQL Server-Datenbank :
con.ConnectionString = "Provider = SQLNCLI10 ; " _
& " Server = den Namen Ihres Servers ; " _
& " Database = Name der Datenbank ; "_
& " Integrated Security = SSPI ; "_
& " DataTypeCompatibility = 80; "_
& " MARS Anschluss = false; "
< p> con.Open ()
6
Geben Sie den folgenden , um eine SQL Server Datenbank-Tabelle abzufragen :
rst.ActiveConnection = con
rst = Con.Execute ( "SELECT FROM tabellenname.feldname tableName ;")
7
Geben Sie den folgenden in einer Schleife durch alle Datensätze in der Tabelle :
While ( Not rst.EOF )
sXMLResult = rst.Fields ( " Feldname" ) . Wert
MsgBox ( sXMLResult )
rst.MoveNext ()
End While
8 Geben Sie den folgenden
zu Verbinden und Lösen Variable aus dem Speicher zu schließen :
con.close ()
con = Nothing
Presse "F5" um das Programm auszuführen klicken Sie dann auf " Button1. "
