UC知道请vb高手翻译，谢谢
来源：百度知道 编辑：UC知道 时间：2024/07/01 14:51:56
Date2 = Format(Now, "YYYY-MM-DD HH:MM:SS")
ADOCC.CommandTimeout = 60
ADOCC.CursorLocation = adUseClient
sql = "Driver={Microsoft ODBC for Oracle};Server=ref;Uid=fc2;Pwd=6969;"
ADOCC.Open "Driver={Microsoft ODBC for Oracle};Server=ref;Uid=fc2;Pwd=6969;"
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open "Select * from TREND_TAG", ADOCC, , adCmdTable
i = 0
count = 0
Do While Not rs.EOF
tagnamArray(i) = Trim(rs("tagnam"))
i = i + 1
count = count + 1
rs.MoveNext
Loop
rs.Close
不会别BB,给你100分，你复制我的50分转发让别人翻译，你再复制给我挣100分，哥们你很会挣差价阿
Date1 = Format(Now - 1, "YYYY-MM-DD HH:MM:SS") '格式化日期
Date2 = Format(Now, "YYYY-MM-DD HH:MM:SS")
ADOCC.CommandTimeout = 60 '超时
ADOCC.CursorLocation = adUseClient '设置为客户端
sql = "Driver={Microsoft ODBC for Oracle};Server=ref;Uid=fc2;Pwd=6969;" 'oracle链接数据库的字符串,使用ODBC链接数据库 ref为oracle服务名,"Provider=MSDAORA.1;Password=6969;Persist Security Info=True;User ID=fc2;Data Source=ref" 这是ado得链接方式
ADOCC.Open "Driver={Microsoft ODBC for Oracle};Server=ref;Uid=fc2;Pwd=6969;" '此处可用ADOCC.Open sql 打开数据库
rs.CursorType = adOpenKeyset '游标的模式
rs.LockType = adLockOptimistic '访问模式,此模式可用rs更新数据库
rs.Open "Select * from TREND_TAG", ADOCC, , adCmdTable '查询一个表
i = 0
count = 0
Do While Not rs.EOF
tagnamArray(i) = Trim(rs("tagnam")) 'rs("tagnam") 获取数据集该字段内容
i = i + 1
count = count + 1
rs.MoveNext '游标跳