zoukankan      html  css  js  c++  java
  • C# Access2003/2007 连接字符串总结

    连接 Access 2007 的操作方法
    //无密码的连接字符串
    stringconStr = "Provider=Microsoft.Ace.OleDb.12.0;";
    conStr += @"Data Source=E:数据库XiaoZhen.accdb;";
    conStr += "Persist Security Info=False;";
    
    //有密码的连接字符串
    stringconStr = "Provider=Microsoft.Ace.OleDb.12.0;";
    conStr += @"Data Source=E:数据库XiaoZhen.accdb;";
    conStr += "Jet OleDb:DataBase Password='829321';";
    
    连接 Access 2003的操作方法
    
    //无密码的连接字符串
    stringconStr = "Provider=Microsoft.Jet.OleDb.4.0;";
    conStr += @"Data Source=E:数据库XiaoZhen.mdb;";
    conStr += "Persist Security Info=False;";
    
    //有密码的连接字符串
    stringconStr = "Provider=Microsoft.Jet.OleDb.4.0;";
    conStr += @"Data Source=E:数据库XiaoZhen.mdb;";
    conStr += "Jet OleDb:DataBase Password='829321';";
    
    <connectionStrings>
    <add name="ConnectionString" connectionString="Provider=Microsoft.Jet.OLEDB.4.0;
    Data Source=F:TeacherSystemApp_Datadb.mdb;
    Jet OLEDB:Database Password=123"providerName="System.Data.OleDb"/>
    </connectionStrings>
    Private Sub CommandButton2_Click()
        Dim myCon      As New ADODB.Connection
        Dim myRst      As New ADODB.Recordset
        Dim myFileName As String
        Dim myTblName  As String
        Dim myKey      As String
        Dim dbFile As String
        Dim mySht      As Worksheet
        Dim i          As Long
        Dim j          As Long
        Dim sql As String
        sql = Space$(10000)
        Dim sql2 As String
        sql2 = Space$(10000)
        Dim sql3 As String
        sql3 = Space$(10000)
        
        TbName = Cells(1, 8)
        myFileName = "db1.mdb"
        dbFile = "C:Program FilesSWTOOLSTXT" & myFileName & ";"
        myCon.Open "Provider=MSDASQL;Driver={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=" & dbFile
        
            '创建表
            sql = "CREATE TABLE [" & TbName & "]("
            For i = 2 To 255
                ZdName = Cells(2, i)
                ZdType = Cells(3, i)
                If i = 2 And ZdType = "int" Then ZdType = "AUTOINCREMENT"
                ZdNull = Cells(5, i)
                If ZdName = "" Then Exit For
                If ZdNull = "Y" Then ZdNull = "NULL" Else ZdNull = "NOT NULL"
                sql2 = " " & ZdName & "  " & ZdType & "  " & ZdNull & ","
                sql = sql & sql2
            Next
            sql = sql & "PRIMARY KEY ([ID]));"
            
            'MsgBox Len(sql)
            myCon.Execute sql
            '创建记录
            For j = 6 To 40000
                sql = ""
                Rows(j).Select
                If Cells(j, 2) = "" Then Exit For
                sql = sql & "insert into " & TbName & " values" & Chr(13)
                sql = sql & "('"
                For i = 2 To 255
                    ZdName = Cells(2, i)
                    ZdCont = Cells(j, i)
                    If ZdName = "" Then Exit For
                    If i = 2 Then
                        sql = sql & ZdCont
                    Else
                        sql = sql & "','" & ZdCont
                    End If
                Next
                sql = sql & "');" & Chr(13)
                myCon.Execute sql
            Next
        Set myCon = Nothing
    End Sub

    Win7x64bit下访问access mdb文件

    myCon.Open "Provider=MSDASQL;Driver={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=" & dbFile

  • 相关阅读:
    MapXtreme实用技巧与源码10例
    在MapXTreme2004中创建自定义工具
    Mapinfo的几个文件的具体含义及内容是什么?
    MapXtreme打包成功的经验
    OCP最新题库收集,新版052考题及答案整理19
    【OCP|052】052考试题库又变了,最新052题库收集整理第15题
    OCP 052新加的考试题收集整理第20道
    【ocp 052又加新题了】052新加的考试题及答案整理第13题
    【OCP052】新版052最新题库及答案整理第14题
    OCP换考题了,052新考题及答案整理第17题
  • 原文地址:https://www.cnblogs.com/swtool/p/4045680.html
Copyright © 2011-2022 走看看