vb2010连接ACCESS数据库及查询资料

你这个问题大了，我简单说下，网上有实例你可以搜索下。先定义连接对象，指定数据库位置然后定义数据库对象，再用select语句检索。可以直接用text1.text=数据库("列名")你就搜索VB Access即可。

必须安装MYSQL的驱动才行，不管是VB还是c++都需要这个驱动。代码如下： Public Function exemysql(ByVal sql As String) As ADODB.Recordset sql = Trim$(sql) Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.Open "Driver=MySQL ODBC 3.51 Driver" &_ "Server=服务器地址" &_ "Port=3306" &_ "Database=数据库名" &_ "Uid=用户名" &_ "Pwd=密码" conn.DefaultDatabase = "数据库名" conn.CursorLocation = adUseClient Set rs.ActiveConnection = conn rs.LockType = adLockBatchOptimistic rs.CursorType = adOpenKeyset rs.Open sql Set exesql = rs Set rs = Nothing Set conn = Nothing End Function

有两种方式：

一是把excel在外部打开

二是把excel按数据库方式打开

你要哪种？哪种方法我都可以写出来。

你最好给我一个电子的样子，那才能有针对性地写出代码。

张志晨

补充：

1、引用Microsoft Excel类型库

“工程”-“引用”-选择“Microsoft Excel 8.0 Object Library”-“确定”

2、声明显式数据类型，创建新实例并获取Excel的控制句柄

Dim ExcelObject As Excel.Application

Set ExcelObject = CreateObject( "Excel.Application ")

3、调用并显示Excel

Excelobject.Visible = True

4、打开文件，

ExcelObject .Open pathName

然后用循环进行判断，那就简单了。因为不知道你到底要判断什么，所以无法写出具体的代码来。

Public xlApp As Excel.Application

Public xlbook As Excel.Workbook

Public xlSheet As Excel.Worksheet

Public Function OpenExcel(xlPath As String)

Set xlApp = CreateObject("excel.application")

Set xlbook = xlApp.Workbooks.Open(xlPath)

Set xlSheet1 = xlbook.Worksheets(1)

Set xlSheet2 = xlbook.Worksheets(2)

xlApp.Visible = fasle

Dim i As Integer

i = 1

'下面的判断是假设的，你要改成你实际需要的

Do While xlSheet1.Cells(i, 1).Value =xlSheet2.Cells(i, 1).Value

Form1.List1.AddItem xlSheet.Cells(i, 1).Value

i = i + 1

Loop

quitExcel

End Function

Public Function quitExcel()

xlApp.Quit

Set xlApp = Nothing

Set xlbook = Nothing

End Function

---