您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)

想删除符合条件的记录，这么写行么？

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

想删除符合条件的记录，这么写行么？[已结贴,结贴人:unhappyless_16]

发表于：2007-01-08 12:48:59 楼主

delallrecord.open "select * from 调动信息 where 员工编号= ' " & cmbcodeid.text & " ' ", dbcon, adopenkeyset, adlockpessimistic, adcmdtext

while delallrecord.eof

delallrecord.delete
' 这里是不是要什么语句，让记录集的指针向下移?
endw
delallrecord.close

发表于：2007-01-08 12:54:341楼得分:4

用ado控件最简单:

databaselinkstr= "provider=sqloledb.1;password=123456;persist security info=true;user id=sa;initial catalog=databasename;data source=127.0.0.1 "
adodc1.connectionstring = databaselinkstr
adodc1.recordsource = "delete from 调动信息 where 员工编号= ' " & cmbcodeid.text & " ' "
adodc1.refresh

发表于：2007-01-08 13:07:082楼得分:0

我不是用控件的，我是用 adodb 类

发表于：2007-01-08 13:23:033楼得分:0

用这个也是可以的,
模块中声明:
public cnn as adodb.connection
public cnnd as adodb.connection
public rst as adodb.recordset
代码:
databaselinkstr= "provider=sqloledb.1;password=123456;persist security info=true;user id=sa;initial catalog=databasename;data source=127.0.0.1 "

set cnnd = new adodb.connection
set rstd = new adodb.recordset
cnnd.open databaselinkstr
strcmdbd = "delete from 调动信息 where 员工编号= ' " & cmbcodeid.text & " ' "
rstd.open strcmdbd, cnnd, adopenstatic, adlockoptimistic

发表于：2007-01-08 16:52:124楼得分:3

上面樓主的操作太麻煩了，
一般簡單的添加刪除操作只需用ＥＸＥＣute 事件就行了
這種簡單操作最好用
全局聲明
public sqlconn as adodb.connection
set sqlconn= new adodb.connection
sqlconn.connectionstring = "provider=sqloledb;data source= " & ipstr & ";user id=appuser;password=hferp;initial catalog=erp "
sqlconn.open
sqlconn.ＥＸＥＣute "delete from 调动信息 where 员工编号= ' " & cmbcodeid.text & " ' "

发表于：2007-01-08 16:55:025楼得分:3

sqlconn.ＥＸＥＣute "delete from 调动信息 where 员工编号= ' " & cmbcodeid.text & " ' "

这个比较高效

发表于：2007-01-08 16:56:456楼得分:0

接上貼
以上的& ipstr &可以是ip地址，主機名，
你的dbcon就是我的sqlconn
如果你的dbcon沒問題，直接用下面語句就可以刪除了

　　dbcon.ＥＸＥＣute "delete from 调动信息 where 员工编号= ' " & cmbcodeid.text & " ' "

发表于：2007-01-09 17:24:367楼得分:0

我是用 access 数据库，能用ＥＸＥＣute 吗？

其他资讯