UC知道VB删除RECORDSET中数据
来源：百度知道 编辑：UC知道 时间：2024/05/18 00:53:20
一个窗体,一个模块,窗体内一个TEXT输入框,一个COMMAND按钮,程序要求是:TEXT输入列名,点击COMMAND按钮,删除数据表中列名为TEXT.TEXT的数据行.
我在模块里的代码:
Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Public Function opencs()
Dim ts As String
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=pubs;Data Source=504文"
cn.Open
rs.CursorLocation = adUseClient
rs.Open "select * from authors where au_id=ts", cn, adOpenDynamic, adLockOptimistic
End Function
command里的代码:
Private Sub Command1_Click()
ts = text1.text
opencs
rs.Delete
rs.Update
End Sub
基本上COMMAND里面的代码我是靠看别人类似的程序再抄下来的(也就是差不多乱来),运行的话,好像说找不到ts,有没有高人能帮我看下,最好在这代码的基础上做修改,如果不行贴个较接近的例子的完整代码让我研究也行,我总分才6分,只能悬赏五分,很少,望见谅!我没学过VB!最后补充一下:百度上能够搜的我都搜过了!这样吧,分实在是少,我有一个盛大通行证号,上次里面充了三十块钱(充错了没用),现在好像有两千一百多个点数,哪位大哥会弄这题又玩盛大游戏的,我把这个号给了!
回二楼?像这样的:12
我在模块里的代码:
Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Public Function opencs()
Dim ts As String
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=pubs;Data Source=504文"
cn.Open
rs.CursorLocation = adUseClient
rs.Open "select * from authors where au_id=ts", cn, adOpenDynamic, adLockOptimistic
End Function
command里的代码:
Private Sub Command1_Click()
ts = text1.text
opencs
rs.Delete
rs.Update
End Sub
基本上COMMAND里面的代码我是靠看别人类似的程序再抄下来的(也就是差不多乱来),运行的话,好像说找不到ts,有没有高人能帮我看下,最好在这代码的基础上做修改,如果不行贴个较接近的例子的完整代码让我研究也行,我总分才6分,只能悬赏五分,很少,望见谅!我没学过VB!最后补充一下:百度上能够搜的我都搜过了!这样吧,分实在是少,我有一个盛大通行证号,上次里面充了三十块钱(充错了没用),现在好像有两千一百多个点数,哪位大哥会弄这题又玩盛大游戏的,我把这个号给了!
回二楼?像这样的:12
按下列写:你可明白!
1. cn.Execute "Delete from authors where au_id='" & ts & "'"
此字段:字符型;按:1.
2. cn.Execute "Delete from authors where au_id=" & ts & ""
此字段:数字型;按:2.
--------------------------------------------------
你的思路对!!
字段类型不同,SQL 语句的表示格式也不同,这点留意即可.大胆学习是件好事!祝你成功!!!
rs.delete