如果数据源用的是Adodc控件 那么将Adodc控件与数据库连接后先定义查询条件SQL语句 sql="select * from xxxx" 然后 Adodc1.RecordSource = sql Adodc1.Refresh Set DataGrid1.DataSource = Adodc1
adodc1.recordsoure =sql 属性使用无效
具体代码如下: txtsql = "select * from accounts where user_date='" & Text1.text & "'" Set mrc = New ADODB.Recordset mrc.Open txtsql, cnn, adOpenKeyset, adLockOptimistic If mrc.BOF = True And mrc.EOF = True Then MsgBox "没有符合条件的记录,请重新查询!", vbOKOnly + _vbExclamation, "提示" Text1.text = "" Exit Sub End If db.DefColWidth = 1100 data1.RecordSource = txtsql data1.Refresh Set db.DataSource = data1 db.Refresh Dim col1(27) As Column For i = 1 To 35 Set col1(i) = db.Columns(i - 1) Next提示“select”附近语法错误,下标月界。 运行使显示i=3为什么?
data1.Caption = data1.Recordset.AbsolutePosition & "总共" &_ data1.Recordset.RecordCount
怎样将查询的结果作为data1的recordsource
因为现在,我删除总是删除第一笔记录谢谢!!!!
那么将Adodc控件与数据库连接后先定义查询条件SQL语句
sql="select * from xxxx"
然后
Adodc1.RecordSource = sql
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
属性使用无效
txtsql = "select * from accounts where user_date='" & Text1.text & "'"
Set mrc = New ADODB.Recordset
mrc.Open txtsql, cnn, adOpenKeyset, adLockOptimistic
If mrc.BOF = True And mrc.EOF = True Then
MsgBox "没有符合条件的记录,请重新查询!", vbOKOnly + _vbExclamation, "提示"
Text1.text = ""
Exit Sub
End If
db.DefColWidth = 1100
data1.RecordSource = txtsql
data1.Refresh
Set db.DataSource = data1
db.Refresh
Dim col1(27) As Column
For i = 1 To 35
Set col1(i) = db.Columns(i - 1)
Next提示“select”附近语法错误,下标月界。
运行使显示i=3为什么?