VB6 lendo arquivo texto

-- english:
Opening a file in VB6 and reading its content to string variable.

-- português:
Abrindo e lendo o conteúdo de um arquivo texto para uma variável string.

-- italiano:
Aprendo un archivio nel Visual Basic 6 e leggendo il suo contenuto per una variabile string.

-- français:
Ouvrir un dossier en Visual Basic 6, liser son contenu et le sauver dans une variable.

Dim arq as String
Dim sTemp as String
Open "C:\File.txt" For Input As #1
While Not EOF(1)
Line Input #1, sTemp
arq = arq & sTemp
Wend
Close #1

Visual Basic e parâmetros em ADODB

-- english:
A little example of how to use parameter in VB6. It creates a connection to a database and insert data using parameters making it more secure.

-- português:
Um exemplo sobre o uso de parâmetros em instruções SQL no Visual Basic 6. Através de um comando de inserção no ADO, passa-se cada parâmetro necessário para um funcionamento mais seguro e, assim, menos vulnerável a injeção de SQL (SQL injection).

-- italiano:
Un esempio di come usare parametro in VB6. Passa i parametri ad una base di dati ed ai dati dell'inserto con un'istruzione di SQL che li rende più sicuri.

-- français:
Un exemple montrant l'utilisation du paramètre dans VB6. Il passe des paramètres à un database aux données d'insertion par une instruction de SQL.


Dim cn As ADODB.Connection
Dim cmd As ADODB.Command

Set cn = New ADODB.Connection
Set cmd = New ADODB.Command

sql = "INSERT INTO tab (field1, field2, campo3, campo4) "
sql = sql + "VALUES (?, ?, ?, ?)"

cmd.CommandText = sql

cmd.Parameters.Append cmd.CreateParameter("p1", adInteger, adParamInput, , value)
cmd.Parameters.Append cmd.CreateParameter("p2", adChar, adParamInput, 10, value)
cmd.Parameters.Append cmd.CreateParameter("p3", adDouble, adParamInput, , valor)
cmd.Parameters.Append cmd.CreateParameter("p4", adVariant, adParamInput, , valor)

cn.Open connString
cmd.ActiveConnection = cn
cmd.Execute
cn.Close

Set cn = Nothing

---- end ---- fim ---- fin ----