تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مشكلة فى كود حفظ بالداتا بيز
#1
إقتباس : Private Sub Save_Record()
Dim conn As New OleDbConnection
Dim cmd As New OleDbCommand
Dim sSQL As String = String.Empty


Try
'get connection string declared in the Module1.vb and assing it to conn variable
conn = New OleDbConnection(Get_Constring)
conn.Open()
cmd.Connection = conn
cmd.CommandType = CommandType.Text

sSQL = "INSERT INTO [Main] (Code, txtLastName, dtpDOB, area, line, note)"
sSQL = sSQL & " VALUES(@fileno, @drname, @date, @area, @line, @note)"
cmd.CommandText = sSQL


'set paramaters
cmd.Parameters.Add("@fileno", OleDbType.VarChar).Value = IIf(Len(Trim(Me.Code.Text)) > 0, Me.Code.Text, DBNull.Value)
cmd.Parameters.Add("@drname", OleDbType.VarChar).Value = IIf(Len(Trim(Me.txtLastName.Text)) > 0, Me.txtLastName.Text, DBNull.Value)
cmd.Parameters.Add("@area", OleDbType.VarChar).Value = IIf(Len(Trim(Me.area.Text)) > 0, Me.area.Text, DBNull.Value)
cmd.Parameters.Add("@date", OleDbType.Date).Value = IIf(Me.dtpDOB.Text <> " ", Me.dtpDOB.Value, DBNull.Value)
cmd.Parameters.Add("@date", OleDbType.Date).Value = Me.dtpDOB.Text


cmd.Parameters.Add("@line", OleDbType.VarChar).Value = IIf(Len(Trim(Me.line.Text)) > 0, Me.line.Text, DBNull.Value)
cmd.Parameters.Add("@note", OleDbType.VarChar).Value = IIf(Len(Trim(Me.note.Text)) > 0, Me.note.Text, DBNull.Value)

cmd.ExecuteNonQuery()

'If the record is new then we have to get its ID so that we can edit it rightaway after the insertion.

MsgBox("Data has been save.")

Catch ex As Exception
MsgBox(ErrorToString)
Finally
conn.Close()
End Try
End Sub

ما المشكلة فى هذا الكود

تظهر لى رسالة

Syntax error in INSERT INTO statement.
الرد }}}
تم الشكر بواسطة:
#2
The INSERT INTO statement contains the following unknown field name: 'Code'. Make sure you have typed the name correctly, and try the operation again.
---------------------------
OK
---------------------------
ظهرت تلك الرسالة علماً ان هذا الحقل فى قاعدة البيانات Number

كود :
sSQL = "INSERT INTO [Main] ([Code], [txtLastName], [dtpDOB], [area], [line], [note])"
            sSQL = sSQL & "  VALUES(@fileno, @drname, @date, @area, @line, @note)"
            cmd.CommandText = sSQL
            

            'set paramaters
            cmd.Parameters.Add("@fileno", OleDbType.VarChar).Value = IIf(Len(Trim(Me.Code.Text)) > 0, Me.Code.Text, DBNull.Value)
            cmd.Parameters.Add("@drname", OleDbType.VarChar).Value = IIf(Len(Trim(Me.txtLastName.Text)) > 0, Me.txtLastName.Text, DBNull.Value)
            cmd.Parameters.Add("@date", OleDbType.Date).Value = IIf(Me.dtpDOB.Text <> " ", Me.dtpDOB.Value, DBNull.Value)
            cmd.Parameters.Add("@date", OleDbType.Date).Value = Me.dtpDOB.Text
            cmd.Parameters.Add("@area", OleDbType.VarChar).Value = IIf(Len(Trim(Me.area.Text)) > 0, Me.area.Text, DBNull.Value)
            cmd.Parameters.Add("@line", OleDbType.VarChar).Value = IIf(Len(Trim(Me.line.Text)) > 0, Me.line.Text, DBNull.Value)
            cmd.Parameters.Add("@note", OleDbType.VarChar).Value = IIf(Len(Trim(Me.note.Text)) > 0, Me.note.Text, DBNull.Value)

            cmd.ExecuteNonQuery()
الرد }}}
تم الشكر بواسطة:
#3
اسماء الحقول فى قاعدة البيانات بالترتيب

كود :
id  = autonumber
fileno = number
drname = text
date = date/time
area = text
line = text
note = memo
قمبت بتغيير اسم الحقل وتذال الرسالة موجودة
الرد }}}
تم الشكر بواسطة:
#4
الحقل الاول ترقيم تلقائى الرجاء المساعدة
الرد }}}
تم الشكر بواسطة:
#5
.....

كود :
' وضع اسم الجدول واسماء الحقول بين أقواس مربعة [] ولكن اسماء البارمترات لا توضع بين أقواس
sSQL = "INSERT INTO [Main] ( [fileno],  [drname], [date], [area], [line], [note] )"
sSQL = sSQL & " VALUES ( @fileno  , @drname, @date, @area, @line, @note )"
cmd.CommandText = sSQL

