Avviare Microsoft Visual Basic Express , fare clic su " Nuovo progetto ... " nel riquadro sinistro dello schermo , quindi selezionare " Applicazione Windows Form ". Fare clic su "OK".
2 Fare doppio clic su "Button " sulla " Casella degli strumenti " per aggiungere un nuovo pulsante . Fare doppio clic su " DataGridView " per aggiungere un nuovo controllo . Fare doppio clic su " Button1 " per aprire il modulo " Form1.vb "
3
Copia e incolla la seguente riga di codice al vertice del modulo : .
Imports System.Data.SqlClient
4
Copia e incolla il seguente codice sotto " Button1_Click " per effettuare una connessione al database del server e creare una nuova tabella :
Dim sql come String
ConnectionString = "Data Source = conn = New SqlConnection ( ConnectionString ) per conn.Open ( ) per sql = " CREATE TABLE myTable " + " ( myId INTEGER VINCOLO PKeyMyId PRIMARY KEY , " + " myName CHAR ( 50 ) , MyAddress CHAR ( 255 ) , myBalance FLOAT ) " cmd = New SqlCommand ( sql , conn ) per cmd.ExecuteNonQuery ( ) per Modifica il codice seguente e digitare il nome del vostro server , database e le credenziali di login : ConnectionString = "Data Source = Copia e incolla il seguente codice sotto il codice nel passaggio precedente per aggiungere i valori per la tabella creata : ' Aggiunta di record della tabella sql = " INSERT INTO myTable ( myId , myName , MyAddress , myBalance ) " + " VALUES ( 1 , ' John Smith ', ' Los Angeles' , 25.14 ) " cmd = New SqlCommand ( sql , conn ) per cmd.ExecuteNonQuery ( ) per sql = " INSERT INTO myTable ( myId , myName , MyAddress , myBalance ) " + " VALUES ( 2 , 'Jose Lopez ', ' Dallas , TX ' , 425,25 ) " cmd = New SqlCommand ( sql , conn ) per cmd.ExecuteNonQuery ( ) per sql =" INSERT INTO myTable ( myId , myName , MyAddress , myBalance ) "+" VALUES ( 3 , ' Oscar Gonzalez ', ' Fort Worth , TX ' , 14.25 ) " cmd = New SqlCommand ( sql , conn ) per cmd.ExecuteNonQuery ( ) sql = " INSERT INTO myTable ( myId , myName , MyAddress , myBalance ) " + " VALUES ( 4 , 'Ana Ramos ', ' New York , NY ' , 14.63 ) " cmd = New SqlCommand ( sql , conn ) per cmd.ExecuteNonQuery ( ) economici 6 Copia e incolla il seguente codice per creare una nuova stored procedure che si intende utilizzare per recuperare i dati : ' creare stored procedure sql = " CREATE PROCEDURE myProc come" + "SELECT myName , MyAddress DA myTable GO" ExecuteSQLStmt ( sql ) per conn . Chiudi ( ) economici 7 Copia e incolla il seguente codice per recuperare i dati dalla tabella creata : ' Ottieni le dati conn = New SqlConnection ( ConnectionString ) conn.Open ( ) per Dim da As New SqlDataAdapter ( " myProc " , conn) Dim ds As New DataSet ( "SP" ) per da.Fill ( ds , "SP" ) per DataGridView1.DataSource = ds.Tables ( 0 ) per conn.Close ( ) economici 8 Copia e incollare il seguente codice per creare una nuova procedura per l'invio di un comando SQL : private Sub ExecuteSQLStmt ( ByVal sql As String ) per conn.State = ConnectionState.Open Poi conn.Close ( ) per End If ConnectionString = "Data Source = conn.ConnectionString = ConnectionString conn.Open ( ) per cmd = New SqlCommand ( sql , conn ) per Prova cmd.ExecuteNonQuery ( ) per Cattura ae Come SqlException MessageBox.Show ( ae.Message.ToString ( ) ) per End Try End Sub Modifica il codice seguente e digitare il nome del server , il database e le credenziali di login : ConnectionString = "Data Source = Premere" F5 " per eseguire il programma, quindi fare clic su" Button1 " per visualizzare i dati attraverso la Data Grid controllo View .
5
9
Informazioni correlate
Programmazione © www.354353.com