VB通过ADODB与ACCESS数据交换实例

VB与ACCESS数据交换实例

准备步骤：

1）建立一个简单的ACESS数据库，命名为student，创建一个表：Chinese，字段：ID，姓名，成绩

2）打开VB6.0，创建一个窗口，添加引用：

添加部件：MSHFlexGrid

设计窗口如下图所示：

3编写代码：

Option Explicit

Dim conn As ADODB.Connection

Dim rs As ADODB.Recordset

Dim a As String

'子程序

Private Sub reshow()

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\student.mdb;" & "Persist Security Info=False"

conn.Open

rs.Open "select * from Chinese", conn, adOpenKeyset, adLockReadOnly

Set MSHFlexGrid1.DataSource = rs

MSHFlexGrid1.Sort = 3

rs.Close

conn.Close

End Sub

'删除记录

Private Sub Command1_Click()

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\student.mdb;" & "Persist Security Info=False"

conn.Open

rs.Open "select * from Chinese where ID=" & Val(Text4.Text), conn, adOpenKeyset, adLockOptimistic

'上句表示查询语句ID=Val(Text4.Text)

rs.Delete

rs.Update

reshow

Text4.Text = ""

rs.Close

conn.Close

End Sub

'修改记录

Private Sub Command2_Click()

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\student.mdb;" & "Persist Security Info=False"

conn.Open

rs.Open "select * from Chinese where ID=" & Val(Text1.Text), conn, adOpenKeyset, adLockOptimistic

rs.Fields(0).Value = Val(Text1.Text)

rs.Fields(1).Value = Text2.Text

rs.Fields(2).Value = Text3.Text

rs.Update

MsgBox "记录修改成功！"

reshow

End Sub

'刷新纪录

Private Sub Command3_Click()

reshow

End Sub

'连接ACCESS

Private Sub Form_Load()

reshow

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

End Sub

'添加纪录

Private Sub ADD_Click()

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\student.mdb;" & "Persist Security Info=False"

conn.Open

rs.Open "select * from Chinese", conn, adOpenKeyset, adLockOptimistic rs.AddNew '添加记录

Text1.SetFocus

If Text1.Text = "" Then

MsgBox "不能为空！"

Text1.SetFocus

Exit Sub

Else

rs.Fields(0).Value = Val(Text1.Text)

rs.Fields(1).Value = Text2.Text

rs.Fields(2).Value = Text3.Text

rs.Update

End If

rs.Close

conn.Close

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

reshow

End Sub

用VB将一个文本文件中的数据导入到Access的某个数据表中

课程设计任务书 一、课程设计时间 2008~09第2学期第15~16周，共计2周，40学时。 二、课程设计内容 将一个文本文件（file30_数据的导入.txt）中的数据导入到Access的某个数据表中。 提示： ①先在Access数据库中创建出相应的表。 ②一方面，用ADO数据控件打开表；另一方面用文件读取术读取给定的文本文件中的内容，并添加到数据库表中。 三、课程设计要求 程序质量： ?贯彻事件驱动的程序设计思想。 ?用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。 ?代码应适当缩进，并给出必要的注释，以增强程序的可读性。 课程设计说明书： ?课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提 供的模板。 四、指导教师和学生签字 指导教师：________ 学生签名：________ 五、成绩 六、教师评语

目录 需求分析 (4) 设计分析 (5) 关键技术 (6) 总结 (10) 完整的源程序 (11) 参考文献 (11)

需求分析 数据的导入是将文本文件中的数据读取到数据库指定的表中。由于文本文件中的数据不方便统计、管理，通常要将其导入数据库中，所以设计一个程序直接实现数据的导入能节省大量的时间，提升工作效率。 要求：在Access中创建chanpin 表，用来储存文本文件中的数据。此表的结构应如下定义：id，name，price，store。

设计分析 （1）基本原理：建立程序设计与数据库的连接，用input语句读取文本文件，用insert语句将数据 添加到数据库中。 （2）总体流程设计：

