 |
| |
VB.NET Parameters SQL Server Dim r As Integer = Command.ExecuteNonQuery() |
| |
 |
|
|
 |
 |
|
Code (VB.NET)
Private Sub Btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsave.Click
If Not IsDataCompete() Then
Exit Sub
End If
SQL = "INSERT INTO raiooy(RaiDate,Menu,Type,Count,Price,Total)" & "VALUES(@RaiDate,@Menu,@Type,@Count,@Price,@Total)"
AddParameters(SQL)
Dim r As Integer = Command.ExecuteNonQuery()
If r > 0 Then
MessageBox.Show("บันทึกข้อมูลแล้ว")
Btnadd.PerformClick()
Else
MessageBox.Show("เกิดข้อผิดพลาดในการบันทึกข้อมูล")
End If
End Sub
error Dim r As Integer = Command.ExecuteNonQuery() ค่ะ
ช่วยดูให้หน่อยนะค่ะ
Tag : .NET, VBScript, VB.NET
|
ประวัติการแก้ไข
2012-03-24 21:19:06
|
 |
 |
 |
 |
| Date :
2012-03-24 20:51:43 |
By :
apapornrodrun |
View :
1286 |
Reply :
2 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
Error อะไรครับ ผมว่าคุณไม่ได้โยนค่า Parameter แน่เลย
|
| |
|
|
| |
| Date :
2012-03-24 22:08:54 |
By :
webmaster |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ลองดูรูปแบบการใช้ Parameters Query ครับ
Code (C#)
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 :
2012-03-24 22:13:19 |
By :
webmaster |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
