The DataGridView är en ActiveX -kontroll som ofta används i Visual Basic - baserade applikationer för bindning och importera data från en extern databas och sedan presentera dessa data i ett kalkylblad - liknande format . Innan du ansluter DataGridView kontroll genom programmeringskod , krävs det att placera kontrollen på din VB Form först . Binda DataGridView kontroll kräver viss kunskap om VB -programmering . När som förvärvas , få det gjort tar bara några enkla steg och rader av kod . Instruktioner
1
Öppna Visual Basic 6 .
2
Välj " Standard EXE " från det nya projektet listan . Du är nu i Visual Basic 6 programmeringsmiljö . Du bör ha en standard main formulär på skärmen för att börja lägga dina kontroller .
3
Klicka på " Projekt " följt av " komponenter . "
4
Scroll nedåt i listan över komponenter och leta efter " Microsoft DataGridView kontroll . " Placera en kontroll i rutan bredvid den och klicka på " OK . " Detta kommer att placera DataGridView kontroll på din verktygslåda kontroll .
5
Välj DataGridView kontroll från verktygslådan . Dra den och släppa den på din huvudsakliga formen för att börja använda det .
6
Gå till huvudmenyn och klicka på " Projekt " följt av " Lägg till modul . " Skriv eller kopiera och klistra in följande kod i modulen :
Private Sub GetData ( ByVal selectCommand As String ) katalog
Prova
'Specificera en anslutning sträng . Ersätt det givna värdet med en
" giltig anslutning sträng för en Northwind SQL Server prov
" databas tillgänglig för ditt system .
Dim connectionString As String = _
" Integrated Security = SSPI ; Persist Security Info = False , " + _
" Initial Catalog = Northwind , Data Source = localhost "
' Skapa en ny dataadapter baserad på specificerade frågan .
Me.dataAdapter = Ny SqlDataAdapter ( selectCommand , connectionString ) katalog
"Skapa ett kommando Builder för att generera SQL update , insert , och sälja
' kommandon tar bort baserat på selectCommand . Dessa används för att
" uppdatera databasen .
Dim commandBuilder Som New SqlCommandBuilder ( Me.dataAdapter ) katalog
' Fylla en ny datatabell och binda den till BindingSource .
Dim bord som ny DataTable ( ) katalog
table.Locale = = Tabell
" Ändra storlek på DataGridView kolumner för att passa den nyligen laddat innehåll .
Me.dataGridView1.AutoResizeColumns ( _
DataGridViewAutoSizeColumnsMode.AllCellsExceptHeader ) katalog
Catch ex som SqlException
MessageBox.Show ( " att köra exemplet ersätta värdet av den " + _
" connectionString variabel med en anslutning sträng som är " + _
" giltigt för ditt system . " ) katalog
End Försök
End Sub
