大家看看可以实现吗？

[fujihua2001]

本人想写一个数据库访问软件，登录界面要求输入；用户名，密码，数据源，SQL语句，其中数据源可以是任何一种类型的数据库，SQL语句即要求对所取数据集相关的超作。大家有没有好的解决办法可以达到以上要求，本人对这块不是很熟，好象要用到ODBC，请各位好心高手帮忙指点，有例子推荐更好，本人万分感谢！！！

[奔跑9999]

做好界面后然后使用ADO
其实主要是对数据库查询数据等

[fujihua2001]

要能在不改原代码的情况下对多种类型数据库进行连接，能不能详细点

[junki]

你先列举出所有访问数据库的方法,ADO是可以做的
然后提供以上的选择就行了

[射天狼]

完全可以，我有，要的话给我发消息~~~~

[fujlt]

'连接数据库
Public Sub DBconnect()
On Error GoTo errHandler
Dim ssql As String
Dim LocationString As String
Dim adStatus As ADODB.EventStatusEnum

'获取连接字符串
sConnectionString = getConnectString
cnn.ConnectionString = sConnectionString
cnn.ConnectionTimeout = 10
cnn.Mode = adModeReadWrite
cnn.Open

Exit Sub
errHandler:
MsgBox "连接数据库出错，错误类型:" & Err.Description
WriteLogFile "DB connect error " & Err.Description & Err.Number
End
End Sub


getConnectString，为一个func，主要是返回在各种情况下，cnn连接语句，
我使用的是读取一个ini文件内容

[fujihua2001]

cuizm(射天狼）你好，帮一下忙，客户已经发疯了，老总也下达命令了，无论如何也要马上弄出来，不然后果可想而知。本人自己写了下面的代码，请帮忙指点
dim db as adodb.connection
dim rs as adodb.recordset
set db=new adodb.connection
set rs=new adodb.recordset
db.open "data source="&trim(source.text)&";suer id="&trim(username.text)&";password="&trim(password.text)&""
rs.open trim(sqlstring.text),db,这里还有两个参数，因为在网吧，所以不记得了


连接程序就是这样；其中的data source是给的ODBC数据别名，本人用ACCESS和SQL都正常，但拿到客户哪里，就出现了“。。。不能为NULL”的提示，用户的是DB2，帮帮忙啊，分不够的加，神啊，救救我吧

[fujihua2001]

还问问各位，哪里有IMB DB2的软件免费下载！！

[bxf]

我没做过，我的思路是这样的，用select case 产生不同类型的连接字符串，然后用ado打开连接，再执行指定的sql语句将查询结果返回到网格控件中

[vansoft]

如果要訪問不同的數據庫，最好用ODBC，程序可以獲取系統已經設置好的ODBC，直接調用就可以了。

[vansoft]

直得注意的是，不同的數據庫支持的SQL標準不一樣。