ساران سافت
چهارشنبه 14 بهمن 1383, 23:32 عصر
باسلام
من به این شکل به دیتابیس دسترسی پیدا کردم
Dim dsType As New DataSet
Dim Con As New OleDb.OleDbConnection("Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database Locking Mode=0;Data Source=" + Path + " ;Mode=Share Deny None;Jet OLEDB:Engine Type=4;Provider= Microsoft.Jet.OLEDB.4.0 ;Jet OLEDB:System database=;Jet OLEDB:SFP=False;persist security info=False;Extended Properties=;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Create System Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;User ID=Admin;Jet OLEDB:Global Bulk Transactions=1")
Dim DaType As New OleDb.OleDbDataAdapter("Select * from Type", Con.ConnectionString.ToString)
'Fill cmbType with Type
Try
DaType.Fill(dsType, "Type")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
حال می خواهم بدانم چطوری میتوانم مستقیم روی این دیتا ست دستور SQL را اجرا کنم :گیج:
من به این شکل به دیتابیس دسترسی پیدا کردم
Dim dsType As New DataSet
Dim Con As New OleDb.OleDbConnection("Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database Locking Mode=0;Data Source=" + Path + " ;Mode=Share Deny None;Jet OLEDB:Engine Type=4;Provider= Microsoft.Jet.OLEDB.4.0 ;Jet OLEDB:System database=;Jet OLEDB:SFP=False;persist security info=False;Extended Properties=;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Create System Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;User ID=Admin;Jet OLEDB:Global Bulk Transactions=1")
Dim DaType As New OleDb.OleDbDataAdapter("Select * from Type", Con.ConnectionString.ToString)
'Fill cmbType with Type
Try
DaType.Fill(dsType, "Type")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
حال می خواهم بدانم چطوری میتوانم مستقیم روی این دیتا ست دستور SQL را اجرا کنم :گیج: