Question

VB至少一个参数没有被指定值错误。

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
dim mark as string
Public Sub add_data()
sqlstr1 = "INSERT into 表1(ID,波峰值,类别)values ( 'Val(Text3.Text) ', 'Val(Text10.Text)', 'mark')"
cn.Execute sqlstr1
End Sub
每次一调用这个 add_data函数，就在
cn.Execute sqlstr1这一行上提示 至少一个参数没有被指定值错误

Answer 1

sqlstr1字符串有误，你Val(Text3.Text)是在引号内，执行时会试图把“Val(Text3.Text)”，'Val(Text10.Text)', 'mark'字符串插入表，而实际上我猜你是想把Text3.Text、Text10.Text、mark内的值插入ID。修改如下:
sqlstr1 = "INSERT into 表1(ID,波峰值,类别) values ( " & Val(Text3.Text) & ", " & Val(Text10.Text) & " , '" & mark & "')"

注：MS SQL SERVER的SQL语句中对数值型数据的引用无需用单引号，如果是文本型的则需要加单引号。

追问

有个问题就是，我的mark变量的值这样 '" & mark & "'就可以写进数据库么？我之前写进去的就是mark这个字符串。还有就是我在调用完那个函数之后，执行下面的语句
rs.CursorLocation = adUseClient
rs.Open "select * from 表1", cn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
总是错误：连接无法用于执行此操作，在上下文中它可能已经关闭或者无效

追答

对于第一个问题：是。其实你在调试时，直接在执行SQLSTR赋值语句后，看一下SQLSTR的值就知道问题在哪里了。
至于第二个问题，需要查一下，你之前的程序中RS是否已关闭，如果没有关闭，CursorLocation只能读不能写。

追问

我想请教下，如果我想用一个变量，这个变量会在一个工程下的几个窗体中被引用，还需要他每次被模窗体的过程调用之后的值能保存下来，那么我在module中public声明应该不行吧，我要怎么设定这样的变量呢？

追答

可以在模块中用public声名一个全局变量。

Answer 2

这样试试
sqlstr1 = "INSERT into 表1(ID,波峰值,类别)values ( ' “ &Val(Text3.Text) & " ', ' " & Val(Text10.Text) & " ', 'mark')"

追问

有个问题就是，我的mark变量的值这样 '" & mark & "'就可以写进数据库么？我之前写进去的就是mark这个字符串。还有就是我在调用完那个函数之后，执行下面的语句
rs.CursorLocation = adUseClient
rs.Open "select * from 表1", cn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
总是错误：连接无法用于执行此操作，在上下文中它可能已经关闭或者无效

追答

1、变量跟text是一样的写法都是要引号和连接符、
2、错误的原因应该是你没有连接好数据库，检查下你的 cn.open 连接数据库的语句是否有误。

追问

我想请教下，如果我想用一个变量，这个变量会在一个工程下的几个窗体中被引用，还需要他每次被模窗体的过程调用之后的值能保存下来，那么我在module中public声明应该不行吧，我要怎么设定这样的变量呢？

追答

最简单最笨的办法，每个窗体都放一个label，用来存储你这个变量，当你要显示新窗口时候将该值传给下一个窗口的对应label。
如：
Form2.Label1.Caption = Form1.Label1.Caption
form2.show
其他窗口同理，显示其他窗口前都先这样传变量，记得把label设置为不可见。