De DataGridView is een ActiveX-besturingselement vaak gebruikt in Visual Basic - gebaseerde applicaties voor binding en importeren van gegevens uit een externe database en vervolgens presenteren van die gegevens in een spreadsheet - achtige format . Voorafgaand aan verbinden DataGridView controle door programmeercode is het vereist om de controle op de VB Form eerste plaats . Het binden van de DataGridView controle vereist enige kennis van VB programmering . Zodra dat is verworven , krijgen van het gebeuren duurt slechts een paar simpele stappen en regels code . Instructies
1 Open Visual Basic 6 . Kopen van 2 Selecteer " Standard EXE " uit het nieuwe project lijst . U bent nu in de Visual Basic 6 programmeeromgeving . Je moet over een standaard hoofdvorm op uw scherm om te beginnen met het toevoegen van uw controles .
3 Klik op " Project " , gevolgd door " Components . "
Scroll 4 onderaan de lijst met onderdelen en zoek naar " Microsoft DataGridView controle . " Plaats een vinkje in het vakje ernaast en klik op "OK . " Dit zal de DataGridView controle op uw ToolBox controle te plaatsen.
5 Selecteer de DataGridView controle van de ToolBox . Sleep het en zet het op je hoofd formulier te gaan gebruiken .
6 Ga naar het hoofdmenu en klik op " Project " , gevolgd door " Module toevoegen . " Typ of kopieer en plak de volgende code in de module : Private Sub GetData
( ByVal SelectCommand As String ) op Twitter Try ' Geef een verbinding string . Vervang de opgegeven waarde met een
' geldige verbinding string voor een Northwind SQL Server sample
' databank toegankelijk zijn voor uw systeem . Dim connectionString
As String = _
" Integrated Security = SSPI ; Duur Veiligheid Info = False ; " + _ "Initial Catalog = Noordenwind ; data Source = localhost "
' Maak een nieuwe data -adapter op basis van de opgegeven zoekopdracht.
Me.dataAdapter = Nieuw SqlDataAdapter ( SelectCommand , connectionString ) op ' een commando builder maken om SQL -update , insert en
genereren ' commando delete gebaseerd op SelectCommand . Deze worden gebruikt om
' updaten van de database . Dim CommandBuilder
als Nieuwe SqlCommandBuilder ( Me.dataAdapter ) op ' een nieuwe data tabel Populate en binden aan de BindingSource . Dim tafel
als Nieuwe DataTable ( ) op table.Locale = = Tafel
' Resize de DataGridView kolommen aan de nieuw geladen inhoud past . Me.dataGridView1.AutoResizeColumns
( _ DataGridViewAutoSizeColumnsMode.AllCellsExceptHeader
) op Twitter Catch ex Zoals SqlException MessageBox.Show
( " dit voorbeeld wilt uitvoeren , vervangt u de waarde van de " + _
" connectionString variabele met een verbinding string , dat is " + _
"geldig voor uw systeem . " ) End of Probeer End Sub
|
