VB6连接ACCESS数据库
(完整版)vb连接access数据库及数据读写操作
ACCESS数据库和VB的连接Edited by Ryan 20131、建立Access数据库2、启动VB，建立标准EXE图13、添加ActiveX控件鼠标指向任意VB控件，单击右键，选择“部件（O）”，出现图3所示界面图2图3选择部件“Microsoft ADO Data Control 6.0 (OLEDB)”，出现如图4所示控件图44、添加控件Adodc图54、在控件Adodc上添加数据源鼠标指向控件Adodc1，单击右键，选择“ADODC 属性”，弹出如图7所示界面图6图7单击“生成(U). . .”，弹出如图8所示界面图8选择“Microsoft Jet 4.0 OLE DB Provider”，单击“下一步(N) >>”，弹出如图9所示界面图9单击“. . .”，添加数据源（第一步所建Access 数据库），如图10所示图10单击“测试连接（T）”，出现提示框，如图11所示图11之后点击“确定”，退回到如图12所示界面图12单击“记录源”，弹出如图13所示界面图13在“命令类型”下，选择“1 - adCmdText”，在“命令文本（SQL）”下，输入“Select * from test1”，最后单击“应用”，“确定”即可之后，进入程序书写部分程序部分需要注意接头形式及简单例子如下：Private Sub Command1_Click() ‘VB按钮控件Dim mydb As New ADODB.Connection ‘定义新的数据库连接mydb.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\read database\test1\test1.mdb" ‘数据库绝对路径Dim rs As New ADODB.Recordset ‘定义数据库的一个对象mydb.Open ‘打开数据库rs.Open "select * from test1", mydb, 3, 3 ‘打开数据库中的表test1For i = 1 To 1 ! For循环控制选择哪一行rs.MoveNextNext iMe.Text1.Text = rs.Fields(1).Value ‘读取指定行中的哪个数据给文本框rs.Update ‘数据显示rs.Close ‘关闭表End Sub。
vb6.0如何连接有密码的ACCESS数据库
vb6.0如何连接有密码的ACCESS数据库以前曾看过介绍如何在Visual Basic中连接和使用Access数据库的技术文章，实际上在专业的数据库软件开发中，为了确保数据库中信息的安全，往往要求对数据库文件进行加密，以防止非法用户通过其它的常规手段将其打开。
那么，在Visual Basic中如何建立与加密的数据库的连接呢？笔者在开发本校的宿舍管理信息系统中，总结了一些方法和技巧，现写出来与同行交流。
一、建立数据库因为在Visual Basic 6.0中有的数据库连接方式不支持Access 2000版本格式的数据库，为了便于说明问题，本文所提的数据库以Access 97版本数据库为例。
在Microsoft Access 97中建立一个数据库，如：ssgl.mdb，并设置密码，如：“1234”，再将数据库文件和VB中创建的工程文件放在同一目录下。
如果用户的计算机上只有Access 2000的话，可以先在Access 2000中建立ssgl.mdb数据库，并设置密码，再用Access 2000中的“数据库实用工具”将数据库转换成Access 97版本的格式。
当然也可以直接在Visual Basic 6.0集成开发环境中通过“可视化数据管理器”来创建数据库，再到Access 97中设置密码。
通过对数据库文件设置密码，一般情况下，非法用户就不能用常规的手段打开数据库了，对数据库中的信息起到了一定的安全和保密作用。
二、连接加密的Access数据库在Visual Basic 6.0中，要建立与数据库的连接，可采用的技术手段很多，如：数据控件、数据对象、数据环境设计器等。
开发人员可以根据自身的条件和用户的需求进行选择。
限于篇幅，下面只介绍加密的Access数据库与没有加密的Access数据库在连接时的不同之处。
关于没有加密的数据库的连接及访问的方法读者可以参阅其它资料。
1、使用控件① Data控件Data控件是Visual Basic 6.0中的一个内置数据控件，可以通过设置Data控件的connect、DatabaseName、RecordSource属性实现对数据库的连接和访问。
Visual Basic 6.0绑定Access数据库教程
End Sub
Private Sub Command2_Click() If conn.State = 0 Then
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\试验录入数据库.mdb;Persist Security Info=False"
End If
sql = "insert into [users]([username],[password]) values('" & Text1.Text & "','" & Text2.Text & "')"
Set rs = New ADODB.Recordset
录 入
rs.Open sql, conn, adOpenKeyset, adLockBatchOptimistic 'MsgBox "录入成功！"
sql = "select * from users" rs.Open sql, conn, adOpenKeyset, adLockBatchOptimistic Set MSHFlexGrid1.DataSource = rs
'表头 MSHFlexGrid1.TextMatrix(0, 0) = "唯一编号" MSHFlexGrid1.TextMatrix(0, 1) = "账号" MSHFlexGrid1.TextMatrix(0, 2) = "密码"
VB6.0Access制作登陆界面超详细讲解（适合新手）
VB6.0 + Access制作登陆界面&超详细讲解&（适合新手）前段时间，我也为用VB 6.0制作登陆界面而痛苦，为此，我没少上百度，没少查资料，终于，现在大功告成了，现在我也来分享一下我的个人经验！（在说步骤之前，我要着重强调，要完成本实例，首先得进行的步骤是“工程”——>“引用”——> Microso ft ActiveX Data Objects2.X Library,即ADO(建议用2.6往上)）步骤一：建立数据库要想用Acce ss中存放的帐号数据来登陆，肯定要先有存放帐号密码的数据库吧，这里假设我们用到的数据库为 Test ，其中有一张表，叫做test_info ，表中有两个字段，分别是userID和 passwor d ，分别存放登陆帐号和密码。
步骤二：新建窗体①在VB中，本就有现成的登陆窗体，我们可以直接选择，当然，也可以创建一个空白的窗体，我们自己添加内容（即“控件”），然后Capti on 属性设置为“登陆”或者“login”，当然，也可以自己随意添加，主要用来让窗口显示我们希望的标题。
②建立登陆界面，肯定是想登陆成功后进入另一个界面，因此，我们需要再添加一个窗体，用来验证登陆是否成功，在这里，我们将这个窗体的Name(名称) 属性设为默认的Form2步骤三：设置窗体首先向新建的窗体分别添加两个 Label 控件、两个 TextBox控件和两个Command Button，各控件属性如下表：如果想让按下回车就默认选择“确定”按钮，只需将 Command1 的Defaul t 属性更改为 True 即可，设置好后的窗体如下图步骤四:填写代码（最重要的一步）说到代码，我想就是大家最关切的问题了，那我就具体来说说这个代码吧，首先双击窗体，打开代码编辑界面，输入如下代码：Private Sub Form_Lo ad() ‘此段代码的主要作用是当窗体打开时就连接数据库Dim conn As New ADODB.Connect ionDim connect ionstr ing As StringConnect ionstr ing = "Provide r=Microso ft.Jet.OLEDB.4.0;Data Source=" & "E:\Test.mdb;Persist Securit y Info=False" ‘将Data Source处的路径改为你本机数据库所在路径即可conn.Open connect ionstr ingEnd Sub接着双击“确定”，同样的，输入如下代码：Private Sub Command1_Clic k()Dim sql As StringDim conn As New ADODB.Connect ionDim rs_logi n As New ADODB.Records etIf Trim(Text1.Text) = "" Then ‘检测用户名正确与否MsgBox"用户名不能为空，请重新输入！", vbOkOnl y + vbExcla mation, "错误"Text1.SetFocu sElsesql = "select* from Test where test_in fo = '" & Text1.Text & "'" rs_logi n.Open sql, conn, adOpenK eyset, adLockP essimi sticIf rs_logi n.EOF = True ThenMsgBox"用户名不存在，请重新输入！",vbOkOnl y + vbExcla mation, "错误"Text1 = ""Text1.SetFocu sElse ‘检测密码正确与否If Trim(rs_logi n.Fields(1)) = Trim(Text2) Thenrs_logi n.CloseUnloadMeForm2.ShowElseMsgBox"密码错误，请重新输入！", vbOKOnl y + vbExcla mation, "错误"Text2.SetFocu sEnd IfEnd IfEnd IfEnd Sub最后双击“取消”按钮，输入如下代码：Private Sub Command2_Clic k()MsgBox"您已成功退出！", vbOkOnl y + vbExcla mation, "提示"UnloadMeEnd Sub如果想加入三次输入错误就退出的功能，这个倒网上找个小代码加入Command_Click()就行了，思路是定义一个变量，赋初值为 0 ，错误一次，这个变量增加1，如果这个变量等于 3 了，就 UnloadMe。
VB6.0
vb6.0中如何把EXCEL表格中的数据导入到access库中不知道VB和VBA有什么差别啊以下是我学习VBA的代码，看看吧Public Sub 将数据库记录数据全部导入到excel 工作表ADO之一() Dim myData As String, myTable As String, SQL As String Dim cnn As ADODB.Connection Dim rs As ADODB.Recordset Dim i As Integer '清除工作表的全部数据ActiveSheet.Cells.Clear myData = ThisWorkbook.Path & "\学生成绩管理.mdb" '指定数据库myTable = "期末成绩" '指定数据表'建立与数据库的连接Set cnn = New ADODB.Connection With cnn .Provider = "microsoft.jet.oledb.4.0" .Open myData End With '查询数据表SQL = "select * from " & myTable & " order by 性别" Set rs = New ADODB.Recordset rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic '显示查询结果MsgBox "数据库中的记录数为：" & rs.RecordCount '复制记录数据If rs.RecordCount > 0 Then '复制字段名For i = 1 To rs.Fields.Count Cells(1, i) = rs.Fields(i - 1).Name Next i '设置字段名字体为加粗并居中对齐With Range(Cells(1, 1), Cells(1, rs.Fields.Count)) .Font.Bold = True .HorizontalAlignment = xlCenter End With '复制全部数据Range("A2").CopyFromRecordset rs '设置工作表格式ActiveSheet.Cells.Font.Size = 10 ActiveSheet.Columns.AutoFit End If '关闭记录集及数据库连接，并释放变量rs.Close cnn.Close Set rs = Nothing Set cnn = Nothing '·recordset对象的copyfromrecordset方法: '用于将一个ADO或DAO的recordset对象的内容复制到工作表中，复制的起始位置在指定区域的左上角。
VBA连接数据库的方法与技巧
VBA连接数据库的方法与技巧VBA (Visual Basic for Applications) 是一种用于Microsoft Office套件中的宏语言。
通过使用VBA，用户可以编写自定义的宏，以实现自动化任务。
连接数据库是在VBA中进行数据操作的重要任务之一。
本文将介绍VBA连接数据库的方法与技巧，帮助您优化和简化数据库操作。
1. VBA连接Access数据库Access数据库是一种常用的本地数据库，VBA可以通过ADO (ActiveX Data Objects) 来连接Access数据库。
以下是连接Access数据库的基本代码示例：```vbaDim conn As ObjectSet conn = CreateObject("ADODB.Connection")conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\database.accdb;"```上述代码首先创建了一个ADODB.Connection对象，并使用`Open`方法打开了一个Access数据库（.accdb文件）。
您需要将路径`C:\path\to\database.accdb`替换为实际的数据库文件路径。
2. VBA连接SQL Server数据库SQL Server是一种功能强大的关系型数据库，可以使用VBA通过ADO来连接SQL Server数据库。
以下是连接SQL Server数据库的基本代码示例：```vbaDim conn As ObjectSet conn = CreateObject("ADODB.Connection")conn.Open "Provider=SQLOLEDB;DataSource=server_name;Initial Catalog=database_name;UserID=username;Password=password;"```上述代码中，`provider`参数设置为`SQLOLEDB`，`Data Source` 参数指定了SQL Server的名称，`Initial Catalog`参数指定了要连接的数据库名称，`User ID`和`Password`参数指定了连接所需的用户名和密码。
（完整版）VB6+Access对数据库进行添加删除项目
（完整版）VB6+Access对数据库进行添加删除项目附件2：VB6+Access编程中的数据库操作方法例1：首先，在工程里引用microsoft activex data objects 2.7 library Dim cn As New ADODB.Connection, rs1 As New ADODB.Recordset, sql As String '在通用声明里定义，其中cn是连接对象，rs1是记录集，sql是查询语句cn.Open "provider=microsoft.jet.oledb.4.0;data source=" + App.Path + "\数据库名.mdb" + ""sql = "select * from 表名"rs1.Open sql, cnrs1.MoveFirstDo While Not rs1.EOFCombo1.AddItem rs1("字段名")rs1.MoveNextLooprs1.Close例2：一个用户登录系统'准备工作: 数据库D:\Mydb.mdb 数据库中,建数据表:UserInfo,数据表中,建字段:User,Password,并添加一条记录'点工程->引用选中Microsoft Activex Data Objects 2.7 Library '控件:添加一个文本框,一个命令按钮Private Sub Command1_Click()Dim s As StringDim Conn As New ADODB.ConnectionDim Rs As New ADODB.RecordsetConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\mydb.mdb"'请将数据库名及路径换成你的实际数据库名及路径Dim UserName As StringDim Password As Strings = Text1.TextIf s = "1" Or s = "2" ThenUserName = InputBox("请输入用户名")Password = InputBox("请输入用户密码")sql = "Select * From [UserInfo] where User='" & UserName & "'"'UserInfo请换成你的实际数据表名Rs.Open sql, Conn, 1, 3If Rs.EOF ThenMsgBox "没有找到此用户"ElseIf Rs("Password") = Password ThenIf s ="1" ThenMsgBox "123"ElseIf s = "2" ThenMsgBox "456"End IfElseMsgBox "密码错误"End IfEnd IfEnd IfEnd Sub上面的例子实现了查询如果是要添加,删除,更新等操作,只要编写相应的SQL语句,再用Conn.Execute SQL 就可以了,如:添加的:SQL="Insert Into [UserInfo](User,Password) Values('aaaa','1234')"Conn.Execute SQL '执行后,就添加了一条记录删除:SQL="Delete From [UserInfo] Where User='aaaa'"Conn.Execute SQL '删除用户名为aaaa的用户记录更新:SQL="Update [UserInfo] Set Password='abcdefg' Where User='aaaa'"Conn.Execute SQL '执行后,修改用户aaaa的密码为abcdefg以上只是示例,在实际使用过程中,可以将一些内容用控件输入等方式进行,这样就有很大的灵活性了例3：Private Sub Form_Load()Dim cnn As ADODB.ConnectionDim my_recordset As ADODB.RecordsetDim connect_string As StringDim statestring As StringSet cnn=New ADODB.ConnectionSet my_recordset=New ADODB.Recordset'连接Access数据库connect_string="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\aaa.mdb;Pe rsist Security Info=False"cnn.Open connect_stringSelect Case cnn.StateCase adStateClosestatestring="adStateClosed"Case adStateOpenstatestring="adStateOpen"End Select'显示连接的状态MsgBox "连接成功！",,statestring'对wzdz表进行查询操作my_recordset.Open "Select * from wzdz",cnnmy_recordset.CloseEnd Sub例4：Dim strConn As String '连接字符串Dim strSql As String 'SQL命令Dim conn As ADODB.Connection '数据源Dim Ado As ADODB.Recordset '记录集strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\aaa.mdb;Persist Se curity Info=False"strSql = "SELECT * FROM bbb"Set conn = New ADODB.Connectionconn.ConnectionString = strConnconn.OpenVB中怎么对数据库进行添加删除修改的操作我用的是DATA控件我已经把VB和ACCESS 2000连接上了，VB 也能正常访问到数据了我希望可以加几的按钮，拥有添加，删除，修改，查询的功能（相关的数据改动就在原本浏览数据的TEXT中录入就行了）分享到：Private Sub Command1_Click()For i = 0 To 5Text1(i).Text = ""Next iAdodc1.RecordSource = "select * from " & s1 & " order by 编号"Adodc1.RefreshIf Adodc1.Recordset.RecordCount > 0 ThenAdodc1.Recordset.MoveLastText1(0).Text = "G" + Format((Val(Right(Trim(Adodc1.Recordset.Fields("编号")), 4)) + 1), "0000")ElseText1(0).Text = "G0001"End IfEnd SubPrivate Sub Command2_Click()If Adodc1.Recordset.EOF = False Thenc = MsgBox("您确认要删除该记录吗？", vbOKCancel, "删除提示信息")If c = vbOK ThenAdodc1.Recordset.DeleteAdodc1.RecordSource = "select * from 人员表"Adodc1.RefreshEnd IfElseMsgBox "当前数据库中没有可删除的数据记录", vbOKOnly, "提示信息"End IfEnd SubPrivate Sub Command3_Click()If Text1(0).Text = "" Or Text1(1).Text = "" ThenMsgBox "请选择需要改动的记录信息！", vbOKOnly, "错误提示"Elsec = MsgBox("确定要修改该记录吗？", vbOKCancel, "提示信息")If c = vbOK Then '如果确认修改的话进行修改操作If Text1(1).Text = "" ThenMsgBox "姓名不能为空值!", 48, "修改信息提示"Else'连接所要修改的数据库con.Open "Provider=SQLOLEDB.1;Password=2752;Persist Se curity Info=True;User ID=sa;Initial Catalog=sample;Data Source=JAMLEEPC"'开始修改数据库con.Execute ("UPDATE " & s1 & " SET 姓名='" & Text1(1). Text & "',年龄=" & Text1(2).Text & ",学历='" & Text1(3).Text & "',年级=" & Text1(4).Text & ",入学时间='" & Text1(5).Text & "' where 编号='" & Trim(Text1(0)) & "'")MsgBox "信息修改成功", 64, "修改信息提示"con.CloseAdodc1.RecordSource = "select * from 人员表"Adodc1.RefreshEnd IfEnd IfEnd IfEnd SubPrivate Sub Command4_Click()Adodc1.RecordSource = "select * from 人员表where 编号='" + Text1(0).T ext + "'"Adodc1.RefreshIf Adodc1.Recordset.RecordCount > 0 ThenMsgBox "该信息已存在，信息保存不成功", 64, "保存信息提示"Elsecc = MsgBox("您确定要保存该信息吗？", 33, "信息保存提示") If cc = vbOK ThenIf Text1(1).Text = "" Or Text1(2).Text = "" Or Text1(3).Text = "" Or Text1(4).Text = "" Or Text1(5).Text = "" ThenMsgBox "请确认，人员的姓名、年龄、学历、年级和入学时间不能为空", 48, "保存信息提示"Elsecon.Open "Provider=SQLOLEDB.1;Password=2752;Persist Security Info=True;User I D=sa;Initial Catalog=sample;Data Source=JAMLEEPC"con.Execute ("insert into 人员表values('" & Text1(0).Text & "','" & Text1(1).Text & "','" & Text1(2).Text & "','" & Text1(3).Text & "','" & Text1(4).Text & "', '" & Text1(5).Text & "')")MsgBox "信息修改成功", 64, "修改信息提示"con.CloseAdodc1.RecordSource = "select * from 人员表"Adodc1.RefreshEnd IfElseEnd IfEnd IfSet DataGrid1.DataSource = Adodc1End Sub给你段代码参考下，这个就是添加，删除，修改的代码。
VBA中的连接与操作Access数据库
VBA中的连接与操作Access数据库随着计算机技术的不断发展和应用范围的不断扩大，数据库管理成为各个领域中必不可少的一项技能。
Microsoft Access作为一种常用的关系数据库管理系统（RDBMS），提供了许多功能强大的工具和功能，用于存储、处理和管理大量的数据。
在VBA（Visual Basic for Applications）编程中，连接和操作Access数据库是一项基本技能，本文将为您介绍如何在VBA中进行这些操作。
1. 连接Access数据库在VBA中连接Access数据库，需要使用ADODB （ActiveX Data Objects）对象库。
ADODB是Microsoft提供的用于连接和操作多种数据库的组件，并提供了一套一致的API（Application Programming Interface）接口。
首先，我们需要在VBA的代码中添加对ADODB的引用。
在VBA编辑器中，选择“工具”菜单，然后选择“引用”选项。
在弹出的对话框中，找到“Microsoft ActiveX Data Objects x.x Library”（其中x.x表示版本号），选中并点击“确定”按钮。
接下来，我们需要声明和创建ADODB的相关对象，以连接到Access数据库。
以下是一个连接到Access数据库的示例代码：```Dim conn As ADODB.ConnectionSet conn = New ADODB.Connectionconn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\database.accdb;"```在上述代码中，我们首先声明了一个名为conn的ADODB.Connection对象，并使用New关键字创建了一个新的连接。
conn.Open语句用于打开数据库连接，其中Provider参数指定了使用的数据提供程序（这里使用的是Microsoft Access引擎），Data Source参数指定了Access 数据库文件的路径和文件名。
VB6
VB6.0外来数据库的访问大家知道，VB6.0最引人注目的特点，也是其最令程序员关心的地方，就是它访问多种数据库的强大功能。
VB中将非MS Access数据库称为外来数据库(External Database)，如dBASE、FoxPro、ODBC等。
VB6.0中使用数据控制访问外来数据库同访问Access数据库类似，这里不再赘述。
访问外来数据库(以dBASE为例)大致可分为以下几步：一：建立一个Access型数据库，并在数据库中创建新表—即为附加表。
通过设置附加表的各属性值，使其与你所要访问的数据库建立链接关系。
程序代码如下：DimDbasDatabaseDimTdasNewTabledefSetDb=OpenDatabase("MYDB.MDB")Td.Connect="dBASE:DATABASE=c:\DATADIR"Td.SourceTableName="AU THOR"="dBASEAuthorTable"Db.tabledefsAppendTdDb.close二：设置INI文件路径。
在VB的程序中使用了访问外来数据库操作，将应用程序生成EXE文件后，必须提供一个INI文件。
若找不到这个INI文件，将会导致不能访问数据库，并出现“NOTFOUNDIN STOLLABKISAMS’的错误信息。
设置INI文件路径后，VB的程序会在WINDOWS子目录中寻找与应用程序同名的INI 文件。
设置INI文件路径代码为：SetDataAccessOption1,“Path\Filename”三：编辑.INI文件可对不同种类的数据库进行设置，下面为一INI文件代码：〔Options〕SystemDB=c: \MyPATH\SYSTEM.MDA〔ISAM〕PageTimeout=5MaxBufferSize=128LockRetry=20CommitLockPetry=20ReadAheadPages=16〔InstallableISAMs〕Paradox3.x=C:\VB\pdx110.DLLFoxPro2.0=C:\VB\xbs110.DLLFoxPro2.5=C:\VB\pdx110.DLLdBASE=C:\VB\pdx110.DLLdBASE=C:\VB\pdx110.DLLBtrieve=C:\VB\btrv110.DLL〔ParadoxISAM〕PageTimeout=600ParadoxUsername=BaiUserParadoxNetPath=P:\PDXDB\CollatingSeguence=Ascii〔dBASE〕centry=offData=AmericanMark=47Deleted=on这样通过访问新数据库MYDB.MDB和表“DBASEAU THORTABK”即可访问你所要访问的外来数据库了。
vb连接access数据库常用的方法两种示例
这里以链接access数据库为例。
第一部分是通过语句链接，第二部分是通过控件链接一、通过语句链接数据库，然后把相应的数据赋值给某个文本框就行了。
1.首先定义几个全局变量Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim constr As String2.给这些变量赋值，方便链接数据库D:\EffectSolution\科学效应数据库.mdb"红色部分写你自己的数据库路径。
3.打开数据库cn.open constr打开表rs.open “select * from 效应表where id=5“，cn取字符串并赋值给相应的文本Text1.text=rs.fields(“效应和现象名称”)Text2.text=rs.fields(“文字解说”)关闭表rs.close关闭数据库cn.close注意，最后两步骤一定要有，不然下次打开数据库的时候会提示出错的，这样的话，在窗口上建立两个文本框就够了。
但是，在此之前还有一步一定要做，点"工程"-"引用"-找到"Microsoft ActiveX Data Object 2.6 "，如图所示：显示的结果如下图所示：通过与效应表对比发现显示正确。
总体代码如下：Private Sub Form_Load()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim constr As String"Data Source=D:\EffectSolution\科学效应数据库.mdb"'空格加短下划线表示续行cn.open constrrs.open "select * from 效应表 where id =5", cnText1.Text = rs.fields("效应和现象名称")Text2.Text = rs.fields("文字解说")rs.Closecn.CloseEnd Sub二、通过ado控件链接数据库，然后通过datagrid控件显示数据库中的相关表。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1:首先肯定是建立数据库(设置数据库名和密码,要将数据库文件和VB中创建的工程文件放在同一目录下。
)
2:呵呵~~你要知道的关键的问题:如何连接Access数据库(方法有:数据控件、数据对象、数据环境设计器等)我都不想写得详细拉.(楼主你想知道多一点加我Q:413237613)
你可以参考一下我在网站查找到相关的资料啊.看看对你有没帮助啊:再不明白加我Q拉. 1、使用控件
①Data控件
Data控件是Visual Basic6.0中的一个内置数据控件，可以通过设置Data控件的connect、DatabaseName、RecordSource属性实现对数据库的连接和访问。
通过Data控件连接加密的数据库的方法有两种：
一种方法是在设计状态时，在“属性窗口”中将Data控件的connect属性的缺省值”Access”改为”;pwd=1234”即可，其它属性的设置方法与没有加密的Access数据库的连接相同。
另一种方法是在运行时，通过代码对connect属性赋值来实现。
如：
Data1.connect=”;pwd=1234”
Data1.DatabaseName=APP.path+“\ssgl.mdb”
其中，”1234”为Access数据库文件ssgl.mdb的密码，下同。
②Adodc控件
Adodc控件是一个ActiveX控件，它使用Microsoft ActiveX Data Objects(ADO)创建到数据库的连接。
使用Adodc控件之前，要先将Adodc控件添加到控件工具箱中。
方法如下：在VB 6.0种选择“工程”菜单，再点击“部件”菜单项，在弹出的“部件”对话框中选中“Microsoft ADO Data Control6.0(OLEDB)”选项即可。
通过Adodc控件连接加密的数据库的方法也有两种：
一种方法是在设计状态时，在“属性窗口”中，对Adodc控件的ConnectionString属性设置一个有效的连接字符串，并在连接字符串后增加上”;Jet OLEDB:DataBase password=1234”，再设置Adodc控件的CommandType、RecordSource的属性就可以创建到加密的数据库的连接了。
另一种方法是在运行时，通过代码动态地设置ConnectionString、CommandType和RecordSource属性来创建连接。
只要在ConnectionString属性的有效连接字符串后增加上”; Jet OLEDB:DataBase password=1234”即可。
2、使用数据对象
①DAO数据对象
要能正确引用DAO数据对象来建立与数据库的连接，应先在VB集成开发环境中选择“工程”菜单，再点击“引用”菜单项，在弹出的“引用”对话框选择“Microsoft DAO3.51Object Library”选项来添加DAO数据对象类型库。
接下来就可用如下代码来建立到加密的Access数据库ssgl.mdb的连接。
Dim db AS DataBase
Set db=OpenDataBase(App.path+“\ssgl.mdb”,False,False,”;pwd=1234”)
②ADO数据对象
ADO是Microsoft推出的处理关系数据库和非关系数据库中信息的最新技术，也是Microsoft 推崇的用于数据连接和访问的技术。
在VB6.0中，Adodc控件、ADO数据对象及DataEnvironment（数据环境设计器）都采用的是ADO技术，因而它们处理加密的Access 数据库的方法类似。
要能正确引用ADO数据对象，应在VB6.0集成开发环境中选择“工程”菜单，再点击“引用”菜单项，在弹出的“引用”对话框中选中“Microsoft ActiveX Data Objects2.1Library”选项来添加ADO数据对象类型库。
可用如下代码来建立到加密的Access数据库ssgl.mdb的连接。
Dim cnn AS ADODB.Connection
Dim rst AS ADODB.Recordset
Set cnn=New ADODB.Connection
Cnn.Provider=”Microsoft.Jet.OLEDB.3.51”
Cnn.ConnectionString=”Data Source=”&App.path&”\ssgl.mdb;”&_
”;Jet OLEDB:Database password=1234”
cnn.Open
③使用DataEnvironment（数据环境设计器）
有两种方法可以通过DataEnvironment连接到加密的Access数据库：
一种方法是在设计状态时，在DataEnvironment的connection对象的ConnectionSource属性
的有效连接字符串后加上”;
Jet OLEDB:Database password=1234”
另一种方法是在DataEnvironment_Initialize()事件中编写如下代码：Private sub DataEnvironment_Initialize()
Dim strconn AS string
Strconn=”Provider=Microsoft.Jet.OLEDB.3.51;”&_
”Data Source=”&App.path&“\ssgl.mdb;”&_
”;Jet OLEDB:Database password=1234”
DataEnvironment1.connection1.connectionstring=strconn
End sub。