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数据库的实例代码：

    Dim cnn As New Connection

    Dim rs As New Recordset

    Dim sql As String

    Dim ARR

    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0Data Source=C:\wdOld.mdbPersist Security Info=False"

    sql = "select 故障名称 from guzhang_bm"

    rs.Open sql, cnn

    Combo1.Text = "故障名称"

    Do While Not rs.EOF

        Combo1.AddItem rs("故障名称")

        rs.MoveNext    '打开表

    Loop

    rs.Close

    cnn.Close

以下是使用ADO Data 控件访问Access数据库德实例代码：

    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" & App.Path & "\wd.mdbPersist Security Info=False"

    Adodc1.RecordSource = "select * from jishijilu" ' where shijian like'%8112%' And gyh_riqi like'%10%'"

    Adodc1.Refresh

    Set MSHFlexGrid1.DataSource = Adodc1

    MSHFlexGrid1.Row = 1

    MSHFlexGrid1.ColSel = MSHFlexGrid1.Cols - 1

用SQL语句啊，比如："select * from 表名 where 日期字段名=" &DTP1.value "select * from 表名 where Year(日期字段名)=" &DTP1.value 具体问题具体分析，楼主你这种提问方法太笼统，提问要描述清楚，人家才知道怎么答你。

要查找数据库信息，关键是要解决链接数据库的问题，下面简述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

---