从連接odbc转换到連接ado?马上接！！！！！！！！！！！！！！！

Question

原来的連接串：
Set wrkjet = CreateWorkspace("", "", "", dbUseODBC)
Set db = wrkjet.OpenDatabase("bank", dbDriverComplete, False, "ODBC;uid=sxciqbank;pwd=sxciqbankpwd;DSN=bank")
有许多下面的类似语句：
commandtext = "select FEE_OPERATOR_CODE,FEE_DATE from t_bank_unsend_record where decl_no='" + temp1 + "' and fee_no='" + temp2 + "'"
Set myset11 = db.OpenRecordset(commandtext)现在想改成ado連接，怎么用最方便的语句转换呢？请提供代码！！！谢谢，急啊！！！！

Answer 1

'引用ADO("工程"/"引用"/Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command1_Click()
    Dim cn As New ADODB.Connection, rs As New ADODB.RecordSet    '连接Access：
    'cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;Jet OLEDB:DataBase password=12345;"
    'SQL连接：
    混合验证方式的连接：
    'cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=登陆用户名;Password=登录密码;Initial Catalog=数据库名;Data Source=服务器别名/IP"
    '集成验证的连接：
    cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=数据库名;Data Source=服务器别名/IP"    cn.Open
    rs.CursorLocation=adUseClient'设置客户端游标
    rs.Open "select * from 表 where ......", cn, 3, 2
    Set DataGrid1.DataSource = rs    '把记录集的记录显示到DataGrid1
End Sub

Answer 2

to faysky2() 能否尽量不改原来的程序，我要连接是oracle,能否这样呢？commandtext = "select FEE_OPERATOR_CODE,FEE_DATE from t_bank_unsend_record "Set myset11 = rs.OpenRecordset(commandtext)　　　＊＊＊＊＊＊＊＊＊＊？？？

Answer 3

上面的写法不行
直接写个连接的函数
function DBCon() as ADODB.connection
   '连接数据库
end function
替换原来的写法 另外Access的SQL语法和Oracle 有差别，需要改写SQL语法

Answer 4

你用的DAO来操作，只改db的连接就可以了，其他的不用改：Set wrkjet = CreateWorkspace("", "", "", dbUseODBC)
Set db = wrkjet.OpenDatabase("bank", dbDriverComplete, False, "ODBC;uid=sxciqbank;pwd=sxciqbankpwd;DSN=bank")改为：Set db = OpenDatabase(App.Path & "\bank.mdb", False, False, "UID=sxciqbank;Pwd=sxciqbankpwd")

Answer 5

晕，楼主是从Access转为Oracle?
crycoming(瞎编)说得对，有些sql语句必须修改，Access的SQL语法和Oracle 有差别

Answer 6

我是連接oracle的，现用DAO来操作，对下面的语句怎么改动呢？？？？急　
Set db = OpenDatabase(App.Path & "\bank.mdb", False, False, "UID=sxciqbank;Pwd=sxciqbankpwd")