26-01-19, 10:53 PM
بسم الله الرحمن الرحيم
هناك خطأ بالاتصال حين الضغط على زر الاضافة وهو فتح الاتصال
ارفق لكم المثال في فورم daleel
هناك خطأ بالاتصال حين الضغط على زر الاضافة وهو فتح الاتصال
ارفق لكم المثال في فورم daleel
Imports System.Data
Imports System.Data.OleDb
Public Class daleel
Private Sub bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt1.Click
dataconnection()
Dim cmd As New OleDbCommand
cmd.Connection = cnn
cmd.CommandText = "INSERT INTO [daleel] (id,kism,raesy,hesab) VALUES('" & T1.Text & "','" & t2.Text & "','" & t3.Text & "','" & t4.Text & "')"
cmd.ExecuteNonQuery()
MsgBox("تمت عملية حفظ البيانات بنجاح")
cnn.Close()
End Sub
End Classdataconnection()Private Sub bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt1.Click
dataconnection()
cmd.Connection = cnn
cmd.CommandText = "INSERT INTO [daleel] " &
"([id],[kism],[raesy],[hesab]) VALUES" &
"(" & Val(T1.Text) & "," & Val(t2.Text) & "," & Val(t3.Text) & ",'" & t4.Text & "')"
cmd.ExecuteNonQuery()
cnn.Close()
End Sub