VB6.0数据传输

Question

我用VB6.0和ACCESS20000做人事管理档案,其中有"照片"字段,我把照片的路径存入数据库,现在要把一条记录的内容全部传送到EXCEL显示(包括图片),如何实现?
急急急!

Answer 1

做一个Excel文件模板，然后，把数据库图片字段，写入外面文件（c:\2.jpg)，然后通过把开EXCEL模板文件打开，通知程序，依次，写入:
如     
   Dim xls As Excel.Application
    Dim wb As Excel.Workbook, sh As Worksheet
    Set wb = xls.Workbooks.Open("c:\MB.xls")
    
    Set sh = wb.ActiveSheet
    sh.Range("A4") = rst!名字
    '.....其它字段
    sh.Range("D5").Select
       
    '
    sh.Pictures.Insert( _
        "c:\2.jpg").Select
    
    Selection.ShapeRange.Height = 42.75  '约等于2厘米
    Selection.ShapeRange.Width = 57#   '约等于1.5厘米
    sh.PrintOut大概如此，我没试过。

Answer 2

不好意思 此句写反了:
    Selection.ShapeRange.Height = 42.75  '约等于1.5厘米
    Selection.ShapeRange.Width = 57#   '约等于2厘米

Answer 3

yangzn76,你好!
  我按照你说的方法试了一下,提示"不能取得类pictures 的insert 属性".

Answer 4

我试了一下，应该没问题（我用的是office2003),插入图片的代码，你可以用录制宏，看一下，就知道了。
   Dim xls As New Excel.Application  '这里差一个NEW 关键字
    Dim wb As Excel.Workbook, sh As Worksheet
    Set wb = xls.Workbooks.Open("c:\2.xls")
    
    Set sh = wb.ActiveSheet
    sh.Range("A4") = "ss"
    '.....其它字段
    sh.Range("D5").Select
       
    '
    sh.Pictures.Insert( _
        "c:\2.jpg").Select
    
    Selection.ShapeRange.Height = 42.75  '约等于1.5厘米
    Selection.ShapeRange.Width = 57#   '约等于2 厘米
    sh.PrintOut
    wb.Close False
    Set wb = Nothing
    xls.Quit
    Set xls = Nothing

Answer 5

yangzn76,你好!
    我又试了,已成功,非常感谢!
    另外还有个问题:我用的是VB6.0+ACCESS2000,我想删除一条记录,代码是这样的:
    Dim conn As New adodb.Connection
    Dim rs_add As New adodb.Recordset
    Dim sql As String
    Dim connectionstring As String
    Dim b As String
  connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & "data source=dangan.mdb"
  conn.Open connectionstring
  sql = "select * from guanli where 工作证号='" & b & "'"
  rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic
    If MsgBox("你确定要删除此记录吗？", vbYesNo, "警告") = vbNo Then
  Exit Sub
  Else
  Delete from guanli where 工作证号='" & b & "'
  End If
  rs_add.Update
  MsgBox "删除信息成功", vbOKOnly + vbExclamation, ""
但总是提示"语法错误"(对DELETE语句),这是怎么回事?

Answer 6

引号错了 
应该  Delete from guanli where 工作证号="'" & b & "'"