Dim db As ADODB.Connection
Dim dy As ADODB.Recordset
SET DB=NEW Connection
set db=OpenDatabase(”C:\VB\SAMPLE.MDB”)
s=”select * from demo where 姓名 like ’刘*’”
set dy=NEW Recordset
dy.open "s", db, adOpenDynamic, adLockOptimistic
Dim dy As ADODB.Recordset
SET DB=NEW Connection
set db=OpenDatabase(”C:\VB\SAMPLE.MDB”)
s=”select * from demo where 姓名 like ’刘*’”
set dy=NEW Recordset
dy.open "s", db, adOpenDynamic, adLockOptimistic
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货