vb 怎么连接access数据库~~ vb 怎么连接access数据库conn.ConnectionString = "DSN=Finance"一个程序里是这样的写,但是不行 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\accdb.mdb;Persist Security Info=False" 添加ADO,在工程->引用中选择“Mircrosoft ActiveX Objects Data 2.8 Library”。'添加ADO,在工程->部件中选择“Mircrosoft ADO Data Control6.0 (SP6)(OLEDB)”。'添加数据列表控件,在工程->部件中选择“Mircrosoft DataList Control6.0 (OLEDB)”。'添加数据网格控件,在工程->部件中选择“Mircrosoft DataGrid Control6.0 (OLEDB)”。Dim strConnect As String Dim a As Integer Dim strProvider As String Dim strDataSource As String Dim strDataBaseName As String strProvider = "Provider= Microsoft.Jet.OLEDB.3.51;" strDataSource = App.Path '得到应用程序所在的路径 strDataBaseName = "\test.mdb;" strDataSource = "Data Source=" & strDataSource & _ strDataBaseName '得到数据库的完整路径 strConnect = strProvider & strDataSource Set connConnection = New ADODB.Connection connConnection.CursorLocation = adUseClient connConnection.Open strConnect '打开数据库 Set rsRecordSet = New ADODB.Recordset rsRecordSet.CursorType = adOpenStatic '设置记录集的属性 rsRecordSet.CursorLocation = adUseClient rsRecordSet.LockType = adLockPessimistic rsRecordSet.Source = "Select * From 学生信息" rsRecordSet.ActiveConnection = connConnection rsRecordSet.Open '打开记录集 这个连接方法是先要建立一个名称为Finance的ODBC数据源....jhone99的方法是直接用jet引擎连接,也是目前比较常用的方法.. 有没有办法在DLL中设计异步的过程 求vb调用pb写的com组件源码 急!!!怎样将ACCESS数据逐条导入EXEL表格中?请帮帮我吧!!! 请问这种登陆方式如何实现呀 关于mask的问题 怎么实现记事本的新建一个*.txt文件的的菜单? 就是记事本的新建(New)菜单 几个小问题?1、如何传递颜色数值?2、如何画扇形?以及添充颜色?………… 那可免费下载 求救!照书编的计算器‘=’号按了没用,没结果显示的 请问这句子是什么意思? 寻找好用的 Chart(图形) 控件 请问怎样实现高效率的上移、下移和删除动态数组中指定的元素呢?
添加ADO,在工程->引用中选择“Mircrosoft ActiveX Objects Data 2.8 Library”。
'添加ADO,在工程->部件中选择“Mircrosoft ADO Data Control6.0 (SP6)(OLEDB)”。
'添加数据列表控件,在工程->部件中选择“Mircrosoft DataList Control6.0 (OLEDB)”。
'添加数据网格控件,在工程->部件中选择“Mircrosoft DataGrid Control6.0 (OLEDB)”。Dim strConnect As String
Dim a As Integer
Dim strProvider As String
Dim strDataSource As String
Dim strDataBaseName As String
strProvider = "Provider= Microsoft.Jet.OLEDB.3.51;"
strDataSource = App.Path '得到应用程序所在的路径
strDataBaseName = "\test.mdb;"
strDataSource = "Data Source=" & strDataSource & _
strDataBaseName '得到数据库的完整路径
strConnect = strProvider & strDataSource
Set connConnection = New ADODB.Connection
connConnection.CursorLocation = adUseClient
connConnection.Open strConnect '打开数据库
Set rsRecordSet = New ADODB.Recordset
rsRecordSet.CursorType = adOpenStatic '设置记录集的属性
rsRecordSet.CursorLocation = adUseClient
rsRecordSet.LockType = adLockPessimistic
rsRecordSet.Source = "Select * From 学生信息"
rsRecordSet.ActiveConnection = connConnection
rsRecordSet.Open '打开记录集
这个连接方法是先要建立一个名称为Finance的ODBC数据源....
jhone99的方法是直接用jet引擎连接,也是目前比较常用的方法..