专注于互联网--专注于架构

最新标签
网站地图
文章索引
Rss订阅
<%dim conn,connstr,f6nDB,rs,UserAgent\'数据库名称和路径f6nDB=\"data/data.mdb\"ConnStr = \"Provider = Microsoft.Jet.OLEDB.4.0;Data Source = \" & Server.MapPath(\"\"&f6nDB&\"\")On Error Resume NextSet conn = Server.CreateObject(\"ADODB.Connection\")conn.open connstrIf Err The [阅读全文] [PDF]
常用VB操作ACCESS数据库代码 \'VB引用项目如下:\'Microsoft ADO Ext. 2.8 for DDL and Security\'Microsoft ActiveX Data Objects 2.8 Library\'COM+ Services Type Library\'Microsoft DAO 3.6 Object LibrarySub CreateDatabase(mdbPath, mdbPassword) Dim cat As New ADOX.CatalogIf mdbPassword = \"\" Thencat [阅读全文] [PDF]
经常要用到VB连接SQL2000数据库代码,老是找不到地方找,特地写下来,方便以后查找。 Private Sub Command1_Click() \'首先引用Microsoft Activex Data Objects 2.x LibraryDim objcon As New ADODB.ConnectionDim objrs As New ADODB.RecordsetDim strConn As String strConn = \"Provider=SQLOLEDB.1;User ID=sa;password=密码;Initial Cata [阅读全文] [PDF]
ute;先引用Mcrsoft DAO 3.6(或2.5或3.51) Object Library和Mcrsoft Access 9.0 Object Library,在Form上加个Command1,粘贴以下代码:Private Sub Command1_Click() Dim wrkDefault As Workspace Dim dbsNew As Database Dim tdfNew As TableDef Dim NewDB As Database If Dir(\"D:\\NewDB.mdb\") <> \"\" Then Kill [阅读全文] [PDF]
’工程-引入MicrosoftJetandReplicationObjectsLibrary PrivateSubCommand1_Click() DimFIXDBAsNewJRO.JetEngine FIXDB.CompactDatabase\"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=c:aa.mdb\",_ \"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=c:aac.mdb\" EndSub ’CompactDatabase第一个参数是原始数据库,第二个是目标数据库 [阅读全文] [PDF]
1 共5条 分1页