作者AllFake (台湾费可股份有限公司)
看板Visual_Basic
标题Re: 有关access里的vb
时间Tue Dec 13 02:12:47 2005
Set cn = CreateObject("ADODB.Connection")
Set Rs = CreateObject("ADODB.Recordset")
MyDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;
Data Source=XX.mdb"
MyRec.Open "SELECT 栏位2,栏位3 FROM 资料表 WHERE 栏位2=栏位3", MyDB
if MyRec.recordcount > 0 then msgbox "资料重复"
MyRec.Close
MyDB.Close
SQL语法应该没有错吧...= =+
※ 引述《brent0923 (糜烂高雄人)》之铭言：
: ※ 引述《fumizuki (小狮子)》之铭言：
: : rs.open "select 栏位2,栏位3 from 资料表 where 栏位2=#xxx# ad 栏位3=#xxx#"
: : if rs.recordcount > 0 then msgbox "资料重复"
: : rs.close
: 抱歉...再问一下
: 上面这个程式是要打在模组里吗?
: 还有 栏位2=#xxx#
: ^^^^^
: 用这样的话是只能对照xxx这个资料?
: 还是可以跟全部的资料相比吗?
: 抱歉 因为小弟刚接触access
: 很多地方不了解orz...
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.131.137.12