Question

朋友们，我有一个问题如何将图片加载到microsoft access vba中的服务器，虽然我做了一些编码但是没有工作

Private Sub Command0_Click()
Dim IE As Object

Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "https://visa.mofa.gov.sa/Omra/addOmraVisa"
IE.Visible = True
Do While IE.Busy: DoEvents: Loop
Do While IE.ReadyState <> 4: DoEvents: Loop
IE.Document.all("ApplicationNumber").Value = 65371771
IE.Document.getElementById("EmbbasyCode").Value = "210"
IE.Document.all("CommandName").Click
IE.getElementsByTagName("PersonalPhoto").src = "file:///d:\pic\AE5902663.jpg"
   Do While IE.Busy: DoEvents: Loop
   Do While IE.ReadyState <> 4: DoEvents: Loop
   End Sub



  [1]: http://i.stack.imgur.com/90g1n.jpg


   <td rowspan="5" class="requestphoto">
                        <img id="image" runat="server" width="150px" height="150px" src='/Omra/GetImage?358485787' />
                        <div class="t-widget t-upload"><div class="t-button t-upload-button"><span>Select...</span><input id="PersonalPhoto" name="PersonalPhoto" type="file" /></div></div>
                        <br />
                    </td>
                </tr>
                <tr>
                    <td>

jQuery的（文件）。就绪（函数（）{ jQuery的（＆＃39;＃EmbbasyCode＆＃39;）tDropDownList（{数据：[{＆＃34;文本＆＃34;：＆＃34;＆＃34;＆＃34;值＆＃34;：＆＃34 ;＆＃34;}，{＆＃34;文本＆＃34;：＆＃34;伊斯兰堡＆＃34;＆＃34;值＆＃34;：＆＃34; 210＆＃34;}，{＆＃34;文字＆＃34;：＆＃34;卡拉奇＆＃34;，＆＃34;价值＆＃34;：＆＃34; 231＆＃34;}]，索引：1}）; jQuery（＆＃39; #PersonalPhoto＆＃39;）。tUpload（{multiple：false，showFileList：false，async：{＆＃34; saveUrl＆＃34;：＆＃34; / Omra / SaveOmraPersonalPhoto＆＃34;，＆＃ 34; removeUrl＆＃34;：＆＃34; / Omra / RemovePersonalPhoto＆＃34;，＆＃34; autoUpload＆＃34;：true}，onSuccess：OnSuccess，onError：OnError，onRemove：OnRemove}）; jQuery（＆＃39;＃COMING_THROUGH＆＃39;）。tDropDownList（{data：[{＆＃34; Text＆＃34;：＆＃34; Air＆＃34;，＆＃34; Value＆＃34;：＆＃ 34; 2＆＃34;}，{＆＃34; Text＆＃34;：＆＃34; By Land＆＃34;，＆＃34; Value＆＃34;：＆＃34; 1＆＃34;}，{＆＃ 34; Text＆＃34;：＆＃34; By Sea＆＃34;，＆＃34; Value＆＃34;：＆＃34; 3＆＃34;}，{＆＃34; Text＆＃34;：＆＃34;开放＆＃34;＆＃34;值＆＃34;：＆＃34; 4＆＃34;}]}）;}）;

如何从本地驱动器加载图片到服务器

0 个答案: