منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] قاعدة البيانات اكسس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : [سؤال] قاعدة البيانات اكسس (/showthread.php?tid=2904)

الصفحات: 1 2

قاعدة البيانات اكسس - vb_net - 17-05-14

السلام عليكم ورحمة الله

ممكن مساعدة من الاخوة في كيفية الاتصال بقاعدة بيانات اكسس

فقد انشئت قاعدة تحتوي على حقلين الاسم و الباسورد

وضعت 2 تكست وزر لادخال

اريد كود كيفية الاتصال بقاعدة البيانات وادخال المعلومات التي ستوضع في تكست 1 و 2 في الحقلين

انا اعمل بقاعدة بيانات اكسس 2003

ولكم جزيل الشكر

RE: قاعدة البيانات اكسس - vb_net - 17-05-14

هدا الكود لا يعمل اتصال موجود و لكن لا يضيف القيم في الحقول هل هناك شئ ناقص

كود :
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()


RE: قاعدة البيانات اكسس - king2512010 - 17-05-14

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

يعنى حضرتك عايز نافذة تكتب فيها الاسم وكلمة السر للدخول للبرنامج صح الكلام

RE: قاعدة البيانات اكسس - king2512010 - 17-05-14

ده كود اسم المستخدم 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

RE: قاعدة البيانات اكسس - king2512010 - 17-05-14

بعد التسجيل بالاسم والباسورد بتدخل على الفورم رقم 2

RE: قاعدة البيانات اكسس - vb_net - 17-05-14

(17-05-14, 06:38 PM)king2512010 كتب : السلام عليكم ورحمة الله وبركاته

يعنى حضرتك عايز نافذة تكتب فيها الاسم وكلمة السر للدخول للبرنامج صح الكلام

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


اريد القيم التي اضع في تكست بوكس 1 و 2 تدخل لقاعدة البيانات

يعني حقل الاول تكتب فيه قيمة تكست الاول

وثاني قيمة التكست الثاني

وهكدا عندما اريد اضافة من جديد يفعل نفس الشئ ويكتب تحت ما كتب سابقا

RE: قاعدة البيانات اكسس - vb_net - 17-05-14

لا يا اخي الامر ليس كما وضعت فدالك سهل

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

RE: قاعدة البيانات اكسس - Sajad - 17-05-14

السلام عليكم

استبدل الكود بهذا الكود:

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() 

تحياتي

RE: قاعدة البيانات اكسس - vb_net - 17-05-14

(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()

RE: قاعدة البيانات اكسس - vb_net - 17-05-14

لو ممكن كود vb.net