Viser Excel-data til et Visual Basic 6.0 DataGrid kontroll kan gjøre VB6 programmene mer brukervennlige ved å kunne vise data fra Excel. VB6 er et programmeringsspråk utviklet av Microsoft. VB6 har blitt erstattet av Visual Basic.NET ( VB.NET ) som brukes . NET rammeverket . En DataGrid kontrollen brukes til å vise data i tabellform format som ligner på en database tabell . Bruk ADO å gjøre tilkoblingen til Excel og søke i regnearket ved hjelp av en "Select " SQL-setning. Når du gjør tilkoblingen til Excel så kan du bruke et Recordset å få tilgang til data . Instruksjoner
en
Kopier og lim inn følgende kode for å opprette en ny sub prosedyre og skape de variablene du vil bruke for å gjøre tilkoblingen til Excel :
Private Sub displayExcelInDataGrid ( ) Dim rs som ADODB.RecordsetSet rs = Ny ADODB.RecordsetDim sconn som StringDim sFile As String
2
Definer banen til Excel regneark og definere recordset egenskaper : en
sFile = "C : \\ Temp \\ myXLFile.xls " rs.CursorLocation = adUseClientrs.CursorType = adOpenKeysetrs.LockType = adLockBatchOptimistic
3
Kopier og lim inn følgende kode søket" Ark1 "fra Excel og vise det gjennom DataGrid kontroll ved hjelp av postsett:
sconn = " DRIVER = Microsoft Excel Driver ( *. xls )," & " DBQ = " & sFilers.Open "SELECT * FROM [ ,"ark1 $] " , sconnSet DataGrid1.DataSource = rsende Sub