السلام عليكم ورحمة الله
ممكن مساعدة من الاخوة في كيفية الاتصال بقاعدة بيانات اكسس
فقد انشئت قاعدة تحتوي على حقلين الاسم و الباسورد
وضعت 2 تكست وزر لادخال
اريد كود كيفية الاتصال بقاعدة البيانات وادخال المعلومات التي ستوضع في تكست 1 و 2 في الحقلين
انا اعمل بقاعدة بيانات اكسس 2003
ولكم جزيل الشكر
هدا الكود لا يعمل اتصال موجود و لكن لا يضيف القيم في الحقول هل هناك شئ ناقص
كود :
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()
السلام عليكم ورحمة الله وبركاته
يعنى حضرتك عايز نافذة تكتب فيها الاسم وكلمة السر للدخول للبرنامج صح الكلام
ده كود اسم المستخدم ali وكلمة السر 123456
Private Sub Command2_Click()
If Text1.Text = "ALI" And Text2.Text = "123456" Then
Form1.Hide
Form2.Show
Text1.Text = ""
Text2.Text = ""
Else
MsgBox "password worng", vbOKOnly + vbCritical, "worng"
End If
End Sub
بعد التسجيل بالاسم والباسورد بتدخل على الفورم رقم 2
(17-05-14, 06:38 PM)king2512010 كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
يعنى حضرتك عايز نافذة تكتب فيها الاسم وكلمة السر للدخول للبرنامج صح الكلام
لا اخي فقط انا اتعلم ربط قاعدة البيانات
اريد القيم التي اضع في تكست بوكس 1 و 2 تدخل لقاعدة البيانات
يعني حقل الاول تكتب فيه قيمة تكست الاول
وثاني قيمة التكست الثاني
وهكدا عندما اريد اضافة من جديد يفعل نفس الشئ ويكتب تحت ما كتب سابقا
لا يا اخي الامر ليس كما وضعت فدالك سهل
انا اريد ادخال البيانات الى قاعدة البيانات
السلام عليكم
استبدل الكود بهذا الكود:
PHP كود :
Dim Cnn As New OleDb.OleDbConnection()
Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\othman.mdb"
MsgBox("Connection established!")
Dim cmd as new OleDBCommand("INSERT INTO Authors (Name, Password) VALUES (" &
TextBox1.Text & ", '" & TextBox2.Text & "');",Cnn)
Cnn.Open()
cmd.ExcuteNoneQuery()
Cnn.Close()
تحياتي
(17-05-14, 06:49 PM)Sajad كتب : [ -> ]السلام عليكم
استبدل الكود بهذا الكود:
PHP كود :
Dim Cnn As New OleDb.OleDbConnection()
Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\othman.mdb"
MsgBox("Connection established!")
Dim cmd as new OleDBCommand("INSERT INTO Authors (Name, Password) VALUES (" &
TextBox1.Text & ", '" & TextBox2.Text & "');",Cnn)
Cnn.Open()
cmd.ExcuteNoneQuery()
Cnn.Close()
تحياتي
لم ينجح الكود اخي هنا يعطي خطا
cmd.ExecuteNonQuery()