Question

vb至少一个参数没有被指定值

就很短的一行代码啊
就有这种情况
Private Sub Command3_Click()
b = InputBox("请输入备注" & vbCrLf & "不清楚可以进行查询", "删除提示")
cnn.Execute "delete from tb_events where 事件=" & b
End Sub
数据库和表连上了
还有
通过一个字段名称来删除数据库的正行数据可不可行?
Private Sub Command5_Click()
Dim sql As ADODB.Recordset
sql = "select 日期起始 from tb_events where b2"
Set MSHFlexGrid1.DataSource = Nothing
Set MSHFlexGrid1.DataSource = sql
End Sub
sql属性的使用无效
应该怎么使用
实在没学会这些，望高人解答
真的有事件这个字段啊

Answer 1

Set MSHFlexGrid1.DataSource =要为RecordSet,另外你的SQL语句有问题,数据库有"事件"这个字段吗, tb_events where b2"where后面要跟条件

追问

说的能再详细一些吗，我是个新手，谢谢

追答

给你例子吧
Dim sql As String
Dim i As Integer
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\barcodemaster.mdb;" '
sql = "select * from public_chk_serial"
rs.StayInSync = True
rs.Open sql, conn
MSHFlexGrid1.Rows = 1
MSHFlexGrid1.Cols = rs.Fields.Count
Do While Not rs.EOF
MSHFlexGrid1.Rows = MSHFlexGrid1.Rows + 1
i = i + 1
For j = 0 To For j = 0 To rs.Fields.Count - 1
MSHFlexGrid1.TextMatrix(i, j) = rs.Fields(j)
Next j
rs.MoveNext
Loop
Set rs = Nothing
Set conn = Nothing

追问

Do While Not rs.EOF
........................
Loop
这段没看懂
eof是什么
这段有什么作用呢？

追答

rs.EOF是记录集的尾，即不到最后就继续循环