Question

怎样将数据库中的一张表的所有记录的个数放到VB界面的text1.text中

怎样将数据库中的一张表的所有记录的个数放到VB界面的text1.text中（比如有10条记录，那么在text1.text中显示10）
我想要详细代码，谢谢！

Answer 1

直接用代码连接
Private Sub Command1_Click()
dim cnn As New ADODB.Connection
dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
cnn.ConnectionString= "Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;Persist Security Info=False;Initial Catalog=需要连接的数据库" （这条代码不知道的话，你可以用ado控件连接数据库，ado控件在工程部件中，为microsoft ado data control添加就行了，在它的属性中点击生成，选择数据库类型后连接，选择相应的数据库类型进行下一步，再选择你要连的数据库，测试连接，确定后将生成的代码复制到这就行了。其他的代码就这样设置好了）
cnn.Open
rs.Open "select * from 你的表名 ", cnn, adOpenStatic, adLockReadOnly
text1.text=rs.RecordCount
end sub

Answer 2

Text1.Text = CStr(ADODB.RecordSet.RecordCount)

不过楼主似乎不会连接数据库
去看下ADODC控件,DATA控件这些
然后看下SQL就可以了