+ Rispondi al Thread
Pagina 1 di 2 12 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 16

Discussione: Msinet.ocx o VisualBasic 5 implicazioni per la distribuzione di un Db

  1. #1
    SCvanni ora è in linea Scolaretto
    Post
    376

    Msinet.ocx o VisualBasic 5 implicazioni per la distribuzione di un Db

    Salve,
    sto testando un db che richiederebbe il riferimento mancante di Msinet.ocx o l'istallazione di VisualBasic 5 express.

    dovendo cedere in uso il mio Db quali ostacoli potrei trovare?
    Nello specifico vorrei capire :
    1)il componente Msinet.ocx, mi pare ma chiedo conferma, debba essere installato e registrato su ogni macchina?
    2)Msinet.ocx e VisualBasic 5 express sono alternativi? se si quale mi consigliate e quali problemi mi si potrebbero
    presentare in futuro?

    Grazie anticipate a chi vorrà rispondere.

    Saluti.
    Quando avete finito tutte le vostre risorse consultate questo forum!

  2. #2
    L'avatar di gibra
    gibra non è in linea Amanuense
    Luogo
    Breganze (VI)
    Post
    5,985
    Quote Originariamente inviato da SCvanni Visualizza il messaggio
    1)il componente Msinet.ocx, mi pare ma chiedo conferma, debba essere installato e registrato su ogni macchina?

    Quote Originariamente inviato da SCvanni Visualizza il messaggio
    2)Msinet.ocx e VisualBasic 5 express sono alternativi?
    No, oltretutto "VisualBasic 5 express" non esiste.

  3. #3
    L'avatar di AntonioG
    AntonioG non è in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Luogo
    Roma
    Post
    15,903
    Blogs
    5
    Futuro con VB5 ? Scherzi ?
    Avvisi generali e importanti, a pena CHIUSURA thread e/o BAN
    Il crossposting è vietato.
    Le richieste di "pappa pronta" sono vietate.
    Utilizzate i tag CODE per il codice.
    Leggere il Regolamento per chiarimenti PRIMA di creare nuovi thread.
    Utilizzare sempre i PM per comunicare con i moderatori.
    Non mi contattate in PM per problemi di software, usate il forum

  4. #4
    SCvanni ora è in linea Scolaretto
    Post
    376
    Grazie approfondisco.
    Quando avete finito tutte le vostre risorse consultate questo forum!

  5. #5
    L'avatar di AntonioG
    AntonioG non è in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Luogo
    Roma
    Post
    15,903
    Blogs
    5
    Ma non è che volevi dire Visual Basic 2005 ?
    Avvisi generali e importanti, a pena CHIUSURA thread e/o BAN
    Il crossposting è vietato.
    Le richieste di "pappa pronta" sono vietate.
    Utilizzate i tag CODE per il codice.
    Leggere il Regolamento per chiarimenti PRIMA di creare nuovi thread.
    Utilizzare sempre i PM per comunicare con i moderatori.
    Non mi contattate in PM per problemi di software, usate il forum

  6. #6
    SCvanni ora è in linea Scolaretto
    Post
    376
    Quote Originariamente inviato da AntonioG Visualizza il messaggio
    Ma non è che volevi dire Visual Basic 2005 ?
    Leggo e riferisco:
    codice:
    También debes tener la referencia a Microsoft Internet Transfer Control (Msinet.ocx). 
    Si no puedes registrar dicho control. Instala Visual Basic 5 Express
    Il Db è una demo di origine spagnola scaricato un po di tempo addietro con il proposito di provarlo non fornisco il link
    perchè non lo conosco,lo stavo testando per curiosità.

    La cosa che mi lascia perplesso è quando l'autore dice "Si no puedes registrar dicho control" non afferro le motivazioni
    di tale affermazione.

    Facendo delle ricerche su Google pare che il componente (Msinet.ocx) qualche problema lo crea,per cui visto che le uniche persone delle quali mi fido sono gli utenti e le competenze di questo forum, mi sono premurato a chiedere lumi.

    Ps all'interno del codice leggo qualche 2005 ma l'avvertenza dice quanto sopra.

    Grazie a tutti
    Quando avete finito tutte le vostre risorse consultate questo forum!

  7. #7
    Phil_cattivocarattere non è in linea Scribacchino
    Luogo
    Verona-Mantova
    Post
    1,556
    Quote Originariamente inviato da SCvanni Visualizza il messaggio
    Leggo e riferisco:
    codice:
    También debes tener la referencia a Microsoft Internet Transfer Control (Msinet.ocx). 
    Si no puedes registrar dicho control. Instala Visual Basic 5 Express
    Intervengo pur non avendo la soluzione a portata di mano per l'intera questione del thread.
    Probabilmente si tratta di un db un po' datato, in cui sono stati inseriti messaggi d'errore personalizzati e l'autore ha dimenticato un "200" prima del 5. Perché come ha fatto notare Gibra, Visual Basic 5 Express non esiste. Di certo esiste VB Express 2005 (o almeno esisteva, non so se è ancora scaricabile). Non credo che il progetto sia così vecchio da tirare in ballo Visual Basic (non Express) 5.
    Quote Originariamente inviato da SCvanni Visualizza il messaggio
    La cosa che mi lascia perplesso è quando l'autore dice "Si no puedes registrar dicho control"
    Anche per noi è difficile capire perché, non avendo il codice da analizzare. Probabilmente non trova il file Msinet.ocx dove si aspetta che sia e non riesce nemmeno a fare un "Regsvr32.exe", ecco che come soluzione propone l'installazione di VB Express 2005 che probabilmente tra le altre cose contiene quel componente e permette al db di trovarlo già registrato e/o di registrarlo.
    Non conosco il progetto però... installare un VB Express intero (qualsiasi sia la versione) per un file / riferimento... mi sembra che sia il caso di pensarci bene. Ma se questo è l'unico modo per avere quel componente... (considerazione personale che non ha fondamento tecnico). Oppure ancora la presenza di VB Express consente di percorrere una strada diversa in assenza completa di Msinet.ocx. Siccome i forse cominciano a diventare troppi, mi fermo.
    Ultima modifica di Phil_cattivocarattere; 14-02-2018 12:33 

  8. #8
    L'avatar di willy55
    willy55 non è in linea Scribacchino
    Post
    647
    Per l'installazione del componente MsInet.OCX puoi leggere questo thread:
    https://social.technet.microsoft.com...w8itproinstall

    In merito al Visual Basic 2005 Express Edition si può vedere qui:
    https://www.microsoft.com/it-it/down...ls.aspx?id=804
    Visual Basic 2005 Express Edition Pocket | Apogeonline
    MPX Quick Start Guide: Visual Basic Express Installation
    Willy

  9. #9
    SCvanni ora è in linea Scolaretto
    Post
    376
    Buona sera a tutti e grazie a willy55 e Phil

    Mi spiace non poter pubblicare l'autore del codice ne il lik da dove ho prelevato il db di prova
    Ecco il codice
    codice:
    Option Compare Database
    Option Explicit
    Dim AuthCode As String
    Dim Responded As Boolean
    Dim Response As String
    Dim EventCode As String
    Dim tzoffset As String
    Private Sub btnAddEvent_Click()
    Dim strURL As String, strFormData As String, strHeaders As String
    Dim myEmail As String, myPassword As String, mySource As String
    'Por si acaso guardo el registro
    On Error GoTo btnAddEvent_Click_Error
    DoCmd.RunCommand acCmdSaveRecord
    'asigno valores
    myEmail = txtEmailAddress
    myPassword = txtPassword
    mySource = "ejemplo eventos google"
    'Primero necesitamos autentificar el usuario titular de la cuenta de Google
    strURL = "https://www.google.com/accounts/ClientLogin"
    strFormData = "Email=" & myEmail & "&Passwd=" & myPassword & "&source=" & mySource & "&service=cl"
    strHeaders = "Content-Type:application/x-www-form-urlencoded"
    Inet1.Execute strURL, "POST", strFormData, strHeaders
    'Esperar a la respuesta del servidor debe incluir el modo de autenticación
    Responded = False
    Do Until Responded = True
        DoEvents
    Loop
    'Garantizar que la contraseña es correcta para Google
    If InStr(Response, "BadAuthentication") Then    'Si la contraseña no vale
        MsgBox "Google ha rechazado la contraseña. Confirma el e-mail y el password y prueba otra vez.", vbCritical, "Error"
        Exit Sub
    End If
    AuthCode = Right(Response, Len(Response) - InStrRev(Response, "Auth=") - 4)
    EventCode = getEventCode
    strURL = "http://www.google.com/calendar/feeds/default/private/full"
    strFormData = EventCode
    strHeaders = "Authorization: GoogleLogin auth=" & AuthCode & _
        "Content-Type:application/atom+xml"
    Responded = False
    Inet1.Execute strURL, "POST", strFormData, strHeaders
    'Esperar a la respuesta del servidor, debe confirmar
    Do Until Responded = True
        DoEvents
    Loop
    If (InStr(Inet1.GetHeader, "201 Created") > 0) Then
        MsgBox "El evento ha sido insertado, comprueba tu calendario Google el evento debería estar allí!", , "Correcto"
    Else
        MsgBox "El evento NO ha sido insertado. Verifica los datos y prueba de nuevo." & vbCrLf & Inet1.GetHeader, vbCritical, "Error"
    End If
    On Error GoTo 0
    Exit Sub
    btnAddEvent_Click_Error:
        MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure btnAddEvent_Click of Documento VBA Form_GoogleCalendar"
    End Sub
    Private Sub btnExit_Click()
    DoCmd.Close
    End Sub
    Private Sub Etiqueta24_Click()
    Dim abrir As String
    On Error GoTo Etiqueta24_Click_Error
    abrir = "http://code.google.com/apis/calendar/"
    FollowHyperlink abrir
    On Error GoTo 0
    Exit Sub
    Etiqueta24_Click_Error:
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Etiqueta24_Click of Documento VBA Form_GoogleCalendar"
    End Sub
    Private Sub Etiqueta27_Click()
    Dim abrir As String
    abrir = "https://www.google.com/accounts/ServiceLogin?service=cl&passive=true&nui=1&continue=http%3A%2F%2Fwww.google.com%2Fcalendar%2Frender%3Ftab%3Dwc&followup=http%3A%2F%2Fwww.google.com%2Fcalendar%2Frender%3Ftab%3Dwc"
    FollowHyperlink abrir
    End Sub
    Private Sub Form_Current()
    Dim usuario As String
    Dim pass As String
    On Error GoTo Form_Current_Error
    usuario = DLookup("txtEmailAddress", "Cuentas", "IdCuenta = " & 1)
    pass = DLookup("txtPassword", "Cuentas", "IdCuenta = " & 1)
    Me.txtEmailAddress = Nz(usuario, "")
    Me.txtPassword = Nz(pass, "")
    On Error GoTo 0
    Exit Sub
    Form_Current_Error:
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Form_Current of Documento VBA Form_GoogleCalendar"
    End Sub
    Private Sub Inet1_StateChanged(ByVal State As Integer)
    Dim vtData As Variant
    Dim outputString As String
    Select Case State
    Case icError
    MsgBox "Ha ocurrido un error. Comprueba que el servidor de la conexión a Internet funciona.", vbCritical, "Error"
    Case icResponseCompleted
    vtData = Inet1.GetChunk(1024, icString)
    Do While LenB(vtData) > 0
    outputString = outputString + vtData
    vtData = Inet1.GetChunk(1024, icString)
    Loop
    Response = outputString
    Responded = True
    End Select
    End Sub
    Private Function getEventCode() As String
    Dim formattedDate As String
    Dim formattedDate1 As String
    'formatear fecha a yyyy-mm-dd
    formattedDate = Format(txtDate, "yyyy-mm-dd")
    formattedDate1 = Format(txtDatefin, "yyyy-mm-dd")
    getEventCode = "<entry xmlns='http://www.w3.org/2005/Atom'" & vbCrLf & _
    "xmlns:gd='http://schemas.google.com/g/2005'>" & vbCrLf & _
      " <category scheme='http://schemas.google.com/g/2005#kind'" & vbCrLf & _
      "term='http://schemas.google.com/g/2005#event'></category>" & vbCrLf & _
      " <title type='text'>" & txtEventName & "</title>" & vbCrLf & _
      "<content type='text'>" & txtDescription & "</content>" & vbCrLf & _
      "<author>" & vbCrLf & _
        "<name>" & txtYourName & "</name>" & vbCrLf & _
        "<email>" & txtEmailAddress & "</email>" & vbCrLf & _
      "</author>" & vbCrLf & _
      "<gd:transparency" & vbCrLf & _
        "value='http://schemas.google.com/g/2005#event.opaque'>" & vbCrLf & _
      "</gd:transparency>" & vbCrLf & _
      "<gd:eventStatus" & vbCrLf & _
        "value='http://schemas.google.com/g/2005#event.confirmed'>" & vbCrLf & _
      "</gd:eventStatus>" & vbCrLf & _
      "<gd:where valueString='" & txtLocation & "'></gd:where>" & vbCrLf & _
      "<gd:when startTime='" & formattedDate & "T" & txtTimeFrom & tzoffset & "'" & vbCrLf & _
        "endTime='" & formattedDate1 & "T" & txtTimeTo & tzoffset & "'><gd:reminder minutes='" & txtRecordatorio & "' method='email' /></gd:when>" & vbCrLf & _
    "</entry>"
    End Function
    Se vado a verificare i riferimenti leggo:

    Manca: Microsoft Internet Transfer Control 6.0 (Sp4)

    ed Evidenziato:
    Microsoft Visual Basic for extensibility 5.3
    Quando avete finito tutte le vostre risorse consultate questo forum!

  10. #10
    L'avatar di willy55
    willy55 non è in linea Scribacchino
    Post
    647
    Il componente MsInet.OCX fornisce Inet (Internet Transfer Control) ove è possibile connettersi ad un sito web, che impieghi i protocolli
    HTTP (HyperText Transfer Protocol) o FTP (File Transfer Protocol) in modo da dialogare per ricevere o trasmettere dati.
    Per ulteriori esempi di impiego si possono vedere i seguenti link:
    https://msdn.microsoft.com/en-us/lib...(v=vs.60).aspx
    ftp da vba

    Il componente era presente in vari applicativi Microsoft: (Visual Basic 5.0, 6.0, Office 2000 Developer, Visual FoxPro 6.0, Visual C++ 5.0, 6.0)
    OfficeOne: Download File Using FTP
    e dalla descrizione dei riferimenti mancanti è probabile che sia appunto il Visual Basic 5.3.

    Per superare i riferimenti mancanti, qualora non si voglia installare l'intero applicativo, e si ha la disponibilità di MsInet.OCX, si può registrare esclusivamente tale componente, tenendo presente il sistema operativo impiegato (32 o 64 bit) e la appropriata directory di impiego; come riportato in queste discussioni:
    https://answers.microsoft.com/en-us/...6-fd5aa0e32337
    https://social.technet.microsoft.com...w8itproinstall
    https://social.msdn.microsoft.com/Fo...orum=vbgeneral
    Willy

+ Rispondi al Thread
Pagina 1 di 2 12 ultimoultimo

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi