السلام عليكم ورحمة الله وبركاته
الرجاء المساعدة فى خطأ يظهرلى فى كود الحفظ
incorrect syntax near ' '
الخطأ يظهر فى حالة وجود احرف و ارقام فى بيانات الصنف فى اول عمود بالداتا جريد
كود الحفظ
invno = Me.TextBox1.Text
If tempTable.Rows.Count >= 1 Then
Dim cmdInsH As New SqlCommand
Dim cmdInsD As New SqlCommand
Dim i As Integer
Dim j As Integer
Try
If objconn.State = ConnectionState.Closed Then
objconn.Open()
End If
'********************************************************************
With cmdInsH
.Connection = objconn
.CommandType = CommandType.Text
End With
cmdInsH.CommandText = "INSERT INTO invohd VALUES(" + TextBox1.Text + ",'" + DateTimePicker1.Text + "','" + ComboBox1.Text + "'," + TextBox5.Text + ")"
cmdInsH.ExecuteNonQuery()
'*********************************************************************
With cmdInsD
.Connection = objconn
.CommandType = CommandType.Text
End With
For i = 0 To tempTable.Rows.Count - 1
j = 0
cmdInsD.CommandText = "INSERT INTO invodet VALUES(" + TextBox1.Text.ToString + "," + DataGridView1.Item(i, 0 + j).ToString + ",'" + DataGridView1.Item(i, 1 + j).ToString + "'," + DataGridView1.Item(i, 2 + j).ToString + "," + DataGridView1.Item(i, 3 + j).ToString + "," + DataGridView1.Item(i, 4 + j).ToString + ")"
cmdInsD.ExecuteNonQuery()
Next i