Nachdem das Wissen zum Erstellen und Verwenden einer ADO-Verbindung zu SQL Server können Sie Zeit sparen , wenn Sie Daten aus einer Datenbank abfragen müssen . SQL Server ist ein relationales Datenbank -Management-System häufig verwendet, um große Datenbanken zur Verfügung , um mehrere Benutzer an mehreren Standorten zu erstellen. Sie können ADO-Verbindungen in mehreren Programmiersprachen verwenden , in diesem Beispiel wird Microsoft Visual Basic.NET . VB.NET ist eine objektorientierte Programmiersprache, die relativ einfach zu erlernen und zu bedienen ist. Things You
Microsoft Visual Basic Express
Microsoft SQL Server
brauchen anzeigen Weitere Anweisungen
1
Öffnen Sie Microsoft Visual C # Express und wählen Sie " Neues Projekt ... " aus dem linken Bereich des Bildschirms. Klicken Sie auf " Visual Basic " unter " Installierte Vorlagen " doppelklicken Sie auf "Windows Forms-Anwendung. "
2
Klicken Sie auf die " Toolbox " Fenster und doppelklicken Sie auf "Button" , um eine neue Schaltfläche zum Formular hinzufügen . Klicken Sie auf das Menü "Projekt" und wählen Sie " Eigenschaften " . Klicken Sie auf " Referenzen " und wählen Sie dann "Hinzufügen". Wählen Sie " COM" und klicken Sie auf " " Microsoft ActiveX Data Objects 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. "
