ACCESS数据库问题

ybbihsse

A输入框，输入的内容想验收ACCESS数据库A表里面的数据，需要A表里面的数据有存在才可以输入得进去，比如A列数据有A,B,C,D,E，则A输入框就只能输A,B,C,D,E这些内容，这种不知道要该怎么实现呢？》

wgboy

$acc_pwd = "wyl"
        $datadir = "\\test\data$\newpcrecord.mdb"
        $addfld = ObjCreate("ADODB.Connection")
        $RS = ObjCreate("ADODB.Recordset")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $datadir & ";Jet Oledb:Database Password=" & $acc_pwd)
        $RS.ActiveConnection = $addfld
        $RS.Open("Select * From asset where assetTag='" & $AssetTag & "'")
        If $RS.eof And $RS.bof Then
                $insert = 'INSERT INTO asset (username,dispalyname,assetTag,sn,ip,mac,hostname,ram,disk,process,cpu,osname,nowdate,symantec,soeversion,rrssd,rrsam,rrsrc) VALUES ("' & $username & '","' & $displayname & '","' & $AssetTag & '","' & $sn & '","' & $IP & '","' & $mac & '","' & $hostname & '","' & $ram & '","' & $disk & '","' & $Process & '","' & $cpu & '","' & $osname & '","' & $nowdate & '","' & $symantec & '","' & $soeversion & '","' & $rrssd & '","' & $rrsam & '","' & $rrsrc & '")'
                $addfld.Execute($insert)
                $addfld.close
                ;MsgBox(262144,"","该机器安装信息登记成功",2)
        Else
                $insert = "UPDATE asset SET username = '" & $username & "', dispalyname = '" & $displayname & "', nowdate= '" & $nowdate & "', ip= '" & $IP & "' , symantec= '" & $symantec & "' ,soeversion='" & $soeversion & "', rrssd= '" & $rrssd & "', rrsam='" & $rrsam & "', rrsrc='" & $rrsrc & "' WHERE assetTag = '" & $AssetTag & "'"
                $addfld.Execute($insert)
                $addfld.close
                ;MsgBox(262144,"","该机器安装信息更新成功",2)
        EndIf

根据以上的代码改下，如果有重复项则写入数据库，否则放弃写入数据库。不知这样是否可实现LZ的想法。

ybbihsse

呵呵，我没表达清楚哦，就是ACCESS数据库里面有A表和B表，A表是学员库，B表是成绩表
然后我输入框里面要来判断输入的内容A表里面的学员库是否有存在，如果不存在就不能输入。
例如：A表里面的姓名列有张三，李四
然后我输入框如果输王五的话就输不进去，只能输张三或者李四