VB中使用data控件显示access数据库中内容

记住：在

Data3DatabaseName = AppPath + "\tushu1mdb" '这是设置data3控件数据库的路径

Data3RecordSource = "denglu" '这个是选择数据库中的表

后面不要忘记刷新；

Data3Refresh

另外，你既然用了

Text1Text = Data3RecordsetFields("用户名")

Text2Text = Data3RecordsetFields("密码")

Text3Text = Data3RecordsetFields("密码")

那前面的三行是多余的了

Text1DataSource = "Data3" '这是个文本框控件设置数据源

Text2DataSource = "Data3"

Text3DataSource = "Data3"

要么这样：

Text1DataSource = "Data3" '这是个文本框控件设置数据源

Text2DataSource = "Data3"

Text3DataSource = "Data3"

Text1DataField = "用户名"

Text2DataField = "密码"

Text3DataField = "密码"

第一、先调用数据库 string sqlstr = "select from table(你要查询的表)where（查询的条件 比如 id=1）";

第二 将数据库的表格 填充到Dateset

DataSet ds = new DataSet();

SqlDataAdapter da = new OleDbDataAdapter(sqlstr, con);

daFill(ds, table);

DataRow[] dr = dsTables[0]Select(); //定义一个DataRow数组 这个dr里面就是符合你选择条件的一行 你可以 让label1text=dr[0][i];来讲你要显示的东西显示出来 i 是要显示的东西位于表单的列的位置

如图所示:

程序中主要涉及到一下几点:

1、数据控件　aAdodc 连接数据库

　在Form_Load 中使用如下的程序连接Access 数据库　\db7mdb

Dim connStr As String

    connStr = "Provider=MicrosoftJetOLEDB40;Data Source=" + AppPath + "\db7mdb;Persist Security Info=False"

    With Adodc1

        ConnectionString = connStr

        CommandType = adCmdText

        CursorType = adOpenDynamic

        RecordSource = "SELECT FROM T107"

        Refresh

    End With

2、数据控件　DataGrid 的设置，要研究其属性设置

3、利用ADO 访问Access数据库

如按扭"计算实际年龄"的程序部分

Private Sub Command1_Click()

    Dim connStr As String

    Dim mySQL As String

    Dim adoConn As New ADODBConnection

    Dim adoRs As New ADODBRecordset

    If Trim(Text1) = "" Then

       MsgBox "请输入有效的编号！", 48, "重要提示"

       Exit Sub

    End If

    mySQL = "SELECT DATEDIFF('yyyy',sBirth,Date()) As Years FROM T107 WHERE sCode='" + Trim(Text1) + "'"

    connStr = "Provider=MicrosoftJetOLEDB40;Data Source=" + AppPath + "\db7mdb;Persist Security Info=False"

    adoConnOpen connStr

    adoRsOpen mySQL, adoConn, adOpenDynamic, adLockReadOnly

    If adoRsBOF And adoRsEOF Then

       MsgBox "输入的编号查无此人！", 48, "重要提示"

       adoRsClose

       adoConnClose

       Exit Sub

    Else

       Text2 = "您已经：" + Str(adoRs(0)) + "岁"

    End If

End Sub

更新详细的内容可以下载附件中的程序，其中包含了数据库db7mdb 及Form7

使用窗体控件时，能实现显示数据。根据查询相关公开信息显示，可以使用窗体控件来显示数据。窗体控件可以用来显示文本、、视频等数据。例如，可以使用文本框控件来显示文本，使用框控件来显示，使用媒体播放器控件来显示视频。

以上就是关于VB中使用data控件显示access数据库中内容全部的内容，包括:VB中使用data控件显示access数据库中内容、c# asp.net 关于查询数据并显示到文本框控件中、vb连接access数据库后如何对其中的数据进行某种计算，然后把结果显示在文本框里谢谢等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！