1、数据库连接Dim FileNamw$, DbIp$, DbName$, DbUser$, DbPw$Dim CnStr$Dim Conn As Adodb.ConnectionFileName = App.Path & "\数据库名"DbIp = ""DbName = ""DbUser = ""DbPw = ""'连接Access数据库:CnStr = "microsoft.jet.oledb.3.51;persist security info =false;data source=" & FileName & ";Jet OLEDB:Database Password=code2000"'连接Oracle数据库:CnStr = "MSDAORA.1;Password=" & DbPw & ";User ID=" & DbUser & ";Data Source=" & DbName & ";Persist Security Info=True"'其中:'PASSWORD:      密码'User ID:       用户号'Data Source:   数据库名'Persist Security Info:'Provider:'连接VF的DBF库:CnStr = "MSDASQL.1;Persist Security Info=False;Driver={Microsoft Visual FoxPro Driver};UID=;SourceDB=" & FileName & ";SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;"'连接SQL的数据库CnStr = "PROVIDER=MSDataShape;Data PROVIDER=MSDASQL;uid=" & DbUser & ";pwd=" & DbPw & ";DRIVER=SQL Server;DATABASE=" & DbName & ";WSID=GQSOFT;SERVER=" & DbNameCnStr = "Provider=SQLOLEDB;Data Source=" & DbIp & ";DATABASE=" & DbName & ";UID=" & DbUser & ";pwd=" & DbPwConn.Open connstr====================================================================2、判断表的存在Function M_fucScanTable(strTName As String) As Integer ' 搜索表 strTableName     On Error GoTo OpenErr     Set MyRsm = New Recordset   MyRsm.Open "Select * From " & strTName,Cn, adOpenKeyset, adLockOptimistic        MyRsm.MoveLast        M_fucScanTable = MyRsm.RecordCount        ' 返回记录数，0 为空表        MyRsm.Close        Set MyRsm = Nothin        Exit Function    OpenErr:        M_fucScanTable = -1                                   ' 无表    End Function   ====================================================================3、动态建立表       strSQL = "CREATE TABLE " & strTName & _        "( Xh char(3) Not Null Primary key,Mc char(10),Xb char(2)," & _        "Csrq char(10),Zw char(20),Gz numeric(9,2),Bz char(30),Xp image )"       cn.Execute strSQL, , adCmdText       其中： Primary key 为设置主键（唯一）====================================================================4、插入记录     Insert         strSQL = "Insert Into A01(Xh,Mc,Xb,Csrq,Zw) " & _       "Values ( '" & Xhp & "','" & Mcp & "','" & Xbp &"','" &Rqp& "','" & Zwp & "' "        Cn.Execute strSQL

评论