作者k80092 (游)
看板Visual_Basic
标题[.NET] 新增资料进资料库却拿不到值?
时间Wed May 14 01:35:58 2008
各位大大好~
我之前使用SQL SERVER去连2005，用以下的语法是可以新增，我只是将
原有的SQL元件更换成MYSQL的元件，执行後可以新增资料，可是拿到的
值却是有拿跟没拿一样，例如我应该输入的病历号码为'1234567'，而
存进去的值是'0'，该存入名称的地方，存进去的是'@name'...等等
手边只有连SQL SERVER的书，不知道是否MYSQL用法上会有差别??
语法：
Dim ConnString As String = "Data
Source=XX.XX.XX.XX;uid=XX;pwd=XX;Initial Catalog=mt;CharSet=big5;"
Dim conn As MySqlConnection = New MySqlConnection(ConnString)
conn.Open()
instsql = "INSERT INTO mt.patient (annum,name,vidate,birdate,sex,tel)
values ('@annum','@name','@vidate','@birdate','@sex','@tel')"
Dim instcmd As MySqlCommand = New MySqlCommand(instsql, conn)
instcmd.Parameters.Add(New MySqlParameter("@annum",
MySqlDbType.Int16, 7))
instcmd.Parameters.Add(New MySqlParameter("@name",
MySqlDbType.VarChar, 50))
instcmd.Parameters.Add(New MySqlParameter("@vidate",
MySqlDbType.Date))
(省略...)
instcmd.Parameters("@annum").Value = TextBox1.Text
instcmd.Parameters("@name").Value = TextBox2.Text
instcmd.Parameters("@vidate").Value = DateTimePicker2.Value
(省略...)
Try
Dim i As Integer = instcmd.ExecuteNonQuery()
MsgBox("新增" & i & "资料成功")
Catch ex As Exception
MsgBox("新增资料失败，错误讯息：" & ex.Message)
Finally
conn.Close()
End Try
有劳各位大大解题~OTL
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.127.83.53
1F：→ O2000:把参数(@开头的那些)前後的单引号拿掉 05/14 09:16
2F：→ k80092:我拿掉之後他错误讯息为栏位'annum'不能为空值，annum是PK 05/14 10:08
3F：→ k80092:但是我textbox1确定是有值在上面。不知为何? 05/14 10:08