显示在datagrid用连接查询(inner join or left join)出记录集后赋给datagrid显示,保存时用SQl语句"insert tablename..."循环添加进表。^_^
Dim rst as ADODB.Recordset Set rst = New ADODB.Recordset rst.CursorLocation = adUseClient rst.Open "SQL语句", con, adOpenDynamic, adLockOptimistic Set datagrid.DataSource = rst
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient
rst.Open "SQL语句", con, adOpenDynamic, adLockOptimistic
Set datagrid.DataSource = rst
用TextBox作为输入,再保存到数据库中。
例子FilterDB