حد يدلني على كود الحفظ في الدوت نت مع أكسس علما بأن.....

السلام عليكم

رمضان مبارك سعيد

المرجو الادلاء بأسماء المتغيرات في قاعدة البيانات واللغة المستعملة والتقنية (déconnecté/connecté)

من أجل الضبط

تحياتي

الكود يكون على النحو التالي

اقتباس

Imports System.Data

Imports System.Data.OleDb

Private Sub save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save.Click

Try

Dim enrg As New OleDb.OleDbCommand

Dim ConStr As String = _

"Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _

'مسار قاعدة البانات غيره باسم قاعدة بياناتك Application.StartupPath & "\mydata.mdb"

Dim Conn As New OleDbConnection(ConStr)

enrg.Connection = Conn

enrg.CommandType = CommandType.Text

enrg.CommandText = "INSERT INTO custumers(code,name,adresse,....)" & _

"values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "') "

Conn.Open()

enrg.ExecuteNonQuery()

Conn.Close()

MsgBox("Le Nouveau client Est Bien Ajouté")

Me.Close()

Catch ex As Exception

Exit Sub

End Try

End Sub

حيث '" & TextBox1.Text & "', هي التاكست بوكس اللي في الفورم تبعك وغيرها باسمائها

كود الاتصال هو كالتالي ..

		DBcon = New OleDbConnection()
		DBcon.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source =.\datas.mdb"
		DBcon.Open()

كود عمل انسرت هو ك التالي ...

		command = New OleDbCommand("insert into users(name,domains,wsn,mobile,email,notes) values('" & Cname.Text & "','" & Domin.Text & "','" & WSN.Text & "','" & Cmobile.Text & "','" & email.Text & "','" & notes.Text & "')", DBcon)
		command.ExecuteNonQuery()

يجب عليك تعريف التالي من الحاجات

Imports System.Data.OleDb



	Public DBcon As OleDbConnection
	Public command As New OleDbCommand