Question

求VB6.0代码，1、查询access数据库的代码、2写入access数据库的代码（如果数据库有相同项则不写入）

Answer 1

1. 在菜单中找到[工程],--->在[工程]找找到[部件]---->在[部件]中找到Microsoft ADO Data Control 6.0,前面勾上,---->应用,这就引用了ADO控件.
2. 把工程另存为到一个文件夹
3. 在电脑上找到你刚才存的文件夹,在里面新建一个ACCESS文件,假设名称取为ACCESS文件.mdb,在ACCESS中创建表,创建字段,假设表为:(用户表)
姓名 | 用户名 | 密码
--------------------------------------------------
张三 | A5200 | 02225
_______________________________
* | * | *
4. 在窗体上拉三个Text,一个Command按钮,改下名称,Text分别是姓名,用户名,密码Command为添加, 再拖一个ADO控件到窗体上,把他的Visible属性设置为False,也就是说不显示他,放窗体上太丑了
5. 双击按钮写代码:
Private Sub 添加_Click()
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " + App.Path + "ACCESS文件.mdb"
Adodc1.RecordSource="Select * from 用户表 Where 用户名='"+用户名+"'"
Adodc1.Refresh
If Not Adodc1.RecordSet.EOF Then
if Adodc1.RecordSet.RecordCount<0 Then
Adodc1.RecordSet.AddNew
Adodc1.RecordSet.Fields("姓名")=me.姓名
Adodc1.RecordSet.Fields("用户名")=me.用户名
Adodc1.RecordSet.Fields("密码")=ME.密码
Adodc1.RecordSet.Update
Adodc1.RecordSet.MoveNext
姓名=""
用户名=""
密码=""
Else
MsgBox: "该用户已经注册!请重新申请帐户!....",vbOkOnly,"提示"
姓名=""
用户名=""
密码=""
End If
Else
MsgBox("连接数据库失败..........")
End iF
End Sub

Answer 2

你这问题说的不清楚