mohandesan
پنج شنبه 01 شهریور 1386, 05:25 صبح
من در برنامهام می خوام اطلاعات یه جدول access در یکdata view نایش بدهم ملی وقتی دکمه نمایش را میرنم با پیغام خطای Could not find installable ISAM. مواجه می شم
لطفا راهنمایی کنید این ISAM که می گه چیه
اینم کدش
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strsql AsString
Dim strcon AsString
strcon = "provider=microsoft.jet.oledb.4.0;" & "DataSource=db1.mdb"
Dim con AsNew OleDbConnection(strcon)
con.Open()
strsql = "select * from t1 "
Dim da AsNew OleDbDataAdapter(strsql, con)
Dim ds AsNew DataSet()
da.Fill(ds, " t1")
DataGrid1.DataBindings.Add(New Binding("DataSource", ds, "t1"))
con.Close()
EndSub
لطفا راهنمایی کنید این ISAM که می گه چیه
اینم کدش
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strsql AsString
Dim strcon AsString
strcon = "provider=microsoft.jet.oledb.4.0;" & "DataSource=db1.mdb"
Dim con AsNew OleDbConnection(strcon)
con.Open()
strsql = "select * from t1 "
Dim da AsNew OleDbDataAdapter(strsql, con)
Dim ds AsNew DataSet()
da.Fill(ds, " t1")
DataGrid1.DataBindings.Add(New Binding("DataSource", ds, "t1"))
con.Close()
EndSub