Viser Excel-data til en Visual Basic 6.0 DataGrid kontrol kan gøre din VB6 programmer mere brugervenlige ved at kunne vise data fra Excel. VB6 er en computer programmeringssprog udviklet af Microsoft. VB6 er blevet erstattet af Visual Basic.NET ( VB.NET ), der benyttede . NET framework . En DataGrid kontrol bruges til at vise data i et tabelformat ligner en database tabel . Brug ADO at gøre forbindelsen til Excel og forespørge regnearket ved hjælp af en "Vælg" SQL-sætning. Når du foretager tilslutning til Excel , så kan du bruge en Recordset til at få adgang til dataene. Instruktioner
1
Kopier og indsæt følgende kode til at oprette en ny sub procedure og skabe de variabler, du vil bruge til at gøre forbindelsen til Excel :
Private Sub displayExcelInDataGrid ( ) Dim rs som ADODB.RecordsetSet rs = Ny ADODB.RecordsetDim sconn som StringDim $ file As String
2
Definer stien til din Excel-regneark og definere postsættet egenskaber : Hej
$ file = " C : \\ Temp \\ myXLFile.xls " rs.CursorLocation = adUseClientrs.CursorType = adOpenKeysetrs.LockType = adLockBatchOptimistic
3
Kopier og indsæt følgende kode forespørgslen " Ark1 "fra Excel og vise det gennem DataGrid kontrol ved at bruge postsættet : Hej
sconn = " dRIVER = Microsoft Excel -driver ( . * xls ) " & " DBQ = " & sFilers.Open "SELECT * FROM [ ,"Ark1 $] " , sconnSet DataGrid1.DataSource = rsEnd Sub