Hoi hoe krijk ik mijn excelsheets in listbox of cmbox ?
Heb code... doch krijg het niet goed :
If CnnADO_Excel.State <> adStateClosed Then CnnADO_Excel.Close
ExcelPath = Form_98.Dir1.Path & "\"
ExcelName = Form_98.File1.FileName
CnnADO_Excel.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ExcelPath & ExcelName & ";" & _
"Extended Properties=""Excel 8.0;HDR=Yes"";"
Set Rsado_Excel = CnnADO_Excel.OpenSchema(adSchemaTables)
Rsado_Excel.MoveFirst
Do While Rsado_Excel.EOF
Form_03.CMBMap.AddItem Rsado_Excel.Fields("TABLE_NAME").Value
Rsado_Excel.MoveNext
Loop
Rsado_Excel.Close
Set Rsado_Excel = Nothing


Er zijn 1 reacties in dit onderwerp
#1
Geplaatst op 04 februari 2015 - 22:04
#2
Geplaatst op 04 februari 2015 - 22:38
Probleem deels opgelost :
Set Rsado_Excel = CnnADO_Excel.OpenSchema(adSchemaTables, _
Array(Empty, Empty, Empty, "Table"))
Rsado_Excel.MoveFirst
Do While Not Rsado_Excel.EOF
Form_03.CMBMap.AddItem Rsado_Excel!TABLE_NAME
Rsado_Excel.MoveNext
Loop
Maar ik krijg een dubbele waarde in 'cmbmap' ... op het einde van item komt er 'afdruktitels' erbij.
Set Rsado_Excel = CnnADO_Excel.OpenSchema(adSchemaTables, _
Array(Empty, Empty, Empty, "Table"))
Rsado_Excel.MoveFirst
Do While Not Rsado_Excel.EOF
Form_03.CMBMap.AddItem Rsado_Excel!TABLE_NAME
Rsado_Excel.MoveNext
Loop
Maar ik krijg een dubbele waarde in 'cmbmap' ... op het einde van item komt er 'afdruktitels' erbij.
Ook met taq VB6 voorzien
VB6
.Net →
VB6 →
Gelijke Getallen Voorkomen In Multi RndBegonnen door houthalen , 28 nov 2019 |
|
![]()
|
||
VB6
.Net →
VB6 →
Een Programma Wissen In Gebruik.Begonnen door houthalen , 11 nov 2019 |
|
![]()
|
||
VB6
.Net →
VB6 →
Een Label Caption Oneindig HerhalenBegonnen door houthalen , 06 okt 2019 |
|
![]()
|
||
VB6
.Net →
VB6 →
Een LabelBegonnen door houthalen , 06 okt 2019 |
|
![]()
|
||
VB6
.Net →
VB6 →
Problemen Met Xmlhttp.Begonnen door Ludi , 17 sep 2019 |
|
![]()
|
0 gebruiker(s) lezen dit onderwerp
0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers