Gewusst wie: Erstellen einer gespeicherten Prozedur zum Abrufen von Daten in VB 2008
Erstellen eines SQL-Servers kann gespeicherte Prozedur mithilfe von Microsoft Visual Basic Anwendung dynamischer gestaltet. VB ist eine Computer-Programmiersprache zum Erstellen von Windows-Anwendungen verwendet. Gespeicherte Prozeduren in SQL Server akzeptieren Eingabeparameter und können zum Zurückgeben von Daten durch Aufrufen der Prozedur verwendet werden. Sie können leicht eine Tabelle erstellen, Hinzufügen von Daten zu der Tabelle, eine gespeicherte Prozedur erstellen und verwenden Sie es zum Abrufen von Daten mit VB.
Anweisungen
1 Starten Sie Microsoft Visual Basic Express "New Project..." im linken Bereich des Bildschirms, und wählen Sie "Windows-Forms-Anwendung." Klicken Sie auf "OK".
2 Doppelklicken Sie auf die "Toolbox" einen neuen Button hinzufügen "Schaltfläche". Doppelklicken Sie auf "DataGridView" ein neues Steuerelement hinzu. Doppelklicken Sie auf "Button1", das "Form1.vb" Modul zu öffnen.
3 Kopieren Sie und fügen Sie die folgende Zeile des Codes an der Oberseite des Moduls:
Imports System.Data.SqlClient
4 Kopieren Sie und fügen Sie den folgenden Code unter "Button1_click" zum Herstellen einer Verbindung zu Ihrem Server-Datenbank, und erstellen Sie eine neue Tabelle:
Dim Sql As String
ConnectionString = "Data Source=<server name>;Initial Catalog=<database name>;User ID=<user name>;Password=<password>"
conn = New SqlConnection(ConnectionString)
conn.Open()
sql = "CREATE TABLE myTable" + "(myId INTEGER CONSTRAINT PKeyMyId PRIMARY KEY," + "myName CHAR(50), myAddress CHAR(255), myBalance FLOAT)"
cmd = New SqlCommand(sql, conn)
cmd.ExecuteNonQuery()
Bearbeiten Sie den folgenden Code, und geben Sie den Namen Ihres Servers, die Datenbank und die Anmeldedaten:
ConnectionString = "Data Source = < Servername >; Initial Catalog = < Datenbankname >; Benutzer-ID = < Benutzername >; Passwort = < Password > "
5 Kopieren Sie und fügen Sie den folgenden Code unter den Code im vorherigen Schritt erstellten Tabelle Werte hinzu:
' Adding records the table
sql = "INSERT INTO myTable(myId, myName, myAddress, myBalance) " + "VALUES (1, 'John Smith', 'Los Angeles', 25.14 ) "
cmd = New SqlCommand(sql, conn)
cmd.ExecuteNonQuery()
sql = "INSERT INTO myTable(myId, myName, myAddress, myBalance) " + "VALUES (2, 'Jose Lopez', 'Dallas, TX', 425.25) "
cmd = New SqlCommand(sql, conn)
cmd.ExecuteNonQuery()
sql = "INSERT INTO myTable(myId, myName, myAddress, myBalance) " + "VALUES (3, 'Oscar Gonzalez', 'Fort Worth, TX', 14.25) "
cmd = New SqlCommand(sql, conn)
cmd.ExecuteNonQuery()
sql = "INSERT INTO myTable(myId, myName, myAddress, myBalance) " + "VALUES (4, 'Ana Ramos', 'New York, NY', 14.63) "
cmd = New SqlCommand(sql, conn)
cmd.ExecuteNonQuery()6
Kopieren Sie und fügen Sie den folgenden Code um eine neue gespeicherte Prozedur zu erstellen, die Sie zum Abrufen der Daten verwendet:
' gespeicherte Prozedur erstellen
sql = "CREATE PROCEDURE myProc AS" + " SELECT myName, myAddress FROM myTable GO"
ExecuteSQLStmt(sql)
conn.Close()7
Kopieren Sie und fügen Sie den folgenden Code zum Abrufen von Daten aus der Tabelle, die Sie erstellt:
'retreive data
conn = New SqlConnection(ConnectionString)
conn.Open()
Dim da As New SqlDataAdapter("myProc", conn)
Dim ds As New DataSet("SP")
da.Fill(ds, "SP")
DataGridView1.DataSource = ds.Tables(0)
conn.Close()8
Kopieren Sie und fügen Sie den folgenden Code zum Erstellen eines neuen Verfahrens um einen SQL-Befehl zu senden:
Private Sub ExecuteSQLStmt(ByVal sql As String)
If conn.State = ConnectionState.Open Then
conn.Close()
End If
ConnectionString = "Data Source=<server name>;Initial Catalog=<database name>;User ID=<user name>;Password=<password>"
conn.ConnectionString = ConnectionString
conn.Open()
cmd = New SqlCommand(sql, conn)
Try
cmd.ExecuteNonQuery()
Catch ae As SqlException
MessageBox.Show(ae.Message.ToString())
End Try
EndSub
Bearbeiten Sie den folgenden Code, und geben Sie den Namen Ihrer Server, Datenbank und der Anmeldeinformationen:
ConnectionString = "Data Source = < Servername >; Initial Catalog = < Datenbankname >; Benutzer-ID = < Benutzername >; Passwort = < Password > "
9 Drücken Sie "F5" um das Programm auszuführen klicken Sie auf "Button1" Daten über Daten-Grid-Ansicht-Steuerelement angezeigt.