关键技术 1建立与数据库的连接代码如下 Option Explicit Option Base 1 Dim cnn As ADODB.Connection‘声明变量作为连接对象 Private Sub Form_Load() Set cnn = New ADODB.Connection cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=sjddr.mdb"‘连接数据源 cnn.ConnectionTimeout = 30 cnn.Open End Sub 2读取数据是用input语句将文本文件的数据读取出来在窗体中显示出来 Select<字段名表>From<表名>Where<条件> 程序段如下： Private Sub Command1_Click() Dim id$, name$, price$, store$ ‘声明变量属性 Open "file30_数据的导入.txt" For Input As #1‘打开要输入的文件 Do While Not EOF(1) ‘循环之文件尾 Input #1, id, name, price, store ‘将数据读入到四个变量中 Print id, name, price, store ‘输出数据 Loop

vb连接ACCESS数据库实例

vb连接ACCESS数据库实例 下面给你一个用ADO的代码链接的实例：（ACCESS 2003) 首先在工程中点击【工程】-【引用】，在打开的对话框选择Microsoft AxtiveX Data Objects 2.8 Library 勾选，然后定义二个对象： Dim conn As New ADODB.Connection, rs As New ADODB.Recordset 其中conn是数据库链接对象，rs是数据记录集对象 那么，下面就是利用SQL语句链接数据库了： conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\library\1.mdb;Jet OLEDB:Database Password=" strSQL = "SELECT * FROM 数据库中的表" rs.Open strSQL, conn, 3, 3 至此数据库已经链接成功，并且已经加载了记录集，下面你就可以进行数据操作了，注意，在数据库操作完成后，千万别忘记关闭记录集和数据库链接对象： rs.Close conn.Close '首先，工具->引用->选中Microsoft ActiveX Data Objects 2.X Library '必须选中，否则下面代码不会起作用！（以下链接数据库之方式，不需要使用ADODB控件，仅需代码即可） Public Conn As New ADODB.Connection Public Rs As New ADODB.Recordset Public Cnt As Integer '这个Cnt是用来表示数据库数据总量的，对链接过程无关 '连接数据库的代码段 Conn.CursorLocation = adUseClient '以Conn为链接名建立链接，这里是设置数据游标（客户端数据游标），即设定读取数据库数据之方式（一行一行地读） Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\test.mdb" '自己改动一下上面的路径和文件名即可，其他的代码你不理解照粘贴无妨 If Rs.State <> adStateClosed Then Rs.Close Rs.Open "SELECT 铺名, 上月读数, 本月读数, 实用度数, 铺位数, 首层面积, 非经营层 面积, 欠费明细, 欠费金额FROM data WHERE 首层面积is not null and 非经营层面积 is not null;", Conn, adOpenKeyset, adLockPessimistic Cnt = Rs.RecordCount '关闭数据库链接（一般放到子过程结束处，关闭数据库链接） Rs.Close Conn.Close Set Rs = Nothing

VB中怎么载如或显示Access数据库中的报表

VB中怎么载如或显示Access数据库中的报表 '首先在“工程/引用”菜单下引用Microsoft Access 9.0 Object Library Option Explicit Dim MSAccess As Access.Application Private Sub Command1_Click() Set MSAccess = New Access.Application MSAccess.OpenCurrentDatabase (App.Path & "\db1.mdb") MSAccess.DoCmd.OpenReport "rptTB", acViewNormal MSAccess.CloseCurrentDatabase Set MSAccess = Nothing End Sub rptTB是access中的一个报表名称 要引用Microsoft Access 9.0 Object Library dim objAccess As Access.Application Set objAccess = CreateObject("Access.Application") objAccess.OpenCurrentDatabase ("c:\1.mdb") objAccess.DoCmd.OpenReport "ReportName", acViewPreview objAccess.Visible = True 这个要引用Microsoft Access 9.0 Object Library(Office 2000) 我没试过Office97会怎么样。 ?VB中打印ACCESS报表 ?作者:aspxer 来源:internet 日期:2007-5-20 13:56:44 关键字: ? VB中打印ACCESS报表 acc As Object Set acc = CreateObject("Access.Application") If Right$(Trim$(App.Path), 1) = "\" Then

vb6.0连接sql2000数据库的具体步骤

