19-03-18, 11:32 AM
السلام عليكم ورحمة الله وبركاته
كيف الحال
مشكلتي في ربط قاعدة بيانات اكسيس بالفيجوال بيسك
قمت بأكثر من طريقة ومازلت المششكلة موجودة ..عندما اقوم بتيل مفروض المعلومات الي سجلتها تنحفظ في داتابيس ! "قاعدة البيانات"
بس مشكلة ما تحفظ مع اني ربطها ...يقول لي انه خطأ في انسيرت بس مدري شو غلط بضبط
اسم قاعدة البيانات
user
الداتا الي داخلها
Id نوعه= اوتو نمبر
Name=تيكت
Password=تيكست
Email=تيكست
Gender=تيكست
Age =نمبر
وهذا هو الكود ...
هذا الملف كامل مع قاعدة البيانات ...و البرنامج نفسه الي قدر يشيك عليه ويخبرني الحل اكون شاكرة
التقيم يوم الخميس تاريخ 22 ولازم نراوي المس النظام قبل الخميس عليه 40 درجة رجاءا حد يساعدني وشكراا
كيف الحال
مشكلتي في ربط قاعدة بيانات اكسيس بالفيجوال بيسك
قمت بأكثر من طريقة ومازلت المششكلة موجودة ..عندما اقوم بتيل مفروض المعلومات الي سجلتها تنحفظ في داتابيس ! "قاعدة البيانات"
بس مشكلة ما تحفظ مع اني ربطها ...يقول لي انه خطأ في انسيرت بس مدري شو غلط بضبط
اسم قاعدة البيانات
user
الداتا الي داخلها
Id نوعه= اوتو نمبر
Name=تيكت
Password=تيكست
Email=تيكست
Gender=تيكست
Age =نمبر
وهذا هو الكود ...
كود :
Imports System.Data.OleDb
Public Class registration
Dim conn As New OleDbConnection
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
End Sub
Private Sub Regastration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + IO.Directory.GetCurrentDirectory + "\user.mdb"
End Sub
Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Close()
Form1.Show()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Then
MsgBox("you should complete your details")
Else
conn.Open()
Dim cominsert As New OleDbCommand
cominsert.Connection = conn
cominsert.CommandText = "insert into user values('" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox4.Text + "'," + ComboBox1.Text + "','" + TextBox5.Text + "')"
cominsert.ExecuteNonQuery()
MsgBox("registration is complete")
conn.Close()
End If
End Sub
End Class
هذا الملف كامل مع قاعدة البيانات ...و البرنامج نفسه الي قدر يشيك عليه ويخبرني الحل اكون شاكرة
التقيم يوم الخميس تاريخ 22 ولازم نراوي المس النظام قبل الخميس عليه 40 درجة رجاءا حد يساعدني وشكراا