strselect = "select 材料名称,规格及型号,库存 from 产品归类表 join 材料表 ON 产品归类表.材料编号=材料表.材料编号 where 所属产品名称='" & Trim(txtcp.Text) & "'"
像这样,写成VB 语句 是什么
表1===产品归类表
表2===材料表
strselect = "select 材料名称,规格及型号,库存 from 产品归类表 join 材料表 ON 产品归类表.材料编号=材料表.材料编号 where 所属产品名称='" & Trim(txtcp.Text) & "'"
像这样,写成VB 语句 是什么
表1===产品归类表
表2===材料表
你没看懂你想表达什么!如果要用VB连接数据库的话要用ADODB等组件进行连接然后传递SQL语句,而且你上面的语句用了JOIN返回的就是两张表的数据
dim txtsql As String Dim cnn As ADODB.Connection Dim rs As ADODB.Recordset
set rs=new ADODB.Recordset
txtsql="select 材料名称,规格及型号,库存 from 产品归类表 join 材料表 ON 产品归类表.材料编号=材料表.材料编号 where 所属产品名称='" & Trim(txtcp.Text) & "'"
rs.Open txtsql, cnn, adOpenStatic