' في التعامل مع الأكسس ترتيب أسطر البارامترات يجب أن يكون بنفس ترتيب اسمائها في جملة إسكيوإل
cmd.Parameters.AddWithValue("@fileno", Val(Me.Code.Text))
cmd.Parameters.AddWithValue("@drname", Me.txtLastName.Text.Trim)
cmd.Parameters.AddWithValue("@date", Me.dtpDOB.Value)
cmd.Parameters.AddWithValue("@area", Me.area.Text.Trim)
cmd.Parameters.AddWithValue("@line", Me.line.Text.Trim)
cmd.Parameters.AddWithValue("@note", Me.note.Text.Trim)

.....
الرد }}}
تم الشكر بواسطة:
#6
---------------------------
Address_Book
---------------------------
No value given for one or more required parameters.
---------------------------
OK
---------------------------
تظهر بذالك الكود

بعد تعديلة بالشكل التى
كود :
sSQL = "INSERT INTO [Main] ( [txtcode],  [drname], [dtpDOB], [area], [line], [note] )"
            sSQL = sSQL & " VALUES ( @fileno  , @drname, @date, @area, @line, @note )"
            cmd.CommandText = sSQL

            ' في التعامل مع الأكسس ترتيب أسطر البارامترات يجب أن يكون بنفس ترتيب اسمائها في جملة إسكيوإل
            cmd.Parameters.AddWithValue("@fileno", Val(Me.txtcode.Text))
            cmd.Parameters.AddWithValue("@drname", Me.txtLastName.Text.Trim)
            cmd.Parameters.AddWithValue("@date", Me.dtpDOB.Value)
            cmd.Parameters.AddWithValue("@area", Me.area.Text.Trim)
            cmd.Parameters.AddWithValue("@line", Me.line.Text.Trim)
الرد }}}
تم الشكر بواسطة:
#7
.....

الحقل [dtpDOB] ليس من الحقول التي ذكرتها حضرتك في المشاركة #3 فكيف ذلك!!!!!!!!!!!!!!!!!!!!!!!!

الكود الأخير التي وضعته لك في المشاركة #5 كان مطابقاً للحقول التي ذكرتها حضرتك في المشاركة #3 .

.....
الرد }}}
تم الشكر بواسطة:
#8
(11-09-14, 02:54 PM)vbnet كتب : .....

كود :
' وضع اسم الجدول واسماء الحقول بين أقواس مربعة [] ولكن اسماء البارمترات لا توضع بين أقواس
sSQL = "INSERT INTO [Main] ( [fileno],  [drname], [date], [area], [line], [note] )"
sSQL = sSQL & " VALUES ( @fileno  , @drname, @date, @area, @line, @note )"
cmd.CommandText = sSQL

' في التعامل مع الأكسس ترتيب أسطر البارامترات يجب أن يكون بنفس ترتيب اسمائها في جملة إسكيوإل
cmd.Parameters.AddWithValue("@fileno", Val(Me.Code.Text))
cmd.Parameters.AddWithValue("@drname", Me.txtLastName.Text.Trim)
cmd.Parameters.AddWithValue("@date", Me.dtpDOB.Value)
cmd.Parameters.AddWithValue("@area", Me.area.Text.Trim)
cmd.Parameters.AddWithValue("@line", Me.line.Text.Trim)
cmd.Parameters.AddWithValue("@note", Me.note.Text.Trim)

.....

الرجاء مراجعه اول الكود وسوف ترا بنفسك انه موجود من البداية

المشكلة لسة موجودة
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة فى الجريد فيو salah525 10 540 05-11-23, 08:15 PM
آخر رد: justforit
Big Grin مشكلة لسه ماحدش جاوبني عليها cmd.excutenunquery Medo84 1 1,304 27-08-23, 12:47 PM
آخر رد: رضوان الجماعي
  مشكلة عند الاتصال ب sql server 2014 bassant 1 1,004 27-08-23, 12:26 PM
آخر رد: رضوان الجماعي
  [سؤال] مشكلة فى عرض الصورة من ادخل قاعدة البيانات alims 2 1,266 17-11-21, 10:09 AM
آخر رد: سعود
  مشكلة ظهور بياانات حقلين في قاعدة بيانات على شكل علامة استفهام bassant 5 1,632 17-10-21, 02:07 PM
آخر رد: abubasilIraq
  مشكلة عند الاتصال ب sql server 2014 bassant 4 1,416 16-09-21, 02:52 PM
آخر رد: asemshahen5
  [سؤال] مشكلة اضافة التاريخ مع قاعدة بيانات alims 6 2,335 25-01-21, 02:45 AM
آخر رد: alims
  اسناد عامود في قاعدة بيانات اكسيس الى عامود من نوع كومبوبوكس بالداتا جريد فيو بالفيجو Ghassanfff 2 2,119 08-01-21, 08:52 PM
آخر رد: سعود
  كود عدم تكرار البيانات بالداتا جريد فيو ِAbou Sama 4 7,574 04-12-20, 10:59 PM
آخر رد: Osama_NY
  مشكلة في إظهار عمود التاريخ في داتا جريد فيو mofhmy 5 6,558 12-11-20, 12:13 PM
آخر رد: bahaa.elkomy@yahoo.com

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم