vbsql语句.docVIP

vbsql语句 篇一：vbsql语句 添加好之后的Access界面如下： （2003版） （2013版） 其实数据库里面什么数据都无所谓，不过我把我当前的数据库内容告诉大家，待会代码写出来，运行之后的效果就显而易见了。 那么真正的代码编写就开始了。跟随我的步伐吧。启动VB6，新建【标准EXE】工程，这个不详细截图了。然后选择【工程】菜单的【引用】菜单项，打开引用对话框，选中【Microsoft ActiveX Data Object 6.0 Library】（不是6.0也可以），如图： OK，要引用的只有这个，按确定吧。看吧，并不麻烦。首先，我们来认识几个对象，按下F2（或者选择【视图】菜单的【对象浏览器】菜单项，将【 所有库 】改成【ADODB】，这样我们就能查看刚才我们引用的那个库（那个库就名为ADODB，完整的名称是ActiveX Data Object DataBase，简称ADO。以后我将使用ADO这个简称）对象浏览器如图： 可以看到左变有一列，许多黄色的图标那一列就是对象的名称（具体的对象浏览器的用法参见这篇文章：）。选择了ADODB这个库之后，我们来看一下其中的Connection这个类，如下图： Connection，意为“连接”，所以它的作用就是连接数据库，他最常用的方法就是Open（当然最后要搭配Close方法了）。通过上图，我们就可以查看到Open方法有4个参数。每个参数都带有[]，[]表示的是可选参数，不过真正的可选是后面三个，第一个的可选是有条件的，天底下哪有那么方便的事啊~。既然后面三个参数是可选的，那请无视他好了。我们来讨论第一个参数，第一个参数是ConnectionString，字符串（String）类型。这里我们要传入的数据有一定的 式，举例如下： 有密码形式： Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Sample.mdb;Jet OLEDB:Database Password=123456;Persist Security Info=False 没有密码形式： Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Sample.mdb;Persist Security Info=False 这个对于Access的数据库都是差不多这样用的，要改的就是红色字的部分。前面那个是数据库的路径，后面那个是密码。虽然大多这样用，不过还是要告诉大家这句话到底是什么意思，不然大家学的不明不白。“Provider=”是开头，Provider意为“提供者”，这里指的是数据库引擎，后面接着的“Microsoft.Jet.OLEDB.4.0”就是数据库引擎的名称。“Data Source=”表示的是数据源，那当然后面毫无疑问接的是数据库的目录了。然后的“Jet OLEDB:Database Password=”是向数据库引擎指明数据库的密码是这个。最后的“Persist Security Info=False”是关于数据库安全性的说明，说明数据库引擎是否在打开数据库之后保存安全性信息，实际上简单来说就是是不是把密码保存下来，不解释了，设置为False就是了。 如果要看看其他的数据库引擎，可以选择【工程】菜单的【部件】菜单项，选择其中的【Microsoft ADO Data Control 6.0 （SP6）】，然后按照里的介绍去操作。不过这里我要说的是，我所说的数据库操作是全代码控制的，不要看着到控件就想去转成用控件，有不少找到我希望我帮忙的人，都反映这个控件有这样那样的问题，所以我不建议使用它。 好，解释了这些之后(转载于:www.cNBotHwin.cOm 博 威 范文网:vbsql语句)，我们来写代码，连接数据库的代码很简单，如下： VB代码开始： Dim Cnn As ADODB.Connection Dim rec As ADODB.Recordset Private Sub Form_Load()”创建新的Connection对象 Set Cnn = New ADODB.Connection “注意要记住该数据库目录为你数据库文件当前的位置 Cnn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Sample.mdb;Persist Security Info=False End Sub VB代码结束： 一般数据库在整个程序的运行中连接一次就够了，所以写在Load事件里，或者写在Main函数里（如果是设置了从Main函数启动的话）。就当前的代码而言，如果连接上了，窗口就显示出来，因为Load里面的代码成功执行完了嘛，只不过显示出来之后就没有