1187
社区成员
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
RUKYO 2004-09-13
以上要引用ADO对象：
工程->引用Microsoft ActiveX Data Objects 2.x Library
工程->引用Microsoft ActiveX Data Objects 2.x Library
RUKYO 2004-09-13
Option Explicit
Private Sub Command1_Click() '获得Access表名
Dim mCnnString As String
mCnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" & ";Persist Security Info=False"
Call mGetTableName(mCnnString)
End Sub
Private Sub Command2_Click() '获得Excel表名
Dim mCnnString As String
mCnnString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= " & App.Path & "\Book1.xls;" & "Extended Properties=""Excel 8.0;HDR=Yes;"";"
Call mGetTableName(mCnnString)
End Sub
Public Sub mGetTableName(ByVal mSendString As String)
Dim mCon As New ADODB.Connection
Dim mSchema As New ADODB.Recordset
mCon.Open mSendString
Set mSchema = mCon.OpenSchema(adSchemaTables)
Do Until mSchema.EOF
If mSchema!TABLE_TYPE = "TABLE" Then Debug.Print "Table name: " & mSchema!TABLE_NAME & vbCr & "Table type: " & mSchema!TABLE_TYPE & vbCr
mSchema.MoveNext
Loop
Set mSchema = Nothing
Set mCon = Nothing
End Sub
Private Sub Command1_Click() '获得Access表名
Dim mCnnString As String
mCnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" & ";Persist Security Info=False"
Call mGetTableName(mCnnString)
End Sub
Private Sub Command2_Click() '获得Excel表名
Dim mCnnString As String
mCnnString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= " & App.Path & "\Book1.xls;" & "Extended Properties=""Excel 8.0;HDR=Yes;"";"
Call mGetTableName(mCnnString)
End Sub
Public Sub mGetTableName(ByVal mSendString As String)
Dim mCon As New ADODB.Connection
Dim mSchema As New ADODB.Recordset
mCon.Open mSendString
Set mSchema = mCon.OpenSchema(adSchemaTables)
Do Until mSchema.EOF
If mSchema!TABLE_TYPE = "TABLE" Then Debug.Print "Table name: " & mSchema!TABLE_NAME & vbCr & "Table type: " & mSchema!TABLE_TYPE & vbCr
mSchema.MoveNext
Loop
Set mSchema = Nothing
Set mCon = Nothing
End Sub
online 2004-09-13
http://blog.csdn.net/online/archive/2004/09/08/98744.aspx
测试环境:WINXP+VB6
添加2个列表框，1个按钮
'引用微软 ADO Ext.2.X for dll and Security
Dim cat As ADOX.Catalog
Dim cnn As ADODB.Connection
Dim tbl As ADOX.Table
Private Sub Command1_Click()
On Error Resume Next
For Each tbl In cat.Tables
'如果是sqlserver数据库，则变成If Left(tbl.Name, 3) <> "sys"
If Left(tbl.Name, 4) <> "MSys" Then
List1.AddItem tbl.Name
End If
Next
End Sub
Private Sub Form_Load()
Set cnn = New ADODB.Connection
Set cat = New ADOX.Catalog
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\csdn_vb\database\article.mdb"
'cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=northwind;Data Source=yang"
Set cat.ActiveConnection = cnn
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set cat = Nothing
Set con = Nothing
End Sub
测试环境:WINXP+VB6
添加2个列表框，1个按钮
'引用微软 ADO Ext.2.X for dll and Security
Dim cat As ADOX.Catalog
Dim cnn As ADODB.Connection
Dim tbl As ADOX.Table
Private Sub Command1_Click()
On Error Resume Next
For Each tbl In cat.Tables
'如果是sqlserver数据库，则变成If Left(tbl.Name, 3) <> "sys"
If Left(tbl.Name, 4) <> "MSys" Then
List1.AddItem tbl.Name
End If
Next
End Sub
Private Sub Form_Load()
Set cnn = New ADODB.Connection
Set cat = New ADOX.Catalog
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\csdn_vb\database\article.mdb"
'cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=northwind;Data Source=yang"
Set cat.ActiveConnection = cnn
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set cat = Nothing
Set con = Nothing
End Sub
lyc0553 2004-09-13
sp_tables
RUKYO 2004-09-13
http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=8159
数据库查询、分析工具 - 1.0.0.7 20190616 DataBaseName 是数据库名称 UserName 是用户名称 Password 是用户密码 若要连接其他数据库，可以直接输入数据源的名称（DSN），格式为：“dsn:数据源的名称;uid=用户名;pwd=密码” Field1 和 Field2 是查询...
C# 创建Excel，读取mdb数据库，写入Excel数据，获取mdb中所有表格名字，选择多个文件 C# 创建Excel，读取mdb数据库，写入Excel数据，获取mdb中所有表格名字，选择多个文件 1、创建Excel表 使用OleDbCommand类执行SQL语句即可,代码如下 /// <summary> /// 创建表格 /// </...
ACCESS VBA导出数据库表到XLS文件 本例简析通过ACCESS VBA查询语句导出所有数据库表到XLS文件。 2. 相关知识 2.1 导出数据查询代码 有四种方法，可选其中一种。其中D:\test.xls表示导入到D盘里，命名为test.xls；Sheet1是工...
c++使用Accesss数据库操作Excel表(CRecordset类详解) 例如，对于表1所示的将在后面例子中使用的数据库表，ClassWizard会在派生类中加入6个域数据成员，如清单1所示。可以看出域数据成员与表中的字段名字类似，且类型匹配。 （表1）stdreg32.mdb中的Section表 ...
万能 Android 数据库导出Excal表代码 这是我遇到Android 需要将sqlite数据库导出Excal表时写万能操作Excal代码,这段代码将所有导出时所有操作都进行封装；只需传入相应要对Excal表的值就行 调用 databaseDump1.writesqlExcel(sql11,tablename,sheet,...
将DBF,XLS,XML,MDB文件导入C#DataGrid的方法 以下的源码里分别给出了将DBF,XLS,XML,MDB文件导入C#DataGrid的方法,供各位参考。 //PutInDataSet.cs的源码 using System; using System.Data.Odbc; using System.Data.OleDb; using System.Data; using System....
vfp的数据库（.dbc）如何连接access（.mdb）？ 我的目的是：将vfp数据库的多个表，进行多表查询，然后将结果保存到access的一个表中。该如何？ 网友一：1、在DBC中建立远程视图连接MDB（首先配置ODBC），再导数据； 2、用SPT、ADO连接MDB，将数据导入MDB。 ...
把excel文件直接导入mysql数据库中，表名直接取sheet页面名称，第一行为字段名称 几个心得： 1、字段名如果包含特殊字符，需要用` 2、字符字段最多65535，所以不能直接用varchar(1000)，...把放置在D盘下的excel文件直接导入mysql数据库中，表名直接取sheet页面名称，第一行为字段名称 修改记...
用Access将XLS与MDB文件格式互相转换（转） 最近，网络管理员在服务器上分给我一块空间，用来...为了方便大家在网络上查询，便作了一个简单的ASP查询系统，其中所链接的是MDB格式的Access数据库，而在建网之前，资料是用Excel表格软件来汇总的，格式为XLS，...
PTSJ通用数据库管理系统9.3 包括Xbase、Excel、Text等类型的文件，并可对记录数据进行查询检索、编辑、统计、排序，且管理的结果可导出为mdb、dbf、txt、xls等格式。 十五、用户可根据实际应用情况，自定义软件的名称、数据处理路径、数据备份...
EXCEL:读取ACCESS数据库中指定表数据到EXCEL using System; using System....//将数据表名称添加到下拉列表中 } if (DropDownList1.Items.Count > 0)//判断下拉列表中是否有项 DropDownList1.SelectedIndex = 0;//设置下拉列表默认选择第一项 } }
保存Excel文件、获取表的名称——Visual C#读取Excel和Access数据库 Visual C#读取Excel和Access数据库 三峡大学土木水电学院 肖泽云 ... 5三、获取表的名称... 6四、打开指定的Excel表格... 8五、读取Access数据库... 10六、获取Access表信息... 12七、打开指定的Access表... 1
C#将数据库的查询结果导出为Excel // fileName = path + "\\" + DateTime.Now.ToString().Replace(':', '_') + ".xls"; workbook.SaveAs(fileName, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Microsoft.Office....
sql中如何调用另一台服务器的数据库查询数据呢？ 内容就是机器A上的数据库database1里面的Table1。 如何用sql语句完成？（不借用dts等） SQL code --创建链接服务器 exec sp_addlinkedserver 'ITSV','','SQLOLEDB','远程服务器名或ip地址' exec sp_...
用ASP连接读写ACCESS数据库实例（转） 有许多的数据库你可以选择，SQL SERVER、ACCESS(*.mdb)、EXCEL(*.xls)、FOXPRO(*.dbf)甚至普通的文本文件(*.txt)都可以达到存储数据的功能。那么到底选择什么数据库最合适呢？其中SQLSERVER是服务器级的，足以应付...
T-SQL语句实现SQL server与XLS,MDB等文件的数据交换 用T-SQL语句实现SQL server与XLS,MDB等文件的数据交换 简介：微软SQL Server数据库SQL语句导入导出大全，包括与其他数据库和文件的数据的导入导出。(注意，其中的PSW和USER ID均指被访问文件的权限，不是网络登陆...
把一个Excel文件导入数据库的某张表中 ="xls"){ alert("只支持.xls文件"); return } var activityFile = $("#activityFile")[0].files[0]; if(activityFile.size>1024*1024*5){ alert("文件大小不超过5MB"); return } //FormData:是ajax提供的一个接口，...
数据库编程总结 数据库编程总结当前各种主流数据库有很多，包括Oracle, MS SQL Server, Sybase, Informix, MySQL, DB2, ...数据库编程是对数据库的创建、读写等一列的操作。数据库编程分为数据库客户端编程与数据库服务器端编程。数据
