说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

高手呢?都到哪里去了,难道没有人可以帮我的忙嘛?(有关数据库与vb的问题)!!

编辑:说三道四文库 发布时间:2018-04-23 05:36
HTML文档下载 WORD文档下载 PDF文档下载
在vb 中,我要删除时要先找到那个号码,可是要在sql 里的表table1找到那个号码,我使用adodc来引用表中的数据的,不是用的ODBC的,我是这样写的
del = InputBox("请输入要删除的号码", "删除")
Dim rstable1 As ADODB.Recordset
Set rstable1 = New ADODB.Recordset
 rstable1.Open "select * FROM table1 WHERE table1.number=", del
 If rstable1.RecordCount > 0 Then
  rstable1.Delete
 End If
可是就是不行,对了,在插入时要先查询表里是否已有这个号码,如果有,则不能插入,且号码是在一个text框里输入的,这一段程序应该怎么写?实在搞不定,就快要叫作业了,帮帮忙阿!!
1: if not rstable1.eof then rstable1.Delete

2: rs.open "select ..."
   if rs.eof then 
      rs.AddNew
....
   end if
del = InputBox("请输入要删除的号码", "删除")
dim cnn as adodc.connection
Dim rstable1 As ADODB.Recordset
dim ssql as string
set cnn=new connection
cnn.open
Set rstable1 = New ADODB.Recordset
ssql="select * FROM table1 WHERE table1.number='" & del &"'"
rstable1.Open ssql,cnn
if not rstable1.eof then
rstable1.Delete adAffectCurrent

end if
对Apple的写法的一些补充。
dim cnn as adodc.connection 应为ADODB.Connection吧。
由于提问人的用ADODC控件的,不是用ODBC
所以
cnn.open可改为cnn.open adodc.connectionstring

可是我在vb 中试了,就是不太行啊,她老说我出错阿,我都没择了
把 rstable1.Delete 改为  rstable1.Delete adAffectCurrent 就可以了.

rstable1.Open "select * FROM table1 WHERE table1.number=" & del

rs.filter="number=号码"
if rs.recordcount>0 then 号码已存在
rstable1.Open "select * FROM table1 WHERE table1.number=" + del,,,cmdtext
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