vb6.0如何显示数据库中的数据

这个是access+datagrid显示的

没问题

其他数据库也很类似

我正在用这个

你试试

'-------define

hong------------

Dim

ConStr

As

String

Dim

cn

As

ADODB

Connection

Dim

rs

As

ADODBRecordset

Dim

statestring

As

String

'------------------------connect-database-----------

Set

cn

=

New

ADODBConnection

Set

rs

=

New

ADODBRecordset

'--------------------connect

the

database--------------

ConStr

=

"Provider=MicrosoftJetOLEDB40;"

&

"Data

Source="

&

AppPath

&

"\base\tmsdatamdb"

'===================你的数据库位置和名称

cnOpen

ConStr

cnCursorLocation

=

adUseClient

DataGrid1Refresh

Select

Case

cnState

Case

adStateClose

statestring

=

"adStateClosed"

Case

adStateOpen

statestring

=

"adStateOpen"

End

Select

'显示连接的状态

If

statestring

=

"adStateClosed"

Then

MsgBox

"连接失败",

,

statestring

Else

End

If

'----------open

the

table------------------

rsOpen

"Select

用户名

from

表名",

cn,

1,

3

'=========写成你的表名

Set

DataGrid1DataSource

=

rs

'show

on

the

table

是否又是你在问这个问题了？

你连接的是否为Access 数据库？下面以Access 数据库为例子：

先看一下结果。

窗体中放置好各控件，Form_Load()增加如下的程序：

Private Sub Form_Load()

   With Data1

         Connect = "Access"

         DatabaseName = "D:\vbTemp\myDBmdb"                         ‘数据库所在的全路径及名称

         RecordSource = "SELECT  FROM T101 ORDER BY F1"  '这里的T101是我用的表名称

         Refresh                                                                                ’F1 是我用的字段名称

    End With

End Sub

“查询”按扭增加如下的程序：

Private Sub cmdFind_Click()    

    With Data1

      RecordSource = "SELECT FROM T101 WHERE F1 Like '" + Trim(txtCode) + "'"

      Refresh

    End With    

End Sub

1、添加 MSFlexGrid 控件：

“工程”->"部件"->"选择 Microsoft FlexGrid Control 60"->"确定"

2、Data 控件应该会设置吧

3、窗体上放置该控件，设置其 DataSource 属性=Data1

3、添加需要的程序

4、程序中的 "F1" 是我用字段名称，代表的是“错误编号”

5、查询中用 Like 语句可以获得相关的结果，也可以用 "=" 但后面不需要“符号

"SELECT FROM T101 WHERE F1 ='" + Trim(txtCode) + "'"

'省略打开数据库连接

Dim rs As New ADODBRecordset

Dim strsql as string

strsql="Select mz, xb Form 1234"

rsOpen strsql, dbConnection, adOpenKeyset, adLockReadOnly

Dim xitem As ListItem

While Not rsEOF

Set xitem = ListView1ListItemsAdd( , , rsFields("mz"))

xitemSubItems("1") = rsFields("xb")

rsMoveNext

Wend

Set xitem = Nothing

rsClose

Set rs = Nothing

//用ADOnet中的Connection进行OLE连接到Access文件，连接字符串例子：

connstr="PROVIDER=MicrosoftJetOLEDB40;DATA Source=DB文件路径;Jet OLEDB:Database password=密码"

//再发送Command命令SQL，

Select  from Student_Perfomance where Stu_No='取到的学号'

//再用DataReader取出数据，设置到窗体的控件上。

以上就是关于vb6.0如何显示数据库中的数据全部的内容，包括:vb6.0如何显示数据库中的数据、vb中如何把查询到的数据显示在msflexgrid上呢 请高手来围观解答啊、vb中实现数据库内容在listview中显示出来。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！