新手问题 插入数据的

[heiwangzhai]

Imports System.Data.SqlClient

Dim con As String = "uid=sa;pwd=;database=mymoney;server=(local)"
Dim mycon As New SqlConnection(con)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If mycon.State = ConnectionState.Closed Then mycon.Open() 　　　　If TextBox1.Text = "" And TextBox2.Text = "" Then
MsgBox("请输入")
Exit Sub
End If


Dim inc As New SqlParameter("@ inc", SqlDbType.Money, 8) ' 定义参数
Dim sp As New SqlParameter("@ sp", SqlDbType.Money, 8)
Dim ex As New SqlParameter("@ ex", SqlDbType.VarChar, 50)
Dim ti As New SqlParameter("@ ti", SqlDbType.DateTime, 8)


Dim str As String = "insert into moneyout(收入,支出,说明,时间)values(@ inc,@ sp,@ ex,@ ti)" 　　　　　　　　　　　　　　　　　　　　 Dim com As New SqlCommand(str, mycon)


com.Parameters.Add(inc)
com.Parameters.Add(sp)
com.Parameters.Add(ex)
com.Parameters.Add(ti)

inc.Value = CStr(TextBox1.Text) 　　　　　　　　　　　　　　 sp.Value = CStr(TextBox2.Text)
ex.Value = CStr(TextBox3.Text)
ti.Value = CType(TextBox4.Text, Date)


com.ExecuteNonQuery()

那里错了呢　我是照着书上自己改的　
　
　未处理的“System.Data.SqlClient.SqlException”类型的异常出现在 system.data.dll 中。

[sbqcel]

@ inc => @inc
它们之间不能有空格
别的地方也改掉...

[amandag]

Dim str As String = "insert into moneyout(收入,支出,说明,时间)values(@ inc,@ sp,@ ex,@ ti)" 　　　　　　　　
==========================================================
Dim str As String = "insert into moneyout(收入,支出,说明,时间) values(@inc,@sp,@ex,@ti)"