不知道哪里错了!

[zwnylsf]

Dim myconnection As New OleDb.OleDbConnection("provider=microsoft.jet.OLEDB.4.0;" & "data source=E:\软件工程\myfriend.mdb")
Dim strsql As String = "insert into info( 姓名)values(" & Trim(TxtName.Text) & ")"
Dim mycommand As New OleDb.OleDbCommand(strsql, myconnection)
myconnection.Open()
mycommand.ExecuteReader()
myconnection.Close()
Me.Close()
运行时,出错说"至少一个参数没有被指定值。"我本想用insert语句来把txtname的text输入到表info中,怎么回事啊?

[水如烟]

Dim strsql As String = "insert into info( 姓名)values(" & Trim(TxtName.Text) & ")"
改为
Dim strsql As String = "insert into info( 姓名)values('" & Trim(TxtName.Text) & "')"

[水如烟]

这样写最为清楚
Dim strsql As String = String.Format("INSERT INTO info(姓名) VALUES ('{0}')",TxtName.Text.Trim)

[zwnylsf]

大哥,我提的问题基本上都是你第一个回复的,感动啊.要牢记八荣八耻啊!

[水如烟]

趁着现在有点时间想回多一点

时间紧了可能半年一载不答一个也不定的.不过会上来看看.

[zwnylsf]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Dim db As New DataSet
Dim myconnection As New OleDb.OleDbConnection("provider=microsoft.jet.OLEDB.4.0;" & "data source=E:\软件工程\myfriend.mdb")
Dim strsql As String = String.Format("INSERT INTO info(姓名,家庭电话,移动电话,生日,工作,性格,联系地址) VALUES ('{0}')", TxtName.Text.Trim, TxtHomenumber.Text.Trim, TxtMobile.Text.Trim, TxtBirth.Text.Trim, TxtWork.Text.Trim, TxtChar.Text.Trim, TxtAddress.Text.Trim)
Dim mycommand As New OleDb.OleDbCommand(strsql, myconnection)
myconnection.Open()
mycommand.ExecuteReader()
myconnection.Close()
Me.Close()
End Sub
又不知道怎么办了,说类型不匹配啊.

[langzi830428]

你这么提交上去的都是String类型吧。。
表中的电话号码，生日啊都不是String类型，所以会不匹配吧。。

[zwnylsf]

没想到啊,那怎么进行类型转换呢?电话号码为数值,生日为日期类型.不知道怎么写呢.

[水如烟]

你只知其一,不知其二:

Dim strsql As String = String.Format("INSERT INTO info(姓名,家庭电话,移动电话,生日,工作,性格,联系地址) VALUES ('{0}','{1}','{2}',#{3}#,'{4}','{5}','{6}')", TxtName.Text.Trim, TxtHomenumber.Text.Trim, TxtMobile.Text.Trim, TxtBirth.Text.Trim, TxtWork.Text.Trim, TxtChar.Text.Trim, TxtAddress.Text.Trim)