主题：摄像头 上传照片

想实现一按钮，具有照相功能，把所照图片，上传至sql server表中。表A 第一列

Dim c As new camera
c.capture() '开始照相
If c.image IsNot Nothing Then '照相成功
    c.Save("d:\123456789\abc.jpg") '保存文件

    Dim ftp As new FTPClient
    ftp.Host = "222.***.***.***"
    ftp.Account = "**"
    ftp.Password = "**"

If ftp.Upload("d:\123456789\abc.jpg","\123\123.jpg") = True Then
 
End If
End If