ايران ويج

Private Sub Command2_Click()
DataGrid1.Visible = False
Dim cnn As New adodb.Connection
Dim rst1 As New adodb.Recordset
Dim rst2 As New adodb.Recordset
Dim strSQL As String
Dim strSQL1 As String
Dim strSQL2 As String
cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=library;Data Source=new"
'"+strSQL = "delete from book Where source_code ='" + Text1.Text
'"+strSQL1 = "delete from source Where source_code ='" + Text1.Text
strSQL2 = "select * from source"
rst1.CursorType = adOpenStatic
rst1.CursorLocation = adUseClient
rst1.LockType = adLockOptimistic
rst1.ActiveConnection = cnn
rst2.CursorType = adOpenststic
rst2.CursorLocation = adUseClient
rst2.LockType = adLockOptimistic
rst2.ActiveConnection = cnn
rst1.Open strSQL1, , , , adCmdText
Set DataGrid1.DataSource = rst1
rst2.Open strSQL2, , , , adCmdText
Set DataGrid1.DataSource = rst2
DataGrid1.Visible = True
("منبع مورد نظر با موفقیت حذف شد.")Msgbox