اجرا کردن مستقیم دستور 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 را اجرا کنم :گیج:

[sh]

این چند خط کد رو نکاه کن


If TextBox1.Text = "" Then
MessageBox.Show("لطفا شماره ردیف را وارد نمائید", "حذف شماره ردیف ماشین", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Exit Sub
End If

Dim sql As String
If CheckBox1.Checked = False Then
sql = "delete * from Machin where del=false and radif=" & TextBox1.Text
Else
sql = "delete * from Machin where del=true and radif=" & TextBox1.Text
End If
If OleDbConnection1.State = ConnectionState.Closed Then OleDbConnection1.Open()
Try
OleDbDataAdapter1.DeleteCommand.CommandText = sql
OleDbDataAdapter1.DeleteCommand.ExecuteNonQuery()
Catch ex As OleDb.OleDbException
MessageBox.Show("برای رفع مشکل با برنامه نویس تماس بگیرید" & vbCrLf & ex.Message.ToString, "خطا", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try


ثانیا به جا نوشتن چند خط برای ConnectionString اینطور بنویس


If MDB has a database password

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\somepath\mydb.mdb;" & _
"Jet OLEDB:Database Password=MyDbPassword", _
"myUsername", "myPassword"

If want to open up the MDB exclusively

oConn.Mode = adModeShareExclusive
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\somepath\myDb.mdb;" & _
"User Id=admin;" & _
"Password="