vb、oracle操作

s_xgqc 2014-03-03 09:09:49

本人是学c#的，对vb不熟，请高人指点，最好给出代码让我参考，谢谢！
vb里有一个按钮button，点击该按钮可以改变oracle数据库里的某些值，具体如下：

table

no name level type type_flag
001 张三工程师直接 Y
002 李四经理直接 Y
003 赵工程师间接

当点击button时，如果为工程师，如果type_flag为空，就将type_flag这个栏位更新为"Y",如果type_flag不为空，就更新level为“间接”

请问代码要怎么写

...全文

160 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

东海边上 2014-03-05

打赏
举报

dim strConnnect as string,strSQL as string

dim conOra as adodb.connection



strConnect = ""

strConnect = strConnect & "Provider=MSDAORA.1;"

strConnect = strConnect & "Password=" & strOraPwd & ";"

strConnect = strConnect & "User ID=" & strOraUser & ";"

strConnect = strConnect & "Data Source=" & strOraSID & ";"

strConnect = strConnect & "Persist Security Info=True"



with conOra

        .CommandTimeout = 3000

        .CursorLocation = adUseClient

        .Open strConnect



end with

通过ado连接写两个sql语句就行了
strsql="update table set type_flag='Y' where level='工程师' and type_flag is null ;"
conOra.Execute strSQL, Options:=adCmdText
strsql="update table set level='间接' where level='工程师' and type_flag is not null ;"
conOra.Execute strSQL, Options:=adCmdText

上面那个字段可能看错了
,这个试一下