اريد مساعدة بكود بحث وكود وتعديل

اقتباس

If MsgBox(" هل تريد حفظ التعديل على السجل الحالي ؟ ", MsgBoxStyle.OkCancel, "تأكيد الحفظ") = MsgBoxResult.Cancel Then

Exit Sub

End If

Try

Dim SavInto As New OleDb.OleDbCommand

CreateConn()

SavInto.Connection = getConn()

SavInto.CommandType = CommandType.Text

SavInto.CommandText = "update tbl set " & _

"aaa='" & Me.txtbox1.Text & "' ," & _

"bbb='" & Me.txtbox2.Text & "'," & _

"ccc='" & Me.txtbox3.Text & "', " & _

"ddd=" & Me.combobox1.SelectedValue.ToString & "," & _

"fff='" & Me.txtbox4.Text & "' where xxx = " & CType(Me.txtbox.Text, Integer)

OpenConn()

If SavInto.ExecuteNonQuery() Then

'----------------------------------------

SavInto.Dispose()

SavInto = Nothing

CloseConn()

Else

MsgBox("فشلت عملية التعديل", MsgBoxStyle.MsgBoxRight, "رسالة خطأ")

End If

Catch ex As Exception

MsgBox(ex.Message)

End Try

اما تعديل الكود

اقتباس

عرف في قسم التصريحات العامة

Friend MyDataView As DataView

Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _

Application.StartupPath & "\yourDBname.mdb"

Dim x As String

Dim Conn As New OleDbConnection(ConStr)

Dim DataSet1 As New DataSet

Dim SQLstr As String

x = InputBox("TTT")

SQLstr = "SELECT * FROM Table1 WHERE name= '" & x & "'"

Conn.Open()

Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)

DataAdapter1.Fill(DataSet1, "Table1")

'-------------------------------------

' Set the DataView object to the DataSet object...

MyDataView = New DataView(ds.Tables("Table1"))

Conn.Close()

If Me.BindingContext(DataSet1, "Table1").Count = 0 Then

MsgBox("no ")

Me.txtbox1.DataBindings.Add(New Binding("Text", MyDataView, "your database field "))

Me.txtbox2.DataBindings.Add(New Binding("Text", MyDataView, "your database field 1"))

Else

MsgBox("yes ")

Exit Sub

End IF