1 2 3 4 5 6 7 8 9
| dim strsql as string=" select table1.champs1,table1.champs2,table2.champs1,table2.champs2,table2.champs3,ntable3.c1,table3.c2 from table1 inner join( table2 inner join table3 on table2.champs2=table3.c1)on table1.champs1=table2.champs1"
dim cnn as oledb.connection
cnn.connectionstring="microsoft.jet.oledb.4.0; data source=" & my.application.info.directorypath & "\mabase.mdb;"
cnn.open
.............
dim datap as new oledbdataadapter(strsql,cnn)
dim dset as new dataset
datap.fill(dset)
........... |
Partager