Advertisement
Advertisement
| 07.07.2008 at 10:40AM PDT, ID: 23544104 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: |
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
constring = "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\Documents and Settings\NaomiB\My Documents\db1.mdb;Uid=Admin;Pwd=;"
Dim theodbcCommand As New OdbcCommand("select * from t1", New OdbcConnection(constring))
Dim thedataset As New DataSet
Dim thedataadapter As New OdbcDataAdapter(theodbcCommand)
thedataadapter.Fill(thedataset)
DataGrid1.DataSource = thedataset
DataGrid1.DataMember = "eng"
End Sub
|