WebService

Sub IncluiMultimidia()
 Dim ws As New br.com.pronto.credenciados.Carga
 Dim strConexao As String
 Dim strCaminhoDb As String = "C:\Imobiliaria\Araujo Duarte\Pronto\"
                &"Carga Rede Pronto.mdb"
 Dim strConexao As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source = & strCaminhoDb
 Dim dr As System.Data.OleDb.OleDbDataReader
 Dim strCaminhoFt As String
 Dim strSQL As String
 Dim strResult As String = ""
 Dim oCaminhoFt As String = ""
 strSQL = "Select * from IncluirMultimidia"
 Dim objcomando As New System.Data.OleDb.OleDbCommand(strSQL,    objConexao)
 Dim RegAtual As String = ""
 Dim strRetorno As String = ""
 Dim I As Integer = 0
 objConexao.Open()
 dr = objcomando.ExecuteReader
 Dim RegEmProcesso As Integer = 0
 Dim IncluiDiretorio As Boolean = False
 Dim IncluiArquivo As Boolean = False

 For Each dt In dr
   strCaminhoFt = DirFoto _
            & Trim(dt("codigo_unidade").ToString) _
            & "\" & _
   strRetorno = ws.IncluirMultimidia(Nome_usuario, _
                                           Senha_usuario, _
                                           dt("codigo_unidade"), _
                                           dt("codigo_multimidia"), _
                                           Codigo_Filial, _
                                           dt("titulo_multimidia"), _
                                           dt("codigo_tipo_multimidia"), _
                                           dt("indicador_destaque"), "", _
                                           dt("titulo_multimidia"), _
                                           fncBase64(strCaminhoFt))