Question

请教如何把数据保存起来用adodc和datagird连接，通过查询控件，在datagird上显示历史数据。（程序如下）

Private Sub cmd_Search_Click()
strSql = "select * from WENDU where 1=0"
Set Rs = New ADODB.Recordset
Rs.CursorLocation = adUseClient
Rs.Open strSql, Db, adOpenKeyset, adLockReadOnly
If Rs.RecordCount < 1 Then
MsgBox ("数据库中没有数据！")
Exit Sub
End If
Set DGrid.DataSource = Rs
DGrid.Refresh
End Sub

'存入数据库中---------------------------------------------
Sub Data_save(sinTemp As Single)
Set Rs = New ADODB.Recordset
With Rs
.Open "select * from WENDU", Db, 1, 3
.AddNew '新增一条记录
.Fields("temp") = sinTemp
.Fields("time") = DateTime.Now.ToString()
.Update
End With '完成后关闭对象
Rs.Close
Exit Sub
err:
errString = "Error # " & CStr(err.Number) & " " & err.Description
errtitle = err.Source
MsgBox errString, vbCritical, errtitle
End Sub
'————————————————数据库的程序
Option Explicit ' 数据库库文件和VB中创建的工程文件必须放在放同一目录下
Public Db As ADODB.Connection '全程数据库连接
Public Rs As ADODB.Recordset '查找纪录过程中引用
Dim iConcstr As String
Sub Main()
On Error GoTo errp
iConcstr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "C:\Documents and Settings\acer\桌面\界面\WDDB.mdb" & " ;Persist Security Info=False"
' '下面的语句是连接sqlserver数据库的.
Set Db = New ADODB.Connection
Db.Open iConcstr
frmmain.Show
Exit Sub
err:
MsgBox ("数据库访问失败,或者数据库不存在，请选择有效的数据库文件！")
End Sub

Answer 1

要添加一个ADODC控件 名为Adodc1
Private Sub cmd_Search_Click()
strSql = "select * from WENDU"
Adodc1.ConnectionString = "Provider=microsoft.jet.oledb.4.0;data source=C:\Documents and Settings\acer\桌面\界面\WDDB.mdb"
Adodc1.RecordSource = strSql
Set DGrid.DataSource = Adodc1
DGrid.Refresh
End Sub
顺便说一下，我已经不用这种方式操作网格了 我的网络控件改为更高级的Hierarchical flexGrid