17-05-14, 06:33 PM
هدا الكود لا يعمل اتصال موجود و لكن لا يضيف القيم في الحقول هل هناك شئ ناقص
كود :
Dim Cnn As New OleDb.OleDbConnection()
Dim cmdadd As New OleDbCommand
Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\othman.mdb"
Cnn.Open()
MsgBox("Connection established!")
cmdadd.CommandText = "INSERT INTO Authors (Name, Password) VALUES (" &
TextBox1.Text & ", '" & TextBox2.Text & "');"
Cnn.Close()