vahid2006
چهارشنبه 19 مهر 1385, 20:15 عصر
با سلام
من برای نمایش داده های بانک اطلاعاتی از دیتا گرید ا از کد زیر برای این منظور ستفاده کردم .اما برای خط
da.Fill(ds, "table1")
، error میده.لطفا راهنمایی کنین.(آخه من برنامه نویسی رو تازه شروع کردم اگه سوال من خیلی سطح پایین باشه معذرت میخوام.:خجالت: )در ضمن من برای بانک اطلاعاتی از Access2003استفاده کردم.
Dim con AsNew OleDbConnection
Dim m AsString
m = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database Locking Mode=1;Data Source=data\TEST1.mdb;Jet OLEDB:Engine Type=5;Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:System database=;Jet OLEDB:SFP=False;persist security info=False;Extended Properties=;Mode=Share Deny None;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Create System Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;User ID=Admin;Jet OLEDB:Global Bulk Transactions=1"
con =
New OleDbConnection(m)
Dim strsql AsString
Dim ds AsNew DataSet
con.Open()
strsql = " SELECT organ as [نام سازمان] ,manage as [دبیر اجرایی] ,direct as [هیات موسس],date2 as [تاریخ ثبت],num as [شماره ثبت], address as [آدرس],subject as [موضوع فعالیت],other as [سایر],tel as [تلفن], address as [آدرس] , fax as [نمابر] , email as [ایمیل] , sabt as [وضعیت ثبت], lice as [شماره مجوز],active as فعال,disactive as [غیر فعال] FROM dchq where organ like '" + "%" + TextBox1.Text + "%" + "' "
Dim da AsNew OleDbDataAdapter(strsql, con)
ds.Clear()
DataGrid1.DataBindings.Clear()
da.Fill(ds, "table2")
DataGrid1.DataBindings.Add(New Binding("DataSource", ds, "table2"))
con.Close()
من برای نمایش داده های بانک اطلاعاتی از دیتا گرید ا از کد زیر برای این منظور ستفاده کردم .اما برای خط
da.Fill(ds, "table1")
، error میده.لطفا راهنمایی کنین.(آخه من برنامه نویسی رو تازه شروع کردم اگه سوال من خیلی سطح پایین باشه معذرت میخوام.:خجالت: )در ضمن من برای بانک اطلاعاتی از Access2003استفاده کردم.
Dim con AsNew OleDbConnection
Dim m AsString
m = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database Locking Mode=1;Data Source=data\TEST1.mdb;Jet OLEDB:Engine Type=5;Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:System database=;Jet OLEDB:SFP=False;persist security info=False;Extended Properties=;Mode=Share Deny None;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Create System Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;User ID=Admin;Jet OLEDB:Global Bulk Transactions=1"
con =
New OleDbConnection(m)
Dim strsql AsString
Dim ds AsNew DataSet
con.Open()
strsql = " SELECT organ as [نام سازمان] ,manage as [دبیر اجرایی] ,direct as [هیات موسس],date2 as [تاریخ ثبت],num as [شماره ثبت], address as [آدرس],subject as [موضوع فعالیت],other as [سایر],tel as [تلفن], address as [آدرس] , fax as [نمابر] , email as [ایمیل] , sabt as [وضعیت ثبت], lice as [شماره مجوز],active as فعال,disactive as [غیر فعال] FROM dchq where organ like '" + "%" + TextBox1.Text + "%" + "' "
Dim da AsNew OleDbDataAdapter(strsql, con)
ds.Clear()
DataGrid1.DataBindings.Clear()
da.Fill(ds, "table2")
DataGrid1.DataBindings.Add(New Binding("DataSource", ds, "table2"))
con.Close()