الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

عندي مشكلة في جملة Insert ممكن أحد يحلها لي

بدأه قهوة الصباح في 23 ديسمبر 2009 · 6 رد · 609 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

هذا كود التسجيل في برنامج:

المشكلة أني لما أعمل تسجيل ، عملية اضافة الشخص في الداتابيس ما تتم

اذا ممكن تصححون لي الكود.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim con As New OleDbConnection

con.ConnectionString = "provider =microsoft.jet.oledb.4.0;data source=c:\CBL\CBLDB.mdb"

Dim f1(10) As String
Dim f2(10) As String
Dim i As Integer = 0
Dim x, y As String


con.Open()
Dim com As OleDbCommand
If RadioButton1.Checked = True Then
Dim s As String = "select * from student"
com = New OleDbCommand(s, con)
Dim r As OleDbDataReader
r = com.ExecuteReader
While r.Read

f1(i) = r.GetValue(1)
f2(i) = r.GetValue(2)


If TextBox1.Text = f1(i) Then
If TextBox2.Text = f2(i) Then

MsgBox("found")

Exit While
End If
Else
i = i + 1
End If
End While
con.Close()

x = TextBox1.Text
y = TextBox2.Text



Dim w As New OleDbCommand
Dim stable As String = "insert into student(S_name,password)values(x,y)"
w.Connection = con
w.CommandText = stable

con.Open()
w.ExecuteNonQuery()
con.Close()


End If

End sub()
#2

اولا x و y هما متتغيرات و طريقة كتابتهم داخل جملة الإضافه خاطئه

ثانيا الكلمه password محجوزه لدى محرك قاعدة بيانات اكسس قم بإضافة الأقواس حول اسم هذا الحقل حتى تتم عملية الإضافه

لذا تصبح الجمله التى تريدها كالتالى

Dim stable As String = String.Format("insert into student (S_name, password) values ('{0}', '{1}')", TextBox1.Text, TextBox2.Text)

و الله ولى التوفيق

تم تعديل هذه المشاركة بواسطة Muhammad alaa في 23 ديسمبر 2009 في 19:20

مدونتي: C++ Tips and Tricks

#3

عدلت الجملة و ما زال عندي مشكلة في جملة

con.Open()
w.ExecuteNonQuery()
con.Close()

تم تعديل هذه المشاركة بواسطة قهوة الصباح في 23 ديسمبر 2009 في 19:53

#4

جربي هالكود , 

  Try
            Dim w As New OleDbCommand
            w.Connection = con
            w.CommandType = CommandType.Text
            w.CommandText = "INSERT INTO student(Name,password)" & _
            "values('" & TextBox1.Text & "','" & TextBox2.Text & "')"
            con.Open()
            w.ExecuteNonQuery()
            con.Close()
            MsgBox("تمت الإضافة بنجاح ")
        Catch ex As Exception
            Exit Sub

        End Try

إذا كانت المشكلة لازالت موجودة أرفقي برنامجك و بساعدك إذا عرفت :blush: ..

تم تعديل هذه المشاركة بواسطة إشراقــه فجــر في 23 ديسمبر 2009 في 20:39

سبحآن الله وبحمده .. سبحآن الله العظيم .. ,

#5

ما طلع فيه error لكن المشكلة أنه ما أضاف في الداتابيس

#6
قهوة الصباح كتب:

ما طلع فيه error لكن المشكلة أنه ما أضاف في الداتابيس

غيري أسم الحقل password إلى أسم آخر , و إن شآء الله يضبط .. ,

بالتوفيق :happy: ..

سبحآن الله وبحمده .. سبحآن الله العظيم .. ,

#7

المشكلة انحلت والمشكلة فعلا كانت في اسم password

وتمت الاضافة بنجاح

الف الف شكر

مواضيع مشابهة