[VB6] Salvataggio Variabile con contenuto HTML in mysql

[pierchi]

inviato link tramite pm

grazie, vediamo se riesco a risolvere il problema..

che poi sarà una caxata mia

[SirJo]

che poi sarà una caxata mia

Questa è una:

Set art = CreateObject("ADODB.Recordset")

Io ho installato sia il VB6 sia il MySQL, perchè non mi dai un pezzo di codice funzionante così lo provo anche da me ??
Finora ho visto solo spezzoni, non ho ancora visto come fai la connessione, quale driver usi, e con quali parametri apri la connessione.

Sergio

[ciro78]

che senso ha il test che hai fatto?

[pierchi]

che senso ha il test che hai fatto?

il test è riferito ai due quote che ho fatto

Almeno si capisce che il problema apparentemente è su determinati caratteri.

[ciro78]

il test è riferito ai due quote che ho fatto

Almeno si capisce che il problema apparentemente è su determinati caratteri.

ok hai fatto le query parametriche??...grrr voglio vs6 per provare

[pierchi]

Oggi provvedo.



Tutto quello che ho postato è scritto seguendo esempi trovati in rete, ho sempre scritto in php e vb6 è semi nuovo per me.

[pierchi]

vi sto rompendo le scatole...

primo = "html 1234 size=2"
Dim strSQL As String
strSQL = "INSERT INTO prova (campo) VALUES(?)"
Dim adoCommand As ADODB.Command
Set adoCommand = New ADODB.Command
With adoCommand
.ActiveConnection = conn
.CommandType = adCmdText
.CommandText = strSQL
.Prepared = True
.Parameters.Append .CreateParameter("@campo", adVarChar, adParamInput, 50, primo)
.Execute

ricevo un errore :
uno o più errori durante l'esecuzione del comando

Non esiste una guida per le qury parametriche?

[ciro78]

vedi se questo ti aiuta

http://nuke.vbcorner.net/Articoli/VB...5/Default.aspx

[pierchi]

Private conn, rs
Private Sub Form_load()
    Set conn = CreateObject("ADODB.Connection")
    'Inizializza le variabili
    mysql_host = ""
    mysql_userid = ""
    mysql_password = ""
    mysql_database = ""
    mysql_port = ""
     
    'Crea la stringa di connessione
    connect_string = "Provider=MySqlProv;Data Source=" & Chr(34) & "server=" & mysql_host & ";DB=" & mysql_database & ";User=" & mysql_userid & ";Password=" & mysql_password & ";Option=131088; Stmt=;Port=" & mysql_port & "" & Chr(34)
    conn.Provider = "MySqlProv"
    conn.ConnectionString = connect_string
    conn.CommandTimeout = 1000
    conn.ConnectionTimeout = 1000 'Tempo in mS prima che il tentativo di connessione vada in TimeOut
    conn.CursorLocation = adUseServer
Call do_connect
End Sub

Public Sub do_connect()
   On Error GoTo Connect_Error
    
    If Not (conn.State = adStateOpen) Then
        'Evita la comparsa della finestra POPUP del provider di MySQL
        conn.Properties("PROMPT") = adPromptNever
        conn.Open 'Instaura la connessione con il Database
        Debug.Print "Connessione con il server MySQL riuscita"
    End If
    Exit Sub
    
Connect_Error:
    MsgBox "Connessione con il server MySQL " & mysql_host & " fallita", vbCritical, "Attenzione"
    
End Sub
'Termina la connessione con il server MySQL
Public Sub do_disconnect()
    If conn.State = adStateOpen Then 'Esegue solo se si connessi
        conn.Close 'Chiude la connessione con MySQL
        Debug.Print "Disconnessione da MySQL riuscita"
    End If
End Sub
'Termina l'applicazione
Private Sub Form_Unload(Cancel As Integer)
    Call do_disconnect
    Set conn = Nothing
End Sub
 
Private Sub Command1_Click()

primo = "html 1234 size=2"
    If (conn.State = adStateOpen) Then 'Esegue solo se si è connessi
        query = "INSERT INTO prova (campo) VALUES ('" & primo & "')"
        conn.Execute query
    End If
  
  Set art = CreateObject("ADODB.Recordset")
  If (conn.State = adStateOpen) Then
  query = "SELECT * FROM prova": art.Open query, conn:
  If art.RecordCount > 0 Then
  Do While Not (art.EOF) 'Esegue il ciclo fino alla fine
  Text1.Text = art("campo")
  art.MoveNext: Loop: End If: End If: Set art = Nothing
end sub

sql

CREATE TABLE IF NOT EXISTS `prova` (
  `campo` varchar(22) NOT NULL
) ENGINE=MyISAM DEFAULT CHARSET=latin1;

adesso verifico per le qury parametriche

[pierchi]

Ciao, ho seguito la guida del link che hai postato, finalmente spiegato cosa corrispondono tutte quelle stringhe.

Ma ho un problema, quando copio/incollo in VB6 ho la stringa sottostante

Set parameter = command.CreateParameter (Name, Type, Direction, Size, Value)

scritta in rosso (e selezionato la partola TYPE) con il seguente errore:

errore di compilazione, previsto espressione