用DAO连接SQL SERVER2000 数据库要引用DAO哦Dim m_DB As Database Dim RecSet As Recordset Dim sSQL As String '******************************************************************* ' 过程名称:OpenDAODatabase ' 功能描述:打开全局的数据库连接 '******************************************************************* Public Sub OpenDAODatabase()
End Sub'****************************************************** '打开数据库连接(DAO) Call OpenDAODatabase ''****************************************************** sSQL = "select * from yourtable where id ='101'" Set RecSet = m_DB.OpenRecordset(sSQL, dbOpenSnapshot, dbSeeChanges) MsgBox RecSet.Fields(1).Value
制作一个服务器端程序???
你做的会有microsoft的好???
你如果想自己写一个数据库,去下一个mysql的源代码看看吧
这是必须的.
用DAO连接SQL SERVER2000 数据库要引用DAO哦Dim m_DB As Database
Dim RecSet As Recordset
Dim sSQL As String
'*******************************************************************
' 过程名称:OpenDAODatabase
' 功能描述:打开全局的数据库连接
'*******************************************************************
Public Sub OpenDAODatabase()
cnStr = "ODBC;Driver=SQL Server;Server=" & gdbServer & ";UID=" & gdbUserID & ";PWD=" & gdbPassWD & ";Database=" & gdbDBName & ""
Set m_DB = OpenDatabase("", False, False, cnStr)
End Sub'******************************************************
'打开数据库连接(DAO)
Call OpenDAODatabase
''****************************************************** sSQL = "select * from yourtable where id ='101'"
Set RecSet = m_DB.OpenRecordset(sSQL, dbOpenSnapshot, dbSeeChanges)
MsgBox RecSet.Fields(1).Value