DataGridView er et ActiveX-objekt bruges ofte i Visual Basic -baserede programmer for binding og importere data fra en ekstern database og derefter præsentere disse data i et regneark -lignende format. Før tilslutning af DataGridView kontrol gennem programmering kode , er det nødvendigt at placere kontrollen på din VB Form først. Bindende DataGridView kontrol kræver et vist kendskab til VB programmering. Når dette er opnået , at få det gjort tager kun et par enkle trin og linjer af kode. Instruktioner
1

Open Visual Basic 6 .
2

Vælg "Standard EXE " fra det nye projekt listen. Du er nu i Visual Basic 6 programmeringsmiljø . Du bør have en standard main formular på skærmen for at begynde at tilføje din kontrol .
3

Klik på " Project" efterfulgt af " Komponenter ".
4

Scroll en liste over komponenter , og se efter "Microsoft DataGridView kontrol . " Placer en check i boksen ved siden af ​​den, og klik på "OK ". Dette vil placere DataGridView kontrol på din værktøjskasse kontrol.
5.

Vælg DataGridView kontrol fra værktøjskassen . Træk det og slippe det på din vigtigste form at begynde at bruge den.
6

Gå til den øverste menu , og klik på " Project" efterfulgt af " Tilføj Module ". Skriv eller kopiere og indsætte følgende kode i modulet : Hej

Private Sub GetData ( ByVal selectCommand As String )

Prøv

'Angiv en forbindelse streng. Udskift den givne værdi med en

»gyldig forbindelse streng til en Northwind SQL Server prøve

» database tilgængelig for dit system.

Dim connectionString As String = _

" Integrated Security = SSPI , Persist Security Info = False , " + _

"Initial Catalog = Northwind , datakilde = localhost "

' Opret et nyt data -adapter baseret på specificeret forespørgsel.

Me.dataAdapter = Ny SqlDataAdapter ( selectCommand , connectionString )

'Opret en kommando bygherre til at generere SQL opdatering , insert, og sælg

' Slet kommandoer baseret på selectCommand . Disse bruges til

' opdatere databasen.

Dim commandBuilder Da New SqlCommandBuilder ( Me.dataAdapter )

' udfylde en ny datatabel og binde det til BindingSource .

Dim tabel som New DataTable ()

table.Locale = = Table

' Resize DataGridView kolonner til at passe den nyligt indlæst indhold.

Me.dataGridView1.AutoResizeColumns (_

DataGridViewAutoSizeColumnsMode.AllCellsExceptHeader )

Fang ex Da SQLException

MessageBox.Show ( "For at køre dette eksempel erstatte værdien af" + _

" connectionString variabel med en forbindelse streng , der er" + _
< p > "gyldigt til dit system. " )

End Prøv

End Sub