2,727
社区成员
发帖
与我相关
我的任务
分享
Local con as ADODB.Connection
Local csql as Character
Local rs as ADODB.RecordSet
Local cmd as ADODB.Command
cString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\kbs\datas.mdb"
con = Createobject("ADODB.Connection")
con.Open(cString)
cmd = Createobject("adodb.command")
cmd.ActiveConnection = con
cmd.CommandText = "select etunimi from etunimi1"
rs = cmd.Execute()
Do While Not rs.EOF
* Messagebox(rs.Fields(0))
Messagebox(rs.Fields(0).Value)
rs.MoveNext
Enddo
模仿vb的写的
上面代码能正确返回结果
带了where子句还是不行