vb6.0连接sql2000数据库的具体步骤 悬赏分：200|解决时间：2010-3-1310:01|提问者：能者天下 初学vb6.0，希望能有具体的步骤，我用sql做的是一个学生成绩管理系统，要做前台界面，用vb做，无从下手，望高手指点了，谢谢！有详细视频教程的网站或现成的视频也可以。 最佳答案 VB6.0使用ADO对象连接数据库： 有偿征集原创文章，为您创收投递文章减小字体增大字体 1．定义连接对象Global DBconnect As New ADODB.Connection2．执行连接语句If DBconnect.State=adStateOpen And Not IsEmpty(adStateOpen) Then DBconnect.Close l连接ODBC DBconnect.ConnectionString="dsn 1．定义连接对象 Global DBconnect As New ADODB.Connection 2．执行连接语句 If DBconnect.State=adStateOpen And Not IsEmpty(adStateOpen)Then DBconnect.Close λ连接ODBC DBconnect.ConnectionString= "dsn=DataAliasName;uid=UserID;pwd=Passwd;" λ直接连接Access为 Dbconnect.Provider="Microsoft.jet.OLEDB.4.0"//Access97为3.51 DBconnect.ConnectionString="FilePathFileName.mdb" λ连接Oracle DBconnect.Provider="MSADORA" DBconnect.ConnectionString="user/mypass@servicename λ连接SQL Server DBconnect.Provider="SQLOLEDB.1" DBconnect.ConnectionString="DATABASE=;SERVER=;UID=;PWD=;" 或者可以使用DBconnect.Open"SERVER","USERID","PASSWORD" DBConnect.Open 3．取查询结果集 Global RS As New ADODB.Recordset Global PS As New ADODB.Recordset If RS.State=adStateOpen And Not IsEmpty(adStateOpen)Then RS.Close RS.Open SQLStr,DBconnect,adOpenKeyset 4．执行SQL语句 DBconn.Execute SQLStr

(完整版)vb连接access数据库及数据读写操作

ACCESS数据库和VB的连接 Edited by Ryan 2013 1、建立Access数据库 2、启动VB，建立标准EXE 图1 3、添加ActiveX控件 鼠标指向任意VB控件，单击右键，选择“部件（O）”，出现图3所示界面 图2

图3 选择部件“Microsoft ADO Data Control 6.0 (OLEDB)”，出现如图4所示控件 图4

4、添加控件Adodc 图5 4、在控件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 ‘打开数据库中的表test1

VB如何连接ACCESS数据库详解

首先有一点要注意,数据库的使用与我们以往所使用的文本文件不同.例如我们使用文本文件,来记录各种有用的数据.那么大致有以下几步: 读取文件 -- 格式化数据 -- 关闭文件 -- 使用数据 如果数据量较大,需要进行筛选,且存放数据的源文件可能不定时变更,那么我们可以用一个临时文件来存放有用的数据,这样可大大提高程序的效率.要[格式化数据]时,我们首先要进行筛选,然后还得进行分类,这样文件中的字符串才能被转换成有用的信息来供程序使用.这样一来,不用说,处理速度将大大减慢,而且就算你设计的数据格式比较科学,当数据量非常大时,文件的容量也会变的让普通计算机无法承受. 相对文本文件来说数据库的使用也大致分为以下几步: 打开数据库 -- 查找数据 -- 使用数据 -- 关闭数据库 从中可以看出,里面少了一步格式化数据,因为数据库本身在存储数据时,它就是按照一定的格式来进行存储的. 其次是,数据库与文本文件返回数据的方法不同.如果把文本文件比作一个Textbox 的话,那么数据库更像是一个ListBox.使用文本文件时我们需要从整个Textbox中取出有用的信息,并进行处理,而Listbox则可以根据需要返回特定的某一项. 由于VB本身并不带有可以访问数据库的类,所以我们需要引用一个包含能访问数据库的类来使用数据库.这里我们采用ADODB,相比DAO和能访问数据库的API 来说,它比DAO更灵活,更强大;而比起API,它更简单易用,更适合初学者.而Access数据库比起SQL,也相对简单了很多,且能够满足中小型应用程序的需要,所以我们在使用数据库时,选择了Access. 就像使用文本文件来存储数据一样,我们需要先设计好数据结构,只不过在设计Access数据库的结构时,我们需要用到其它的程序来进行详细的规划.建议采用的程序是office中的Access或VB自带的VISDATA. 当数据库设计好了以后,我们可以开始"数据库编程"了. 首先,我们需要引用ADO.具体的方法是,在"工程" -- "引用" 中,找到"Microsoft ActiveX Data Object *.* Library",这里的"*.*"是指的时ADO的版本号,一般来说,应用程序或ActiveX控件都具有向下兼容性,所以我们尽可能选择比较新的版本.以确保程序在能识别旧版本Access的同时,也能识别较新版本的Access. 然后我们需要在程序中创建一个对象.就好比我们在窗体上添加一个FileBox才能看到文件名一样,只有创建了ADO对象,我们才能够访问数据库.常用的对象有两个,Connection和Recordset.

