Dim str As String
Dim a As Integer
sqlconn.ConnectionString = ("server=127.0.0.1;uid=sa;pwd=123;database=yyms")
sqlconn.Open()

str = "insert into YH values('" & Me.TextBox3.Text & "','" & Me.TextBox4.Text & "','" & Me.TextBox5.Text & "','" & TextBox6.Text & " ')"

sqlcmd.CommandText = str
sqlcmd.Connection = sqlconn
a = sqlcmd.ExecuteNonQuery()
If a = 1 Then
MsgBox("成功 ")
End If

sql语句有误

[CODE] Dim str As String
Dim a As Integer = 0
sqlconn.ConnectionString = ("server=127.0.0.1;uid=sa;pwd=123;database=yyms")
sqlconn.Open()
str = "insert into YH values('" & Me.TextBox3.Text.Trim() & "','" & Me.TextBox4.Text.Trim() & "','" & Me.TextBox5.Text.Trim() & "','" & TextBox6.Text.Trim() & " ')"
dim sqlcmd as new SqlCommand(str,sqlconn)
a = sqlcmd.ExecuteNonQuery()
If a = 1 Then
MsgBox("成功 ")
else
MsgBox("失败")
End If[/CODE]

失败的原因,可能是你输入的添加信息的长度大于了数据库中设计的字段长度.还有可能是你输入的主键和表中已经存在的数据的主键相重合.

[此贴子已经被作者于2006-12-1 17:39:13编辑过]

谢谢版主,
问题解决!