7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
hzh_wen_x 2001-05-17
- 打赏
- 举报
DataGrid.Row=2
playyuer 2001-05-16
- 打赏
- 举报
Dim adoConnection As New ADODB.Connection
adoConnection.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=d:/nwind97.mdb;Persist Security Info=False"
Dim adoRecordset As New ADODB.Recordset
adoRecordset.Open "SELECT DISTINCT Null AS 产品id,Null AS 产品名称 FROM 产品 UNION SELECT 产品id, 产品名称 FROM 产品", adoConnection, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = adoRecordset
adoConnection.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=d:/nwind97.mdb;Persist Security Info=False"
Dim adoRecordset As New ADODB.Recordset
adoRecordset.Open "SELECT DISTINCT Null AS 产品id,Null AS 产品名称 FROM 产品 UNION SELECT 产品id, 产品名称 FROM 产品", adoConnection, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = adoRecordset
