为什么不能向数据库插入数据?
请各位大虾帮忙看看下面这段代码,到底哪儿出了问题,在文本框输入数据确定后,数据库里什么也没有
Dim connString = "server=localhost;database=aks_mu;uid=sa;pwd=sa "
Dim conn As New SqlConnection(connString)
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Dim mProname As String
Dim mProcode As String
Dim mDrawer As String
Dim mProtime As String
mProname = txtProname.Text.ToString
mProcode = txtProcode.Text.ToString
mDrawer = txtDrawer.Text.ToString
mProtime = My.Computer.Clock.LocalTime.ToString( "yyyy-mm-dd hh:mm:ss ")
conn.Open()
Dim sql = "insert into project(pro_name,pro_code,drawer,pro_time) values (mProname,mProcode,mDrawer,mProtime) "
Dim comm As New SqlDataAdapter(sql, conn)
conn.Close()
MkDir( "d:\Project\ " & mProname)
Me.Close()
End Sub
[解决办法]
Dim comm As New sqlcommand(sql, conn)
comm.executenoquery
给分
[解决办法]
1. mProname,mProcode,mDrawer,mProtime都是变量,必须分隔开
2. 我上面的写法是假设你这些字段都是字符类型的
3. 连接数据库的语句最好使用参数的方式