12-03-14, 07:51 PM
Imports System.Data
Imports System.Data.OleDb
Public Class Form3
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MdiParent = Form1
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str As String
str = " Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Future\Desktop\Howmork3\footb.accdb"
Dim con As OleDbConnection
con = New OleDbConnection(str)
con.Open()
Dim sql As String
sql = "update footbo set pname=@name,numberofscores=@number where id=@id "
Dim comand As OleDbCommand
comand = New OleDbCommand(sql, con)
comand.Parameters.AddWithValue("@id", TextBox1.Text)
comand.Parameters.AddWithValue("@name", TextBox2.Text)
comand.Parameters.AddWithValue("@number", TextBox3.Text)
comand.ExecuteNonQuery()
End Sub
End Class
ممكن المساعدة اشو من انفذ ما يعمل شنو الخخل بالكود
Imports System.Data.OleDb
Public Class Form3
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MdiParent = Form1
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str As String
str = " Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Future\Desktop\Howmork3\footb.accdb"
Dim con As OleDbConnection
con = New OleDbConnection(str)
con.Open()
Dim sql As String
sql = "update footbo set pname=@name,numberofscores=@number where id=@id "
Dim comand As OleDbCommand
comand = New OleDbCommand(sql, con)
comand.Parameters.AddWithValue("@id", TextBox1.Text)
comand.Parameters.AddWithValue("@name", TextBox2.Text)
comand.Parameters.AddWithValue("@number", TextBox3.Text)
comand.ExecuteNonQuery()
End Sub
End Class
ممكن المساعدة اشو من انفذ ما يعمل شنو الخخل بالكود