vb数据库编程实例？如何用VB建立数据库
大家好，今天小编来为大家解答vb数据库编程实例这个问题，如何用VB建立数据库很多人还不知道，现在让我们一起来看看吧！
如何在VB中操作数据库
要查找数据库信息，关键是要解决链接数据库的问题，下面简述Vb如何SQL数据库：有两种方法可以实现，一种是通过ODBC数据源的配置进行连接，一种是通过纯代码编辑进行连接，下面我们就详细介绍一下这两种连接方法。ODBC数据源VB连接SQL数据库一、配置ODBC数据源1、在控制面板中，双击管理工具，然后打开ODBC数据源管理器。2、在“系统DSN”选项卡中，单击“添加”按钮，打开“创建新数据源”对话框，在“名称”列表框中选择“SQLServer”。选好单击完成3、在打开“建立新的数据源到SQLServer”对话框，在“名称”文本框输入新数据源的名称，描述数据源按你理解的方式来写(随意)。“服务器”就选择你要连接到的服务器。4、选择使用用户输入登录的ID和密码的SQL验证。选连接SQL默认设置5、再下一步下一步，完成。测试数据源看连接是否成功就行了。成功后按确定。二、VB中设置连接1、添加部件MircrosoftADODataControl6.0(OLEDB),把部件拖到窗体。2、对ADO部件点右键选属性，选择使用连接字符串，按生成。3、选择MircosoftOLEDBProvidarforSQLServer按下一步4、1）输入服务器名称2）使用指定的服务器信息3）在服务器上选择数据库这时就选择你在SQLServer建好的数据库就行了5、测试连接可以看到连接是否成功！通过代码VB连接SQL数据库PublicconnAsNewADODB.ConnectionPublicrsAsNewADODB.RecordsetPublicaddFlagAsBooleanPublicFunctionOpenCn(ByValCipAsString)AsBooleanDimmagAsStringOnErrorGoTostrerrmagSetconn=NewADODB.Connectionconn.ConnectionTimeout=25conn.Provider="sqloledb"conn.Properties("datasource").Value=Cip'服务器的名字conn.Properties("initialcatalog").Value="zqoa"'库名'conn.Properties("integratedsecurity").Value="SSPI"'登陆类型conn.Properties("userid").Value="sa"conn.Properties("password").Value="sa"conn.OpenOpenCn=TrueaddFlag=TrueExitFunctionstrerrmag:mag="Datacan'tconnect"CallMsgBox(mag,vbOKOnly,"Error:Dataconnect")addFlag=FalseExitFunctionEndFunctionPublicSubcloCn()OnErrorResumeNextIfconn.StateadStateClosedThenconn.CloseSetconn=NothingEndSubPublicFunctionopenRs(ByValstrsqlAsString)AsBoolean'连接数据库记录集DimmagAsStringDimrpyAsBooleanOnErrorGoTostrerrmagSetrs=NewADODB.RecordsetIfaddFlag=FalseThenrpy=TrueWithrs.ActiveConnection=conn.CursorLocation=adUseClient.CursorType=adOpenKeyset.LockType=adLockOptimistic.OpenstrsqlEndWithaddFlag=TrueopenRs=TrueEnd'ExitFunctionstrerrmag:mag="datanotconnect"CallMsgBox(mag,vbOKOnly,"error:connect")openRs=FalseEnd'ExitFunctionEndFunctionPublicSubcloRs()OnErrorResumeNextIfrs.StateadStateClosedThenrs.CloneSetrs=NothingEndSub
vb连接ACCESS数据库实例
对于没有VB运行库的机器，必须注册VB运行库，程序中的代码不需要改动。
-----------------------------------
链接数据库的方法比较多，看你采用什么方法链接了，：
1、用ADO链接；2、用Data数据控件链接；3、用ADODB数据控件链接；还有数据库文件是Access 1997?Access 2000?Access 2003?有没有加密？等等等等问题，首先确定这些问题，才能.....
下面给你一个用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
VB怎么调用数据库数据
VB可将Sql结构化查询语句赋值Ado(ActiveX数据对象)或ADO Data控件，访问和操作数据库。
ADO(ActiveX数据对象)，这项新的数据访问技术的特性包括：更简单的对象模型；与其它 Microsoft和非 Microsoft的技术更好的集成；为本地和远程数据数据提供的通用接口；可远程访问的和断开的记录集；用户可访问的数据绑定接口；以及层次结构的记录集。
ADO Data控件，这是一种新的、OLEDB识别的数据源控件，其功能与内部的 Data控件和 Remote Data控件十分相似，通过这种方式允许用户用最少的代码来创建数据库应用程序。
Visual Basic 6.0中，已经可以将任何 ADO/OLE DB数据源绑定到任何 ADO/OLE DB数据使用者上。在运行时，可以设置控件的 DataSource属性来将控件动态地绑定到数据源。可以创建用作数据源和数据使用者的类，并且通过新的 BindingsCollection对象将这些类绑定在一起。可以创建与 ADO数据控件相似的、用作数据源的用户控件。还可以创建与 DataGrid控件相似的、复杂绑定的用户控件。
以下是经ADO(ActiveX数据对象)访问Access数据库的实例代码：
DimcnnAsNewConnection
DimrsAsNewRecordset
DimsqlAsString
DimARR
cnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\wdOld.mdb;PersistSecurityInfo=False"
sql="select故障名称fromguzhang_bm"
rs.Opensql,cnn
Combo1.Text="故障名称"
DoWhileNotrs.EOF
Combo1.AddItemrs("故障名称")
rs.MoveNext'打开表
Loop
rs.Close
cnn.Close
以下是使用ADO Data控件访问Access数据库德实例代码：
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\wd.mdb;PersistSecurityInfo=False"
Adodc1.RecordSource="select*fromjishijilu"'whereshijianlike'%8112%'Andgyh_riqilike'%10%'"
Adodc1.Refresh
SetMSHFlexGrid1.DataSource=Adodc1
MSHFlexGrid1.Row=1
MSHFlexGrid1.ColSel=MSHFlexGrid1.Cols-1
如何用VB建立数据库
1、首先点击打开主菜单栏中的“外接程序”选项。
2、然后在弹出来的窗口中点击打开“可视化数据管理器”，出现下图中的界面。
3、然后单击文件中的新建，选择“microsot access”，“version 7.0”，弹出保存界面，点击保存后出现如下界面。
4、然后右键单击properties，选择“新建表”，输入表名称，添加字段。
5、然后打开类型，选择字段类型的大小，回车确定。
6、然后点击“生成表”选项。
7、然后双击“1”或者右键单击选择打开。
8、然后输入值后工具栏会变化。
9、然后点击添加就完成了。
好了，本文到此结束，如果可以帮助到大家，还望关注本站哦！