Ask a question, also about DATAGRiD

sxw1980

My program needs to add the data from the first DATAGRiD query to the second DATAGRiD. How do I write the program code?

chengyu876

set datagrid1.datasoucre = adodc1.recordset
set datagrid2.datasouce = datagrid1.datasource
I wonder if you mean this

sxw1980

no

I want to add the data from the first DATAGRID that has established a data connection to the second DATAGRID that has not established a data connection. Should I create an ADODB.recordset for the second DATAGRID that has not established a data connection?

thetian

Both DATAGRiD can be assigned the same data source. If you don't want to, copy the first DATAGRiD data traversal to the second DATAGRiD. :)

sxw1980

I want to be able to selectively add the data in the first DATAGRID that has established a data connection to the second DATAGRID

I didn't make it clear...

方天涯

If you want to see the final result~ it is OK to directly improve the query statement
If you want to save, you can add the result of DATAGRID1 to the data table of 2
If the columns are not the same, use another table to save, or add columns

chongzicool

You try it, easy to use, dynamically change the data in datagrid
Remember to quote ado
You only need to include miscrosoft Activex data objects 2.x library in the project/reference
Dim Db As Connection
Dim WithEvents adoPrimaryRS As Recordset'database connection object
Private Sub Command1_Click()
   

   strsql="select field from table where your condition"
   Set Db = New Connection
   Db.CursorLocation = adUseClient
   'You need to modify the following connection data string
   Db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&App.Path&"\plan management system.mdb;Persist Security Info=False"
   Set adoPrimaryRS = New Recordset
   adoPrimaryRS.Open strsql, Db, adOpenStatic, adLockOptimistic
   Set DataGrid1.DataSource = adoPrimaryRS
end sub

sxw1980

Thanks a lot