Visar Excel-data till ett Visual Basic 6.0 DataGrid -kontroll kan göra ditt VB6 program mer användarvänliga genom att kunna visa data från Excel . VB6 är en dator programmeringsspråk utvecklat av Microsoft . VB6 har ersatts av Visual Basic.NET ( VB.NET ) som använde . NET framework . En DataGrid-kontrollen används för att visa data i ett tabellformat som liknar en databas tabell . Använd ADO för att göra anslutningen till Excel och söka i kalkylbladet med hjälp av en "Välj " SQL-uttryck . När du gör anslutningen till Excel kan du använda ett Recordset för att få tillgång till uppgifterna . Instruktioner
1
Kopiera och klistra in följande kod för att skapa en ny sub förfarande och skapa de variabler som du använder för att göra anslutningen till Excel :
Private Sub displayExcelInDataGrid ( ) Dim rs som ADODB.RecordsetSet rs = New ADODB.RecordsetDim sconn som StringDim sfile As String
2
definiera sökvägen till Excel-kalkylbladet och definiera Recordset egenskaper :
sfile = " C : \\ Temp \\ myXLFile.xls " rs.CursorLocation = adUseClientrs.CursorType = adOpenKeysetrs.LockType = adLockBatchOptimistic
3
Kopiera och klistra in följande kod query " Blad1 " från Excel och visa det genom DataGrid-kontrollen med hjälp av postmängden :
sconn = " DRIVER = Microsoft Excel Driver ( *. xls ) , " & " DBQ = " & sFilers.Open " SELECT * FROM [ ,"Blad1 $ ] " , sconnSet DataGrid1.DataSource = rsEnd Sub