vb连接access数据库常用的方法两种示例

创作编号： GB8878185555334563BT9125XW 创作者：凤呜大王* 这里以链接access数据库为例。 第一部分是通过语句链接，第二部分是通过控件链接一、 通过语句链接数据库，然后把相应的数据赋值给某个文本框就行了。 1.首先定义几个全局变量 Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim constr As String 2.给这些变量赋值，方便链接数据库 constr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=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.Connection Dim rs As New ADODB.Recordset Dim constr As String constr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=D:\EffectSolution\科学效应数据库.mdb" '空格加短下划线表示续行 cn.open constr rs.open "select * from 效应表where id =5", cn Text1.Text = rs.fields("效应和现象名称") Text2.Text = rs.fields("文字解说")

vb2010+access数据库连接

VB2010+Access用户登陆验证(精简) Public Class login '管理员登陆 Private Sub Button1_Click(ByVal sender As System.Object, ByVa l e As System.EventArgs) Handles Button1.Click Dim ObjConn As New OleDb.OleDbConnection("Provider=Micros oft.Jet.OLEDB.4.0;Data Source=cardbs.mdb") Dim ObjCom As New OleDb.OleDbCommand("select * from admin ", ObjConn) Dim ObjDap As New OleDb.OleDbDataAdapter Dim ObjDar As OleDb.OleDbDataReader Dim pd As Boolean = False Dim i As Integer ObjCom = New OleDb.OleDbCommand("select * from admin", Ob jConn) '与数据库建立连接 ObjConn.Open() ObjDar = ObjCom.ExecuteReader '循环判断与数据库中数据是否相同 Do While ObjDar.Read() If ComboBox1.Text = "" Then MsgBox("请输入用户名！") ElseIf Trim(ComboBox1.Text) <> (ObjDar.Item("admin_na me")) Then MsgBox("用户名不存在！") ComboBox1.Focus() ElseIf TextBox2.Text = "" Then MsgBox("请输入密码！") 'End If ElseIf Trim(TextBox2.Text) <> (ObjDar.Item("admin_psw ")) Then MsgBox("密码输入不正确！") 'TextBox2.Focus() Else For i = 0 To ObjDar.FieldCount - 1 If Trim(ComboBox1.Text) = (ObjDar.Item("admin _name")) And Trim(TextBox2.Text) = (ObjDar.Item("admin_psw")) Then 'MsgBox("成功登陆") Me.Hide() Form_main.Show() pd = True Exit Sub End If

vb将数据导入access

Private Function ImportFromExcel(excelFile As String) As Long Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim rst As New ADODB.Recordset Dim nCount As Long, strCardNo As String On Error GoTo errH Set xlApp = New Excel.Application Set xlBook = xlApp.Workbooks.Open(excelFile) '打开EXCEL文件 Set xlSheet = xlBook.Sheets(1) '打开第一页（sheet） ImportFromExcel = 0 '打开数据库 rst.Open "...", pConn, adOpenKeyset, adLockOptimistic, adCmdText '开始导入。导入过程检查数据是否有重复。 nCount = 1 Do strCardNo = Trim(xlSheet.Cells(nCount, 1)) '这里根据第一列数据为空判断记录结束 If Len(strCardNo) = 0 Then ImportFromExcel = nCount - 1 Exit Do End If If Not rst.EOF Then rst.Find ("STCardNO='" & strCardNo & "'") If rst.EOF Then rst.AddNew rst("STCardNO") = Format(strCardNo, "0000000000") ... rst.Update Else If MsgBox("卡号：" & strCardNo & " 已经存在。" & vbCrLf & "选择“重试”将忽略并继续导入余下的数据，“取消”将放弃导入。", vbExclamation + vbRetryCancel + vbDefaultButton2, "卡号重复") = vbCancel Then ImportFromExcel = nCount - 1 Exit Do End If End If nCount = nCount + 1 ImportFromExcel =nCount

