如何规划数据库连接,及与DataGrid表的绑定?

Question

本菜鸟我要做一个餐饮管理软件，现在不知道怎么去连接数据库,怎么和DataGrid连接,直接和ADO连接还是用代码将DataGrid逐条地加?
以前我给一个工厂做这种数据库管理软件，用Adodc直接与DataGrid棒定,结果,做完后，要换数据库,而以前那些ADODC的初始代码又得换,那么多窗体，那么多adodc控件,什么时候能改完?
  如果不用adodc控件,如果用代码的话，能和DataGrid棒定吗?这样方便吗?给个函数吧?!希望各位大侠帮我解决数据库的连接代码问题,告诉我如何在模块里定义ado,如何动态绑定DataGrid,以及规划,可以提示，也可以给代码,本人感激不禁....................

Answer 1

首选在"工程"---"引用"中引用Microsoft ActiveX Data Objects 2.0 Library,然后在模块中连接数据库:
Public gDBConnect As New ADODB.Connection 
gDBConnect.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\DB\Admin.mdb" & ";Persist Security Info=False;Jet OLEDB:Database Password=ABCDE"
gDBConnect.Open'这样就建立了跟数据库的连接.

Answer 2

用控件绑定不方便
引用ADO，现在是ADO 2.7dim gRMTcnn As ADODB.Connection    '远程库
gRMTcnn.ConnectionString ="Provider =SQLOLEDB.1; Persist Security Info =False;User ID =sa; Password =Password ; Initial Catalog = 数据库名;Data Source = 数据源（安装数据库的机器名或IP地址）;STOP=;"然后查询---做循环数据写入数据表格

Answer 3

多了一个stop=;那是我程序里面要用到的，不小心粘贴过来了二楼的是连接本地库
现在用的是 Microsoft ActiveX Data Objects 2.7 Library dim gRMTcnn As new ADODB.Connection    '远程库
gRMTcnn.ConnectionString ="Provider =SQLOLEDB.1; Persist Security Info =False;User ID =sa; Password =Password ; Initial Catalog = 数据库名;Data Source = 数据源（安装数据库的机器名或IP地址）;"gRMTcnn .open然后查询---做循环数据写入数据表格

Answer 4

'================================
'连接到SQL Server数据库模块
'================================
'Cn 为数据库连接名称
Public Cn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public SQLString As String
Public Function Conn(ByVal DBName As String) As Boolean
    Conn = False
    Set Cn = New ADODB.Connection
    On Error GoTo ConnError '当数据库连接错误则转到ConnError
    
    '建立数据库连接
    ConnString = "Provider=SQLOLEDB.1;User ID=" + ConnUser + ";Password=" + ConnPswd + ";Initial Catalog=" + DBName + ";Data Source=" + ServerName
    'MsgBox ConnString
    Cn.Open ConnString
    Conn = True
    Exit Function '当连接数据库成功则跳出函数
ConnError:
    Conn = False
    MsgBox "数据库连接失败，请重新配置数据库连接！", vbExclamation, "错误！"
End FunctionConn (Database)
    Set rs = New ADODB.Recordset
    SQLString = "select * from member"
    rs.ActiveConnection = Cn
    With rs
    .CursorLocation = adUseClient
    .CursorType = adOpenStatic
    .LockType = adLockReadOnly
    .Open SQLString
    End With
    Set DataGrid1.DataSource = rs