求救(急!急!急!)

Question

本人是菜鸟,想问几个问题.
1.我用VB结合Access做了个数据库,用了ADO Data和DataGrid控件,用什么方法可以得到根据我要求而查找到的记录条数.
2.我想从一个表中根据我要求而查找一些记录,用什么方法可以把查找到的记录用Excel显示.

Answer 1

With Adodc1
  'Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=northwind;Data Source=yang"
  '.ConnectionString = "driver={SQL Server};server=yang;uid=sa;pwd=;ConnectionTimeout=0;database=northwind"
  '.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\csdn_vb\database\adodc\article.mdb;Persist Security Info=False"
.RecordSource = "select * from mz where mc like '%看%'"
.Refresh  '光标停在这一列
Label2.Caption = .Recordset.RecordCount
End With

Answer 2

2.我想从一个表中根据我要求而查找一些记录,用什么方法可以把查找到的记录用Excel显示.http://www.microsoft.com/china/community/Column/32.mspx

Answer 3

Option ExplicitPrivate Rs As New ADODB.Recordset
Private Conn As New ADODB.ConnectionPrivate Sub Form_Load()
 Dim strConn As String
 
 ' 连接数据库的字符串
 ' 连接带密码的数据库,直接在连接符后面加上Jet OLEDB:DataBase Password='您的密码'
 ' 连接Access97数据库需要使用Jet.OLEDB.3.5,Access2K和以上数据库使用Jet.OLEDB.4.0
 strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
 
 ' 使用客户端数据游标
 Conn.CursorLocation = adUseClient
 ' 打开Access的连接
 Conn.Open strConn
 
 ' 如果RecordSet的状态不是关闭状态,则关闭Recordset
 If Rs.State <> adStateClosed Then Rs.Close
 
 ' Recordser打开表People
 Rs.Open "Select * from People", Conn, adOpenKeyset, adLockOptimistic
 
 ' 报告出 一共多少笔数据,测试是否存在数据
 ' MsgBox Rs.RecordCount
 
 ' 绑定进DataGrid
 Set DataGrid1.DataSource = Rs
 
End Sub

Answer 4

不过
建议使用ado对象，简单方便

Answer 5

好像用"Adodc1.Recordset.RecordCount"不行,如果我从有1000条记录的表中查找,根据我要求查找到了200条,用Label1.Caption=Adodc1.Recordset.RecordCount会显示有1000的数字.
可以告诉是什么原因吗?

Answer 6

还想问一个问题.
3.如果我想把显示在DataGrid中的数据打印出来有什么方法?

Answer 7

好像用"Adodc1.Recordset.RecordCount"不行,如果我从有1000条记录的表中查找,根据我要求查找到了200条,用Label1.Caption=Adodc1.Recordset.RecordCount会显示有1000的数字.
可以告诉是什么原因吗?应该不会，看看你的语句//3.如果我想把显示在DataGrid中的数据打印出来有什么方法?
导出到excel中打印，论坛搜索，很多的