vb读取access并且显示

你一个示例,这个是用户登录系统 '准备工作: 数据库D:\Mydb.mdb 数据库中,建数据表:UserInfo,数据表中,建字段:User,Password,并添加一条记录 '点工程->引用选中Microsoft Activex Data Objects 2.1 Library '控件:添加一个文本框,一个命令按钮 Private Sub Command1_Click() Dim s As String Dim Conn As New ADODB.Connection Dim Rs As New ADODB.Recordset Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb" '请将数据库名及路径换成你的实际数据库名及路径 Dim UserName As String Dim Password As String s = Text1.Text If s = "1" Or s = "2" Then UserName = InputBox("请输入用户名") Password = InputBox("请输入用户密码") sql = "Select * From [UserInfo] where User='" & UserName & "'" 'UserInfo请换成你的实际数据表名 Rs.Open sql, Conn, 1, 3 If Rs.EOF Then MsgBox "没有找到此用户" Else If Rs("Password") = Password Then If s = "1" Then MsgBox "123" ElseIf s = "2" Then MsgBox "456" End If Else MsgBox "密码错误" End If End If End If End Sub 上面的例子实现了查询 如果是要添加,删除,更新等操作,只要编写相应的SQL语句,再用 Conn.Execute SQL 就可以了,如: 添加的:

(完整版)vb连接access数据库及数据读写操作

ACCESS^据库和VB的连接 Edited by Ryan 2013 1、建立Access数据库 2、启动VB,建立标准EXE r?l? 图1 3、添加ActiveX控件 鼠标指向任意VB控件，单击右键，选择"部件( O)”，出现图3所示界面片-llfil Ai￡；xo

1.0 启侵蓝 Sicr-iEoft hc?is BtrCile Cntrol 9.0 fillers so ft Will D^T 4 Cootrcil 冬0 IDLJIE J L Chut C4LtF91 E.O (CLED3) IU GTO初It Cunir> CtnlroL &. 0 Nicrgisoft ConRidn Di&l'js Ccurikrtl 3 0 Hicroioft Dtlt Bm-d List Canirols 6.C Nicroidft QtlfiiGri i Control 6 0 UU1B) 匚0■ 肛辽CQ^trdE 6. 0 COLE DE 匚lliarjs^ft C OT.^FP16- D 口 IlicrQsgft 7阳60 < > Micro soft 110 D A I Q Cineol 6.0 (OLEDEt) 定fir. C. 'iTIBKrtS \ i js t EffcK'illSiK? C. C CX 图3 选择部件“ Microsoft ADO Data Control 6.0 (OLEDB) ” ,出现如图4 所示控件2J & 二 r- B“* -si- i；?同同

(完整版)vb连接access数据库及数据读写操作.docx

ACCESS数据库和 VB 的连接 Edited by Ryan 2013 1、建立 Access 数据库 2、启动 VB，建立标准EXE 图 1 3、添加 ActiveX 控件 鼠标指向任意VB 控件，单击右键，选择“部件（O）”，出现图 3 所示界面图2

图3 选择部件“ Microsoft ADO Data Control 6.0 (OLEDB) ”，出现如图 4 所示控件图4

4、添加控件Adodc 图5 4、在控件 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‘打开数据库中的表test1

用VB的代码创建Access数据库

怎样用VB的代码创建Access数据库 用 ADOX: '菜单“工程”--> "引用 "--> Microsoft ADO Ext.2.7 for DDL ado Security ' 建数据库: Private Sub Form_Load() Dim cat As ADOX.Catalog Set cat = New ADOX.Catalog '在当前目录下建立名为newdata的Access数据库 cat.Create ( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " + App.Path & "\newdata.mdb " + "; ") MsgBox "数据库已经创建成功！ " End Sub ' 建表: Private Sub Command1_Click() Dim cn As New ADODB.Connection cn.ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "newdata.mdb;Persist Security Info=False " cn.Open cn.Execute "CREATE TABLE [aaa]([学生姓名]Text(20),[年龄]Integer,[成绩]Double) " cn.Close End Sub '删表: Private Sub Command2_Click() Dim cn As New ADODB.Connection cn.ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source== " & App.Path & "newdata.mdb;Persist Security Info=False " cn.Open cn.Execute "DROP TABLE [aaa] " cn.Close End Sub /////////////////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////Option Explici t Dim i As Integer Dim j As Integer Private Sub Form_Load() '菜单“工程”--> "引用 "--> "Microsoft ActiveX Data Objects 2.7 Library " 'Microsoft ADO Ext.2.7 for DDL ado Security Dim cat As ADOX.Catalog

