"
5 Kopieer en plak de volgende code onder de code op de vorige stap om waarden aan de tabel die u hebt gemaakt toe te voegen :
' toevoegen van de administratie van de tafel
sql = " INSERT INTO myTable ( mijnId , myName , myAddress , myBalance ) " + " VALUES ( 1 , ' John Smith ' , ' Los Angeles ' , 25.14 ) "
cmd = Nieuwe SqlCommand ( sql , conn )
cmd.ExecuteNonQuery ( ) op
sql
= " INSERT INTO myTable ( mijnId , myName , myAddress , myBalance ) " + " VALUES ( 2 , ' Jose Lopez ' , ' Dallas , TX ' , 425,25 ) "
cmd
= Nieuw SqlCommand ( sql , conn )
cmd.ExecuteNonQuery
( )
sql =
" INSERT INTO myTable ( mijnId , myName , myAddress , myBalance ) " + " VALUES ( 3 , ' Oscar Gonzalez ' , ' Fort Worth , TX ' , 14.25 ) "
cmd = Nieuwe SqlCommand ( sql , conn )
cmd.ExecuteNonQuery
( )
sql = " INSERT INTO myTable ( mijnId , myName , myAddress , myBalance ) " + " VALUES ( 4 , ' Ana Ramos ' , ' New York , NY ' , 14.63 ) "
cmd
= nieuwe SqlCommand ( sql , conn )
cmd.ExecuteNonQuery ( )
Copy
6 en plak de volgende code om een nieuwe opgeslagen procedure die u zal gebruiken om gegevens op te halen te maken: < br >
' opgeslagen procedure
sql = " CREATE PROCEDURE MYPROC AS " + "SELECT myName , myAddress FROM myTable GO "
ExecuteSQLStmt
( sql )
conn
creëren . sluiten ( )
Copy 7 en plak de onderstaande code om gegevens uit de tabel die u hebt gemaakt te halen :
' retreive databank
conn = Nieuwe SqlConnection ( ConnectionString )
conn.Open ( )
Dim da
als Nieuwe SqlDataAdapter ( " MYPROC " , conn )
Dim ds
als Nieuwe Dataset ( " SP " ) op Twitter
da.Fill ( ds , " SP " ) op Twitter
DataGridView1.DataSource = ds.Tables ( 0 )
Conn.Close
( )
Copy 8 en plak de volgende code om een nieuwe procedure om een SQL- commando te sturen creëren :
Private Sub ExecuteSQLStmt ( ByVal sql As String ) op Twitter
Als conn.State = ConnectionState.Open dan
Conn.Close ( )
End
Als
ConnectionString
= " data Source = ; Initial Catalog = ; gebruikers-ID = ; wachtwoord "
conn.ConnectionString = ConnectionString
conn.Open ( ) op
cmd = Nieuwe SqlCommand ( sql , conn ) op Twitter
=
Probeer
cmd.ExecuteNonQuery ( )
Catch ae Zoals SqlException
MessageBox.Show
( ae.Message.ToString ( ) )
End of Probeer < br >
End Sub
Bewerk de volgende code en typ de naam van uw server , database- en inloggegevens :
ConnectionString
= " data Source = ; Initial Catalog = ; gebruikers-ID = , wachtwoord = "
Press 9 " F5 "om het programma vervolgens uitvoeren op" Button1 "om gegevens weer te geven via de data Grid View controle .