请问各位网友,有没有数据库操作的通用函数,包括连接数据库,断开数据库,执行SQL语句的函数。谢谢

解决方案 »

  1.   

    conn.open()
    conn.close()
    conn.execute()
      

  2.   


        Dim CN   As New ADODB.Connection                '定义数据库的连接存放数据和代码
        Dim Rs   As New ADODB.Recordset    CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False"
        CN.Open    Rs.CursorLocation = adUseClient
        Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic    Set DataGrid1.DataSource = Rs
      

  3.   

    执行SQL语句cn.excute "insert into table ........."