vb连接access数据库常用的方法两种示例

这里以链接acｃｅss数据库为例。 第一部分就是通过语句链接，第二部分就是通过控件链接一、 通过语句链接数据库,然后把相应得数据赋值给某个文本框就行了。 1、首先定义几个全局变量 Diｍcn As NｅｗADＯDB、Cｏnnｅctioｎ Dim rs Ａs New AＤＯDB、Recｏrdset Dｉm cｏnｓtｒAｓStrｉｎg 2、给这些变量赋值，方便链接数据库 coｎstr = "Provｉｄer=Mｉcｒosｏft、Jet、OＬEDＢ、4、0;＂＆"ＤａtａＳouｒce=Ｄ:\EffeｃtSｏlutｉｏｎ\科学效应数据库、mdb" 红色部分写您自己得数据库路径。 ３、打开数据库 ｃn、opｅｎconstr 打开表 ｒs、oｐeｎ“sｅlect * from 效应表ｗhereｉd=5“,ｃn 取字符串并赋值给相应得文本 Text1、text=rs、ｆields（“效应与现象名称”) Teｘt2、text=rｓ、ｆiｅlｄs(“文字解说”） 关闭表 rｓ、cloｓe 关闭数据库 cn、close 注意,最后两步骤一定要有,不然下次打开数据库得时候会提

示出错得,这样得话，在窗口上建立两个文本框就够了。 但就是，在此之前还有一步一定要做， 点"工程"-"引用"-找到＂Micrｏsoｆt ActiｖeX Dａta Ｏbjｅcｔ2、6 ",如图所 示:

显示得结果如下图所示： 通过与效应表对比发现显示正确。 总体代码如下: Pｒｉｖａte Sｕb Form＿Load() Dｉm cn As Ｎew ＡDODＢ、Cｏｎnｅcｔion Ｄｉm rs As NeｗAＤOＤＢ、Ｒeｃordseｔ Dim cｏnstｒＡｓStｒinｇ coｎｓtｒ＝＂Pｒoｖｉdeｒ＝Ｍｉcrosｏfｔ、Jeｔ、OLＥDB、4、0;" &＿ "Data Sｏuｒce=D:\EffeｃtＳｏｌution\科学效应数据库、mdb" '空格加短下划线表示续行 cｎ、ｏpen cｏｎsｔｒ ｒs、open ＂selｅct*from 效应表ｗhere id ＝５", cｎ Tｅxt1、Tｅxt = rs、fieｌｄs(＂效应与现象名称") Ｔeｘt2、Ｔｅｘt = rs、ｆｉelds("文字解说＂)

VB通过ADODB与ACCESS数据交换实例

VB与ACCESS数据交换实例 准备步骤： 1）建立一个简单的ACESS数据库，命名为student，创建一个表：Chinese，字段：ID，姓名，成绩 2）打开VB6.0，创建一个窗口，添加引用： 添加部件：MSHFlexGrid 设计窗口如下图所示：

3编写代码： Option Explicit Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim a As String '子程序 Private Sub reshow() Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\student.mdb;" & "Persist Security Info=False" conn.Open rs.Open "select * from Chinese", conn, adOpenKeyset, adLockReadOnly Set MSHFlexGrid1.DataSource = rs MSHFlexGrid1.Sort = 3 rs.Close conn.Close End Sub '删除记录 Private Sub Command1_Click() Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\student.mdb;" & "Persist Security Info=False" conn.Open rs.Open "select * from Chinese where ID=" & Val(Text4.Text), conn, adOpenKeyset, adLockOptimistic '上句表示查询语句ID=Val(Text4.Text) rs.Delete rs.Update reshow Text4.Text = "" rs.Close conn.Close End Sub

visual basic 6.0成功连接access2010方法

