صفحة ادخال بيانات في الداتا بيز بلغة vb.net

وعليكم السلام ورحمة الله وبركاته .. ,

كود الإضافة ..

Try
Dim SavInto As New OleDb.OleDbCommand
SavInto.Connection = conn
SavInto.CommandType = CommandType.Text
SavInto.CommandText = "INSERT INTO Table1(nameEmp,AgeEmp,AddressEmp)" & _
"values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "') "
conn.Open()
SavInto.ExecuteNonQuery()
da1.Update(ds1, "Table1")
conn.Close()
MsgBox("تمت الإضافة")
Catch ex As Exception
conn.Close()
MsgBox(Err.Description, MsgBoxStyle.Critical)
End Try

بسم الله الرحمن الرحيم

أخى العزيز

رابطي

ده مشروع ممكن يفيدك

إشراقــه فجــر كتب:

وعليكم السلام ورحمة الله وبركاته .. ,

كود الإضافة ..

Try
Dim SavInto As New OleDb.OleDbCommand
SavInto.Connection = conn
SavInto.CommandType = CommandType.Text
SavInto.CommandText = "INSERT INTO Table1(nameEmp,AgeEmp,AddressEmp)" & _
"values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "') "
conn.Open()
SavInto.ExecuteNonQuery()
da1.Update(ds1, "Table1")
conn.Close()
MsgBox("تمت الإضافة")
Catch ex As Exception
conn.Close()
MsgBox(Err.Description, MsgBoxStyle.Critical)
End Try

للتنبيه فقط

يجب عمل البارميتر لانه بمجرد اخذ القيمة مباشرة من الحقل النصي

فاننا نقع باختراق لقاعدة البيانات

sql injection

جزاكم الله خيراً يا اخواني الكرام

شكراُ لك اختي الفاضلة اشراقة

شكرا لك أخي الكريم bodaman22

شكراً لك أخي الفاضل AsJsGle

الحمدلله لقد افدتوني بشكل كبير وجزاكم الله خيراً