 |
| |
ERROR : The parameterized query '(@dates nvarchar(10),@times nvarchar(8),.... which was not supplied. |
| |
 |
|
|
 |
 |
|
เขียนโปรแกรม VB แล้วเจอ ERROR ว่า
The parameterized query '(@dates nvarchar(10),@times nvarchar(8),@meterId nvarchar(4000),' expects the parameter '@meterId', which was not supplied.
ตรง cmd.ExecuteNonQuery() ต้องแก้ยังไงคะ Code (VB.NET)
Dim str As String = ""
Dim cnn As New SqlConnection
cnn.ConnectionString = "Data Source=.;Integrated Security=SSPI;Initial Catalog=s53"
str = "Insert Into elect(dates,times,MeterId,Point,Place,Value,Pf,W,Kwh,Dif,Reponsible) Values (@dates,@times,@MeterId,@Point,@Place,@Value,@Pf,@W,@Kwh,@Dif,@Reponsible)"
cnn.Open()
If MessageBox.Show("คุณต้องการบันทึกข้อมูลใช่หรือไม่?", "ยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
Dim cmd As New SqlCommand(str, cnn)
For i As Integer = 0 To DataGridView1.RowCount - 1
With cmd
.Parameters.AddWithValue("dates", (DateTimePicker1.Value.AddYears(-543).ToString("yyyy-MM-dd")))
.Parameters.AddWithValue("times", (ComboBox1.Text))
.Parameters.AddWithValue("meterId", DataGridView1.Rows(i).Cells(0).Value)
.Parameters.AddWithValue("point", DataGridView1.Rows(i).Cells(1).Value)
.Parameters.AddWithValue("place", DataGridView1.Rows(i).Cells(2).Value)
.Parameters.AddWithValue("value", DataGridView1.Rows(i).Cells(3).Value)
.Parameters.AddWithValue("pf", (TextBox1.Text))
.Parameters.AddWithValue("W", (TextBox2.Text))
.Parameters.AddWithValue("Kwh", (TextBox3.Text))
.Parameters.AddWithValue("Dif", (TextBox4.Text))
.Parameters.AddWithValue("Reponsible", (TextBox5.Text))
End With
cmd.ExecuteNonQuery()
cmd.Parameters.Clear()
Close()
Next
cnn.Close()
MessageBox.Show("บันทึกข้อมูลเรียบร้อยแล้ว", "ข้อความ", MessageBoxButtons.OK, MessageBoxIcon.None)
End If
ต้องแก้ยังไง ช่วยด้วยนะคะ
Tag : .NET, Ms SQL Server 2008, VS 2008 (.NET 3.x)
|
|
|
 |
 |
 |
 |
| Date :
2013-05-14 16:06:28 |
By :
apple |
View :
2392 |
Reply :
5 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
ตรง บันทัด 12-22 ลองเติ่ม @ และเอา วงเล็บออก เข้าไปดูครับว่าได้ไหม
เช่น
Code (VB.NET)
.Parameters.AddWithValue("@Reponsible", TextBox5.Text)
|
| |
|
|
| |
| Date :
2013-05-14 16:33:58 |
By :
CPU4Core |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
คุณ CPU4Core ไม่ได้ค่ะ error เหมือนเดิมเลย TT
|
| |
|
|
| |
| Date :
2013-05-14 16:46:35 |
By :
apple |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
โทษทีค่ะ ภาพไม่เกี่ยวนะคะ ^^
|
| |
|
|
| |
| Date :
2013-05-14 16:48:20 |
By :
apple |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Code (VB.NET)
'*** Insert to Database ***'
Dim objConn As New SqlConnection
Dim strConnString, strSQL As String
strConnString = "Server=localhost;UID=sa;PASSWORD=;database=mydatabase;Max Pool Size=400;Connect Timeout=600;"
strSQL = "INSERT INTO files (Name,FilesName,FilesType) " & _
" VALUES " & _
" (@sName,@sFilesName,@sFilesType)"
objConn.ConnectionString = strConnString
objConn.Open()
Dim objCmd As New SqlCommand(strSQL, objConn)
objCmd.Parameters.Add("@sName", SqlDbType.VarChar).Value = Me.txtName.Text
objCmd.Parameters.Add("@sFilesName", SqlDbType.Binary).Value = imbByte
objCmd.Parameters.Add("@sFilesType", SqlDbType.VarChar).Value = strMIME
objCmd.ExecuteNonQuery()
objConn.Close()
objConn = Nothing
|
| |
|
|
| |
| Date :
2013-05-14 18:03:03 |
By :
mr.win |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
 ตอบความคิดเห็นที่ : 4 เขียนโดย : mr.win เมื่อวันที่ 2013-05-14 18:03:03
รายละเอียดของการตอบ ::
Code (VB.NET)
str = "Insert Into elect(dates,times,MeterId,Point,Place,Value,Pf,W,Kwh,Dif,Reponsible) Values (@dates,@times,@MeterId,@Point,@Place,@Value,@Pf,@W,@Kwh,@Dif,@Reponsible)"
cnn.Open()
If MessageBox.Show("คุณต้องการบันทึกข้อมูลใช่หรือไม่?", "ยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
Dim cmd As New SqlCommand(str, cnn)
For i As Integer = 0 To DataGridView1.RowCount - 1
With cmd
.Parameters.AddWithValue("@dates", DateTimePicker1.Value.AddYears(-543).ToString("yyyy-MM-dd"))
.Parameters.AddWithValue("@times", SqlDbType.VarChar).Value = Me.ComboBox1.Text
.Parameters.AddWithValue("@meterId", DataGridView1.Rows(i).Cells(0).Value)
.Parameters.AddWithValue("@point", DataGridView1.Rows(i).Cells(1).Value)
.Parameters.AddWithValue("@place", DataGridView1.Rows(i).Cells(2).Value)
.Parameters.AddWithValue("@value", DataGridView1.Rows(i).Cells(3).Value)
.Parameters.AddWithValue("@pf", SqlDbType.Float).Value = Me.TextBox1.Text
.Parameters.AddWithValue("@W", SqlDbType.Float).Value = Me.TextBox2.Text
.Parameters.AddWithValue("@Kwh", SqlDbType.Float).Value = Me.TextBox3.Text
.Parameters.AddWithValue("@Dif", SqlDbType.Float).Value = Me.TextBox4.Text
.Parameters.AddWithValue("@Reponsible", SqlDbType.VarChar).Value = Me.TextBox5.Text
End With
ได้แก้ไข ตามที่ คุณ mr.win บอกแล้วยังติด error แบบเดิมอยู่เลยค่ะ TT
|
| |
|
|
| |
| Date :
2013-05-15 11:35:32 |
By :
appleii |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
