vb 数据库(如何用VB建立数据库)
各位老铁们好，相信很多人对vb 数据库都不是特别的了解，因此呢，今天就来为大家分享下关于vb 数据库以及如何用VB建立数据库的问题知识，还望可以帮助大家，解决大家的一些困惑，下面一起来看看吧！
VB可以用什么数据库
vb连接什么数据库都能用，
1.
但是从支持和稳定方面建议用：access，sqlserver
2.
小型的数据量不大或单机模式：access
（小型桌面数据库，对多客户端支持不好）
3.中大型的数据量大或多机模式（多客户端）：sqlserver
（中大型数据库，多客户端支持好）
4.vb
，
access，sqlserver
全是微软的产品，
兼容性没得说
5.
看需求：如果需求大可以改成大型数据库
甚至改变开发语言
和
改用开发模式
cs模式改用bs模式等
6.绝对原创，一个字一个字打字
如何用VB建立数据库
1、首先点击打开主菜单栏中的“外接程序”选项。
2、然后在弹出来的窗口中点击打开“可视化数据管理器”，出现下图中的界面。
3、然后单击文件中的新建，选择“microsot access”，“version 7.0”，弹出保存界面，点击保存后出现如下界面。
4、然后右键单击properties，选择“新建表”，输入表名称，添加字段。
5、然后打开类型，选择字段类型的大小，回车确定。
6、然后点击“生成表”选项。
7、然后双击“1”或者右键单击选择打开。
8、然后输入值后工具栏会变化。
9、然后点击添加就完成了。
VB6.0中动态查询数据库
可以使用以下代码实现:
1.数据库连接字符串:
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库名称.mdb"
2.连接数据库和定义查询SQL语句:
conn.Open strConn
strSQL="SELECT FROM表名 WHERE"& cboField.Text&" LIKE'"& txtSearch.Text&"'"
3.根据选择的字段和输入的条件拼接SQL语句:
strSQL="SELECT FROM表名 WHERE"& cboField.Text&" LIKE'"& txtSearch.Text&"'"
4.打开Recordset,返回查询结果:
Set rs= conn.Execute(strSQL)
5.清空DataGrid控件,加载新查询的数据:
DataGrid1.Clear
DataGrid1.Refresh
Do While Not rs.EOF
DataGrid1.AddItem rs(0), rs(1), rs(2)'字段名称
rs.MoveNext
Loop
6.计算满足条件的记录数,显示在Label控件上:
lblCount.Caption= rs.RecordCount&"条记录"
7.数据库断开连接:
conn.Close
具体代码如下:
Dim conn As New ADODB.Connection
Dim strConn As String
Dim strSQL As String
Dim rs As New ADODB.Recordset
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb"
conn.Open strConn
strSQL="SELECT FROM Table1 WHERE"& cboField.Text&" LIKE'"& txtSearch.Text&"'"
Set rs= conn.Execute(strSQL)
DataGrid1.Clear
DataGrid1.Refresh
Do While Not rs.EOF
DataGrid1.AddItem rs(0), rs(1), rs(2)
rs.MoveNext
Loop
lblCount.Caption= rs.RecordCount&"条记录"
conn.Close
这段代码实现了VB中对Access数据库的动态查询功能,通过ComboBox选择字段,TextBox输入查询条件,实现对DataGrid和Label的动态更新显示。
如何在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 数据库和如何用VB建立数据库的问题分享到这里就结束了，如果解决了您的问题，我们非常高兴。