都不好意思问大家的一个问题~ 呵呵


偶是小菜鸟~~~  
劳驾问一下看偶帖子的朋友,用SQL语句怎样删除选中的记录?
偶就晓得"delete from pubilsher(偶的数据库名)where
后面+什么就不知道了  好象不加的话会删除整个数据库的~
反正请教大家了 就删除选中的记录
哦哦 还有 就是怎样把选中的记录的详细内容分别列在相对应的text里面
不要是一个个.show就是了 呵呵 谢谢大家了~

10 个解决方案

#1


delete from pubilsher(偶的数据库名) where [ID]=200 '删除ID为200的记录,假设你的表里有个字段为ID

#2


怎样把选中的记录的详细内容分别列在相对应的text里面
----------------------------------------------------------
'引用ADO(Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command1_Click()
    On Error GoTo err
    Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
    cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=登陆用户名;Password=登录密码;Initial Catalog=数据库名;Data Source=服务器别名"
    cn.Open
    rs.CursorLocation = adUseClient '设置客户端游标
    rs.Open "select * from pubilsher", cn, 3, 2
    If rs.EOF Then Exit Sub
    With rs
        Text1.DataField = "ID" '显示ID字段到Text1
        Set Text1.DataSource = rs
        '....其他的Text类似
    End With
    Exit Sub
err:
    MsgBox err.Description
End Sub

#3


用ADO连接数据库,用ADO.Recordset来修改:删除、添加等都可以。然后UPDATE就好

#4


两颗红星的大哥 能把你后面贴的那段代码说明一下吗?
偶有几个不认识~
rs.CursorLocation = adUseClient '设置客户端游标
    rs.Open "select * from pubilsher", cn, 3, 2
客户端游标是什么东东??? 偶新发了帖子~ 麻烦你看一下哦
还有谢谢4楼的兄弟^_^

#5


CursorLocation 属性 (ADO)
         

设置或返回游标引擎的位置。

设置和返回值

设置或返回可设置为以下某个常量的长整型值。

常量 说明 
adUseNone 没有使用游标服务。(该常量已过时并且只为了向后兼容才出现)。 
adUseClient 使用由本地游标库提供的客户端游标。本地游标引擎通常允许使用的许多功能可能是驱动程序提供的游标无法使用的,因此使用该设置对于那些将要启用的功能是有好处的。adUseClientBatch 与 adUseClient 同义,也支持向后兼容性。 
adUseServer 默认值。使用数据提供者或驱动程序提供的游标。这些游标有时非常灵活,对于其他用户对数据源所作的更改具有额外的敏感性。但是,Microsoft Client Cursor Provider(如已断开关联的记录集)的某些功能无法由服务器端游标模拟,通过该设置将无法使用这些功能。 


说明

该属性允许在可用于提供者的各种游标库中进行选择。通常,可以选择使用客户端游标库或位于服务器上的某个游标库。

该属性设置仅对属性已经设置后才建立的连接有影响。更改 CursorLocation 属性不会影响现有的连接。

对于 Connection 或关闭的 Recordset 该属性为读/写,而对打开的 Recordset 该属性为只读。

Connection.Execute 游标将继承该设置。Recordset 将自动从与之关联的连接中继承该设置。

Remote Data Service 用法   当用于客户端 (ADOR) Recordset 或 Connection 对象时,只能将 CursorLocation 属性设置为 adUseClient。

#6


sql 语句里面 where后面的意思就是 对哪里进行操作 , 相当于是选择。
不加的话就认为是选择全部。

#7


看一下格式就行了,where后面是条件。

#8


dim cn as new adodb.connection
dim rs as new adodb.recordset
dim strsql as string
    strsql="select user from 数据库 where user="qq"( 选中的记录)"
cn.open strsqlserver(你在module中定义的表示数据库的函数)
   rs.open strsql,cn
       if not rs.bof then '如果记录不为空
           do until rs.eof  '知道记录为空
               txttitle.text=rs("user")
               rs.movenext '下一条记录
           loop
       end if 
   rs.close
cn.close

#9


谢谢大家回我贴啊 问题都解决了~ ^_^

#10


先rs.delete,然后rs.update

一定要用SQL的话就是
delete from 表名 where 字段名=××

注意!

本站转载的文章为个人学习借鉴使用,本站对版权不负任何法律责任。如果侵犯了您的隐私权益,请联系我们删除。



 
© 2014-2019 ITdaan.com 粤ICP备14056181号