如何使用VB写出一个查看的小程序

xdh6380

想通过成品编码，查询结果如下：成品编码、成品名称、成品规格、子件编码、子件名称、子件规格、单用量、现存量。
下面是整体的代码，现在的问题是现存量这段有问题，希望在这里有人帮助我，非常感谢！
Dim objrs As Recordset
Dim objcn As Connection
Dim objcmd As Command
Private Sub Command1_Click()
MSFlexGrid1.Cols = 1
MSFlexGrid1.Rows = 1
MSFlexGrid1.Clear
Set objrs = New Recordset
objcmd("成品编码") = "%" & txt1 & "%"
  Set objrs = objcmd.Execute
MSFlexGrid1.Cols = objrs.Fields.Count + 1
  For i = 0 To objrs.Fields.Count - 1
    MSFlexGrid1.TextMatrix(0, i) = objrs.Fields(i).Name
    MSFlexGrid1.ColWidth(i) = 1500
    Next i
  While Not objrs.EOF
    MSFlexGrid1.AddItem (objrs!成品编码 & vbTab & objrs!成品名称 & vbTab & objrs!成品规格 & vbTab & objrs!子件编码 & vbTab & objrs!子件名称 & vbTab & objrs!子件规格 & vbTab & objrs!单用量 & vbTab & objrs!现存量)
    objrs.MoveNext
   Wend
End Sub
Private Sub Form_Load()
Set objcn = New Connection
   With objcn
      .Provider = "SQLOLEDB"
      .ConnectionString = "user id=; pwd=;server=;database="
      .Open
   End With
Set objcmd = New Command
Set objcmd.ActiveConnection = objcn
   With objcmd
      .CommandText = "select v_BOM_BomParent.invcode as '成品编码' , v_BOM_BomParent.free8 as '成品名称'," & _
                     " v_BOM_BomParent.free10 as '成品规格',v_bom_opcomponent_rpt.invcode as '子件编码'," & _
                     " inventory.cinvname as '子件名称',inventory.cinvstd as '子件规格'," & _
                     " v_bom_opcomponent_rpt.baseqtyn as '单用量'," & _
                     " CurrentStock.iQuantity as '现存量'" & _
                     " from  v_BOM_BomParent inner join  v_bom_opcomponent_rpt on " & _
                     " v_bom_opcomponent_rpt.bomid=v_BOM_BomParent.bomid inner join inventory on " & _
                     " inventory.cInvCode=v_bom_opcomponent_rpt.invcode  " & _
                     " inner join CurrentStock.iQuantity on CurrentStock.iQuantity.cinvcode=inventory.cInvCode" & _
                     " where v_BOM_BomParent.invcode like ? "
      .CommandType = adCmdText
   End With
End Sub

xdh6380

.CommandText = "select v_BOM_BomParent.invcode as '成品编码' , v_BOM_BomParent.free8 as '成品名称'," & _
                     " v_BOM_BomParent.free10 as '成品规格',v_bom_opcomponent_rpt.invcode as '子件编码'," & _
                     " inventory.cinvname as '子件名称',inventory.cinvstd as '子件规格'," & _
                     " v_bom_opcomponent_rpt.baseqtyn as '单用量'," & _
                     " F.iQuantity as '现存量'" & _
                     " from  v_BOM_BomParent inner join  v_bom_opcomponent_rpt on " & _
                     " v_bom_opcomponent_rpt.bomid=v_BOM_BomParent.bomid inner join inventory on " & _
                     " inventory.cInvCode=v_bom_opcomponent_rpt.invcode  " & _
                     " inner join CurrentStock as F on v_bom_opcomponent_rpt.invcode = F.iQuantity" & _
                     " where v_BOM_BomParent.invcode like ? "
      .CommandType = adCmdText


运行没有任何显示了。。。怎么办呢？

shjqw

没完全看懂，一句sql就能出来的，怎么搞的那么复杂？