Aprire Microsoft Visual Basic Express e selezionare " Nuovo progetto ... " dal riquadro sinistro dello schermo . Fare clic su " Visual Basic " in " Modelli installati " e fare doppio clic su " Applicazione Windows Form ".
2
Fare clic sul riquadro "Toolbox" e fare doppio clic su "Pulsante " per aggiungere un nuovo pulsante al vostro forma . Fare clic sul menu "Progetto " e selezionare "Proprietà Clicca "Riferimenti ", quindi selezionare "Aggiungi ". Selezionare " COM " e clicca su " ActiveX Data Objects doppio clic su " Button1 " per aprire il modulo " Form1.vb " . Digitare quanto segue nella prima riga sopra " Public Class Form1 " : Imports System.Data.OleDb Imports ADODB Copia e incolla il seguente sotto " Button1_Click " per creare una connessione OLE e creare una tabella in un database di Access : Dim OLEConn Come OleDbConnection Dim OLECmd Come OleDbCommand Dim strSQL As String OLEConn = New OleDbConnection _ ( "Provider = Microsoft.ACE.OLEDB.12.0 ; Data Source = C : \\ Northwind 2007.accdb ; " ) per OLEConn.Open ( ) per strSQL = " CREATE TABLE ThisTable " _ & " ( Nome CHAR , Cognome CHAR ) ; " OLECmd = New OleDbCommand ( strSQL , OLEConn ) per OLECmd.ExecuteNonQuery ( ) per OLEConn.Close ( ) per Edit "Source = C : \\ Northwind 2007.accdb ." e digitare il percorso e il nome per il database di Access Copia e incolla nella riga successiva il seguente codice per creare una connessione ADO a un server SQL e query di una tabella di database : Dim ADOConn As New ADODB.Connection Dim ADORst As New ADODB.Recordset Dim ADORslt As String ADOConn.ConnectionString = "Provider = SQLNCLI10 ; " _ & " Server = il nome del server ; "_ & " Database = il nome del database , "_ &" Integrated Security = SSPI ; " _ & " DataTypeCompatibility = 80; " _ & " MARS Connection = false;" ADOConn.Open ( ) per ADORst.ActiveConnection = ADOConn ADORst = ADOConn.Execute ( "SELECT nome_tabella.nome_campo DA tableName ; ". ) per Mentre (Non ADORst.EOF ) per ADORslt = ADORst.Fields ( " fieldName " ) Valore MsgBox ( ADORslt ) per ADORst.MoveNext ( ) per End While ADOConn.Close ( ) per ADOConn = Nothing
3
4
5
Pagina 6
Informazioni correlate
Programmazione © www.354353.com