vb6.0 中ado控件设置access数据库的相对路径
写了一个小程序，vb写的，用ado控件连接access数据库，vb是绿色版本，问题是：程序与数据库连接是通过设置ADO的控件属性（这样是设置了绝对路径），程序中没有写连接语句，然后生成exe文件，文件在工程文件夹下面，access数据库也放在工程文件夹下，我把程序拷到电脑其他位置，就不能正确连接到数据库了，请问该怎么做？能否在ado控件的属性中设置相对路径
AdoCnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ch.mdb;Jet OLEDB:DataBase PASSWORD=123456"
VB6.0 用ADO修改Access数据库中指定某行某列的单元内数据
一 ADO类，在工程找到引用，在引用里找到Data Object 2.5以上版本，Command事件中写：Dim cnn As ADODB.ConnectionDim rs As ADODB.RecodeSetSet cnn As New ADODB.ConnectionSet rs As New ADODB.RecordSetcnn.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;Data Source="+ACCESS相对完整路...
vb中如何调用Access数据表中的某一个记?
1. 首先，确保在项目中添加ADO控件。在“工程”菜单下的“部件…”选项中，选择并添加Microsoft ActiveX Data Objects 2.5 到工具箱。2. 将ADO控件拖至窗体，然后在代码编辑器中编写代码，通过ADO对象连接Access数据库。例如： `Dim con As ADODB.Connection`，`con.Open "Provider=Microsoft.Jet.OLED...
VB6.0 使用Adodc控件读取Access数据库. 怎么修改数据库指定某一列的所 ...
Private Sub Command1_Click() Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ACCESS路径名" '\/\/连接字符串,ACCESS2007以上版本不一样 Adodc1.RecordSource="Select * from 表名称" '\/\/查询表数据 Adodc1.Refreash '\/\/必须要刷新控件激活 '\/\/如果要...
我怎么把我自己编写的Access连接到VB6.0中去呢
在工程里找到部件 在部件里找到Microsoft ADO Control 6.0,勾上，点应用，工具拦上出现一个拉练样的控件为止。把ADO拖放到窗体上，VISIBLE属性设置成不可见。再拖放一个按钮，一个文本框，连接语句这么写：Private Sub Command1_Click()Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data ...
请教VB6.0 中DataGrid 操作Access数据库的问题
1:添加ADODC控件 2:添加DATEGRID控件 3:设置ADODC1的连接字符串,指定ACCESS数据库(详细操作不用我说了吧)4:设置ADODC1的RECORDSOURCE,一般指表名 5:设置DATEGRID的RECORDSOURCE为ADODC1 6:设置DATAGRID的允许的操作 7:在FORM_LOAD中写ADODC1.REFRESH就可以了 在所有数据控件中,我个人认为DATAGRID是最...
vb6.0使用ADO和datagrid连接access数据库的语句是啥
VB6.0使用ADO和datagrid连接access数据库的语句是：Dim cn As New ADODB.Connection '定义数据库的连接 Dim rs As New ADODB.Recordset Dim sql As String sql = "select * from guzhang_sj" ' where madanhao='1'" cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data...
vb6.0 设置登录界面 怎么调用access数据库? 有模块吗
Private Sub Command1_Click()Set db = OpenDatabase(App.Path & "\\person.mdb")Set rs = db.OpenRecordset("select name,sign from per where name='" & Combo1.Text & "'and sign='" & Text1.Text & "")If Combo1.Text <> "" Then If rs.EOF = True And rs.BOF = True ...
VB6.0中datalist控件如何获得Access数据库中表的数据
例如：一个窗体中有一个ado控件，设置好链接，还需一个access数据表 表名假如是“11”要想显示表11中的哪一列数据就这样写 set datalist.recordsource= ado datalist.listfile="想要显示的列"datalist.绑定=“想要显示的列"
VB6.0连接ACCESS 数据库用like进行模糊查询时,查询不了?
在Visual Basic 6.0 (VB6) 中连接Access数据库并执行模糊查询，可以使用ADO (ActiveX Data Objects) 组件。以下是一个简单的示例代码片段，演示如何创建一个ADO连接，构造一个包含LIKE语句的SQL查询，并执行该查询。' 引入ADODB库 Dim conn As ADODB.Connection Dim rst As ADODB.Recordset Dim sql As...
如何使用VB6.0中 ADO控件获取ACCESS数据库表中字段的最大值并把最大值...
Dim sql As String Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "c:\\成绩.mdb;"sql = "select * from 学生成绩表 ORDER BY 数学 DESC "Adodc1.RecordSource = sql Adodc1.Refresh Text1 = Adodc1.Recordset("数学")
