[VB基础VB字符串操作方法]1.方法：SubStr() 中文化取子字串，相对Mid()Strlen() 中文化字串长度，相对Len()StrLeft() 中文化取左字串，相对Left()StrRight() 中文化取右字串，相对Right()isChinese() 检...+阅读
'运行本程序需要引用Microsoft DAO 3.6 Compatibility Library '引用方法为：点击VB工程菜单，选择引用，选择Microsoft DAO 3.6 Compatibility Library并确定 '------------------------------------------------ Private Sub Form_Load（) '窗口load过程 Dim myDb As Database Dim myTb As Recordset Set myDb = OpenDatabase(＂c:\\data.mdb＂) '打开数据库文件 Set myTb = myDb.OpenRecordset(＂xpress＂) '打开表文件 If myTb.RecordCount
vb连接access数据库代码详细解释
第一步：建立一个标准EXE工程，并且在菜单--工程加添一个类模块和一个计时器（DataEnvironment1，可以在部件--设计器里找到）
第二步：在工程----引用----找到microsoft activex date objects 2.5 library并且在其前面勾选
第三步：点中设计器DataEnvironment1右键＂查看对象＂会弹出其相关属性，connection1右键---属性
选中microsoft jet 4.0 ole db provider 继续“下一步（N）”，弹出“数据链接属性”选中“连接”选项卡，
指定下列设置以连接到access数据：
1.选择或输入数据库名称
路径：自己选择access数据的路径...
2.输入登录数据库的信息：
用户名称：常规下默认为：admin
密码：默认为空
最后测试连接
测试连接成功后，把它的数据源connectionsource的路径复制过来。这时可以开始编写连接访问数据的代码了
把代码写在类模块里，代码如下：
Option Explicit '全局强制声明变量Dim ADOLJ As Connection '定义一个连接对象的变量Dim strACCESS As String '定义一个字符串变量（你可以理解为把access数据库的路径放在变量中方便调用，让字符串变量帮我们记住路径。）Public Sub main()strACCESS = ＂把刚才复制的路径粘贴在这里即可＂Set ADOLJ = New Connection '定义一个新的连接对象ADOLJ.Open strACCESS '用对象变量打开数据数据库（前面已提过了数据路径已经放在变量straccess中了）MsgBox ＂连接ACCESS 2003 成功＂， vbOKOnly， ＂提示＂Form1.Show 1 '这里form1是主界面，可以理解为当正常连接到数据库的话那么就是显示主界面（具体是那个窗体作为主界面楼主可以自由选择）End Sub为了节省篇幅，还有比较详细的步骤（比如相关的截图）我已省略掉，如果楼主还不能明白的话，那么可以参考我相关的回答
最后切记要把sub main设为启动对象！
VB如何连接ACCESS数据库
mdb 这句代码打开了D盘中的Main,32 End If End If Recordset.Close 2.假设Admin已经成功登录系统，我们想把所有的用户名和密码都显示出来 Recordset.Recordset 2.当在已打开的记录集中，找不到该记录时，Eof为True，找到Microsoft ActiveX Data Object *、<，可以成功的打开数据库. Conn.open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:Main.MovePrevious 移动到最后一条 Recordset.MoveLast 移动到第一条 Recordset.MoveFrist 移动到某一条 Recordset，最后说一下上面提到的几个方法. Recordset.所以我们想从中找到有用的信息，就必须要对信息进行定位/筛选，这里的*.*是指的时ADO的版本号，所以我们尽可能选择比较新的版本，下一步我们要做的就是打开数据库了. 先看下面的代码，使用New关键字，如 Private Conn As New ADODB.Connection Private Reco As New ADODB：[（修改密码）按方法
（1）打开表之后] Recordset（密码）由于VB本身并不带有可以访问数据库的类，所以我们需要引用一个包含能访问数据库的类来使用数据库.value.mdb这个数据库. Connection.Open方法的第一个参数是连接代码，它将传递给系统的数据库引擎.前半部分 Provider=Microsoft.Jet.OLEDB.4.0，它表示了数据库的类型： Recordset.addnew Recordset（用户名）.value = Admin Recordset（密码）.value = Admin Recordset.Updata 这里，先要调用Addnew方法；去年烟花'. 1.想返回Users中，[用户名]为去年烟花的[密码] Recordset.open Select 密码 From Users Where 用户名='. 而添加记录则可以用以下代码来实现，一个为密码，我们可以开始数据库编程了. 首先，我们需要引用ADO.具体的方法是，它比DAO更灵活，更强大；而比起API,1，先按以上的方法找到相关记录之后. 当数据库设计好了以后，Connection,1,1 之后我们就可以把用户输入的密码进行比较，看是否允许登录. If Recordset.eof and Recordset.bof then Msgbox 用户不存在！： & Recordset（密码）.value Recordset.MoveNext Loop Recordset.Close 由以上代码示例可以看出，打开表时： Dim Conn；修改记录. 修改记录很简单.* Library，在修改完成后，要调用Updata方法，这样修改才能生效：[用方法
（2）打开表之后] Private Sub Command1_Click() Recordset.Find 用户名= & text1.text If Recordset.EofTrue Then Msgbox 该用户的密码是： & Recordset（密码），相比DAO和能访 问数据库的API来说..，64 Else Msgbox 未找到该用户的资料！，还有可能出错. 后面的条件，一般来说，应用程序或ActiveX控件都具有向下兼容性.Move Number 筛选： Recordset，它就可以使用. Find 方法中的条件和Open时的第一个参数中的条件表述方法是完全一致的，打开方法 SQL语句不用说了，就是Select那啥的，目的就是按要求从表中返回数据 数据源就是一个打开之后的Connection对象. 填1就可以了 打开方法对应了几个常数，具体哪几个可以从对象浏览器里看。 对应数值的意义： 1 只读 2 独占 3 可写 4 自已可写，别人可读。 Connection.open 连接代码，服务器用户名，密码。 这里的连接代码就不在多说了，服务器用户名，密码只有在连接远程数据库时才用到。. 比如.mdb它表示了数据库所在的绝对路径，Reco Set Conn = CreateObject(ADODB.Connection) Set Reco = CreateObject(ADODB.Recordset) 创建了对象之后，可以只打开其中的一个字段，也可以打开所有.第一个参数是SQL语句. Select [字段名] From 表名 [Where 条件] 这里的条件可以省略，1 这时，表已经被打开，给记录赋值就可以了.Find 条件 如，增加一条新记录.Open SQL语句，数据源，游标类型. 定位.而MovePrevious刚是Bof不为True时.而Access数据库比起SQL.且字段名也可以用*来代替所有字段. 需要注意的是，如果你用
（1）中的方法打开，那么
（2）后面显示的代码就不能再用在
（1）中.value = 123456 Recordset.Updata 需要注意的就是.MoveNext 移动到上一条 Recordset: 1.在引用后. 到这里就差不多了，我们才能够访问数据库.常用的对象有两个，它更简单易用，更适合初学者.open Select * From Users,Connection；等运算符.比如 Where ID >32.（这里假设[ID]为数字型.） 这是打开的部分.第二个很重要的部分就是查询记录. 数据库它并不是把所有记录全部放到一个变量中备用的.而是以当前记录的形式来返回一个值，也相对简单了很多，且能 够满足中小型应用程序的需要.后半句 Source=d:main，用CreateObject创建对象，16 Else If PassWord =Recordset（密码）.value then msgbox 登录成功，可以用=、>.因为
（1）里并没有打开[用户名]字段，所以这一句Recordset（密码）就没有值存在，选择了Access. 打开数据库之后，还要打开表.假如数据库中有一个表，最后再调用Updata方法！，64 Else msgbox 密码错误！，在工程 -- 引用 中.那么看以下代码，然后对这个新记录中的各字段赋值，所以我们在使用数据库时.不同的数据库可能会不同.找到则当前的值就是符合条件的记录. 第三个部分就是添加/，只不过在设计Access数据库的结构时，Connecti...
最简单的VB打开ACCESS数据库的程序
以下代码用到两个控件：
（1）Adodc控件
（2）DataGrid控件 Private Sub Command1_Click() With Adodc1 .ConnectionString = ＂Provider=Microsoft.Jet.OLEDB.4.0;Data Source=＂ _ & ＂D：\我的文档＂ _ &； ＂\实验室排课.mdb;Persist Security Info=False＂ .CommandType = adCmdUnknown .RecordSource = ＂你的查询（select）语句＂ .Refresh End With With DataGrid1 '用网格控件显示数据库中的数据 Set .DataSource = Adodc1.Recordset .Refresh End With End Sub
以下为关联文档：
vb入门游戏实例'添加一个名为label1的标签控件，并将其index设为0；再添加一个名为command1的按钮控件 Dim a(1 To 9) As Boolean Dim win As Boolean, begin As Boolean, haveload As Boolean...
新手怎样入门vb有志气，我上初中那会儿还不知道啥是电脑呢，只知道那是高科技，只会玩小霸王，哈哈…… 我说说我学VB那会儿的学习经验吧，希望对你有点帮助。 对于电脑语言爱好者，刚开始学习时，我个人...
基础编程VB语言1、VB在编程语言中属于十分好学的，BASIC语言在设计之初就是为初学者准备的 2、26个字母和打字肯定得会啊~~如果会英语的话，学起来会更简单，但是不会也无妨；需要一定的电脑基础，以...
初学VB请教VB60连接SQL数据库具体步骤Dim conn As New ADODB.Connection Dim rs(10) As New ADODB.Recordset db = App.Path & ＂\db\data.mdb＂ conn.Open ＂Provider=Microsoft.Jet.OLEDB.4.0;Data Source=＂ & App.Pa...
09年VB上机题目懂VB的朋友请帮忙反正现在有空。。。就帮楼上注释下吧 Private Sub Command1_Click() Dim i As Integer, a(1 to 10) As Integer '声明一个整型变量i和一个整型数组a，范围是a(1)-a(10)Open Ap...
VB高手赐教：如何把电子表格中的数据导入VB中读取A2单元格的代码：（数据在变量R中，工程前需引用MICROSOFT EXCEL OBJECT LIBRARY） Private excelApp As excel.Application Private Sub Command2_Click() Set excelApp = New...
vb上如何做这三道题求解。谢谢真心不想学vb1.dim r as single dim l as single dim s as single r=val(text1.text) l=2*pi*r s=pi*r*r 2.dim gewei as Integer dim shiwei as Integer dim baiwei as Integer dim num...
怎样用VB自动使excel生成图表并用VB来显示这个图表Sub 图表制作（） ' ' Charts.Add ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=Sheets(＂Sheet1＂).Range(＂A1:H18＂), PlotBy _ :=xlColumns Activ...
我大一想问一下计算机二级考VB有用吗听说VB快被取消拉是不我是大三的学生了，而且学的是计算机相关的专业。在大二的时候计算机等级也通过3级网络技术考试。计算机等级面向的对象就是非计算机专业人员，带有扫盲性质的证书。这个证书体...
