DataGrid中添加数据,请指教

Question

两个表,表一用的是材料:
          ID    型号   材料名一    材料名二     材料名三
          7     ddd     sdfd          sdf         sdf
           ............................................      表二为材料的价格:
          材料名一    材料名二     材料名三
           545         554            454
           ................................................要求在DataGrid中显示为:
          型号   材料名一    材料名二     材料名三
          dddd    sdaf/价格   sdaf/价格   sdaf/价格
          ...................................................有原代码最好,
请指教,谢谢各位.

Answer 1

表二中应该还有一个ID的字段的,跟表一来相对应.Private Sub Command26_Click()
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
db.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source=" & App.Path & "\dev.mdb"
db.Open
rs.CursorLocation = adUseClient
rs.Open "select 表1.型号 as 型号, 表一.材料名一 & '\' & 表二.材料名一 as 材料名一,表一.材料名二 & '\' & 表二.材料名二 as 材料名二,表一.材料名三 & '\' & 表二.材料名三 as 材料名三 from 表一,表二", db
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub

Answer 2

不好意思,漏了where语句.表二中应该还有一个ID的字段的,跟表一来相对应.Private Sub Command26_Click()
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
db.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source=" & App.Path & "\dev.mdb"
db.Open
rs.CursorLocation = adUseClient
rs.Open "select 表1.型号 as 型号, 表一.材料名一 & '\' & 表二.材料名一 as 材料名一,表一.材料名二 & '\' & 表二.材料名二 as 材料名二,表一.材料名三 & '\' & 表二.材料名三 as 材料名三 from 表一,表二 where 表一.ID=表二.ID", db
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub