快救命呀！！！

Question

例子很多你要吗
怎么给你
对了你也可以用vb的数据库向导建立这样的数据库
很easy

Answer 1

请给我发到我的信箱
[email protected]
谢谢你！！！！

Answer 2

请给我发到我的信箱
[email protected]
谢谢你！！！！

Answer 3

dim dbSource    As database 
         dim tbSource    As Recordset
         
         strMsg = "Driver={" & m_strSrcODBCType & "};"
         strMsg = strMsg & "Server=" & m_strODBCServerName & ";"
         strMsg = strMsg & "database=" & m_strODBCDbName & ";"
         strMsg = strMsg & "db=" & m_strODBCDbName & ";"
         strMsg = strMsg & "uid=" & m_strODBCUserName & ";"
         strMsg = strMsg & "pwd=" & m_strODBCPassword & ";"         '*  打开数据库
         Set dbSource = OpenDatabase(0, 0, False, strMsg)
         '*  打开要操作的数据表
         Set tbSource = dbSource.OpenRecordset(strMsg, dbOpenDynaset)          剩下的就是操作tbSource了，跟通常的数据库没有什么两样

Answer 4

上面写少了一句
         '*  打开数据库
         Set dbSource = OpenDatabase(0, 0, False, strMsg)
         '*  组建SOL字符串
         strMsg = GetSQLString（） ；
         '*  打开要操作的数据表
         Set tbSource = dbSource.OpenRecordset(strMsg, dbOpenDynaset)