在用vb连接access数据库时，出现了这样的错误： 这是你的数据库格式不被程序识别。vb默认的一般是.,mdb access数据库格式！这时我们看一下我们要连接的 是.accdb格式的。 看一下代码，我们以前使用的是： Provider=Microsoft.jet.oledb.4.0 当数据库格式发生变化时，连接语法格式就变了：Microsoft office 12.0 access database engine oledb provider 这时连 接字符创立已经有的，我们把它填上以后就成如下错误了。 为什么呢？原因是，.accdb数据格式不适用jet 引擎连接了。而是：provider=microsoft.ace.oledb.12.0 这样一改就可以连接上了。 o7版以前的access数据库的格式都是.mdb的，而vb6.0 本身带的数据库格式也是.mdb的，所以大家也都习惯了连 接.mdb格式的access数据库，但是07版以后的数据库格式就成 了 .accdb的了，在连接的过程中可就要做一下改变 了。 总结一下：通常连接数据库我们可以使用下面两种连接方法： 添加引用，使用代码连接。

解决如下： 一、引用连接 添加引用，使用代码连接。工程——引用——microsoft activeX data objects 2.5 library 代码窗口中加入： Dim objcn As NewConnection Dim objrs As New Recordset Dim strsql As String objcn.ConnectionString ="provider=microsoft.ace.oledb.12.0;" & "data source="&App.Path& "\3.accdb" （3为数据库的名字）objcn.Open strsql = "select 密码from 3 where账号='" & username & "'" （账号表中的字段，username为自定义的变量） Set objrs.ActiveConnection = objcn objrs.Open (strsql) 二、控件连接： 1，工程——部件——添加microsoft ado data control 6.0 控件。 2、属性设置： 点击生成按钮，打开连接字符串，选中，microsoft office 12.0 access database engine ole db provider

VB6+ACCESS对数据库进行添加删除项目

附件2： VB6+Access编程中的数据库操作方法 例1： 首先，在工程里引用microsoft activex data objects2.7library Dim cn As New ADODB.Connection,rs1As 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,cn rs1.MoveFirst Do While Not rs1.EOF Combo1.AddItem rs1("字段名") rs1.MoveNext Loop rs1.Close 例2： 一个用户登录系统 '准备工作:数据库D:\Mydb.mdb数据库中,建数据表:UserInfo,数据表中,建字段:User,Password,并添加一条记录 '点工程->引用选中Microsoft Activex Data Objects2.7Library '控件:添加一个文本框,一个命令按钮 Private Sub Command1_Click() Dim s As String Dim Conn As New ADODB.Connection Dim Rs As New ADODB.Recordset Conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb" '请将数据库名及路径换成你的实际数据库名及路径 Dim UserName As String Dim Password As String s=Text1.Text If s="1"Or s="2"Then UserName=InputBox("请输入用户名") Password=InputBox("请输入用户密码") sql="Select*From[UserInfo]where User='"&UserName&"'" 'UserInfo请换成你的实际数据表名 Rs.Open sql,Conn,1,3 If Rs.EOF Then

VB6连接Access数据库

1:首先肯定是建立数据库(设置数据库名和密码,要将数据库文件和VB中创建的工程文件放在同一目录下。) 2:呵呵~~你要知道的关键的问题:如何连接Access数据库(方法有:数据控件、数据对象、数据环境设计器等)我都不想写得详细拉.(楼主你想知道多一点加我Q:413237613) 你可以参考一下我在网站查找到相关的资料啊.看看对你有没帮助啊:再不明白加我Q拉. 1、使用控件 ①Data控件 Data控件是Visual Basic 6.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 Control 6.0(OLEDB)”选项即可。 通过Adodc控件连接加密的数据库的方法也有两种： 一种方法是在设计状态时，在“属性窗口”中，对Adodc控件的ConnectionString属性设置一个有效的连接字符串，并在连接字符串后增加上”; Jet OLEDB: DataBase password=1234”，再设置Adodc控件的CommandType、RecordSource的属性就可以创建到加密的数据库的连接了。 另一种方法是在运行时，通过代码动态地设置ConnectionString、CommandType和RecordSource属性来创建连接。只要在ConnectionString属性的有效连接字符串后增加上”; Jet OLEDB: DataBase password=1234”即可。 2、使用数据对象