Question

一个非常简单的数据库查询语句

实现功能:
用vb做一个数据库查询的软件
1.用一个字段和数据库里面的数据比较有重复则显示错误,无重复就插入此条数据
2.插入的那条数据需要连续+30次写入到数据库中

大家指点一下怎么写?

基本的思路如下,语法格式我都忘了

用count统计select的结果,如果=0就插入,大于0就显示msg

vb中我建立了一个模块用于数据库的连接

Option Explicit
Public con As New ADODB.Connection

'打开DB
Public Function opendb() As Boolean
'连接ACCESSS
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" + App.Path + "\db1.mdb" + ";Mode=ReadWrite"
con.ConnectionTimeout = 30
con.Open
opendb = True
Exit Function
End Function

大家帮帮忙急啊
foroo121
rst.count 提示无这个方法

帮帮忙把数据库这点给写下吧,谢谢

Answer 1

查询语句用"select",最简单的就是直接用以下语句:
sql:select * from tablename；从表“tablename”中查询出所有的数据。
扩展：后面还可以增加“where”条件进行筛选。
sql：select * from tablename where id<5；查询出id小于5的所有记录。

Answer 2

给你伪代码吧，如下：

[外层循环开始] （如果你的程序需要插入很多，可以做个外层的循环）

rs.open "select * from [表] where [要插入数据的条件]",connection..... （请遵循recordset 对象打开记录集的语法结构）

if rs.count=0 then （记录集对象如果数量是0，说明没有找到相同的）

for i=1 to 30

con.execute "插入语句" （循环插入30次）

next i
else

不满足条件时尽兴的操作

end if

[外层循环结束]