🚀 go-pugleaf

molte grazie .. dopo natale ti comunico se ho ottenuto i risultati :D

ciao
Livio
"Massimo" <massimo@pafin.it> ha scritto nel messaggio 
news:cqbf69$k5r$1@lacerta.tiscalinet.it...
> Non conosco ASP ma credo sia molto simile.
> Il testo seguente � copiato da un manuale che ho trovato su Internet 
> ("mysql
> per tutti di Davide Cerbo"):
> A me � servito per cominciare:
> ******************************************************
> Private Sub myodbc_ado_Click()
> 'questo esempio funziona tramite ado, quindi non dovreste aver bisogno di
> componenti aggiuntivi. Se volete altre informazioni sull'interrogazioni 
> dei
> database in Visual Basic scrivetemi, vi invier� un tutorial apposito.
> Dim conn As ADODB.Connection
> Dim rs As ADODB.Recordset
> Dim fld As ADODB.Field
> Dim sql As String
>
>  'connetti al server MySQL usando MySQL ODBC 3.51 Driver
>  Set conn = New ADODB.Connection
>  conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};"_
>                        & "SERVER=localhost;"_
>                        & " DATABASE=test;"_
>                        & "UID=venu;PWD=venu; OPTION=35"
>
>  conn.Open
>
>  'esempio di creazione di una tabella
>  conn.Execute "DROP TABLE IF EXISTS my_ado"
>  conn.Execute "CREATE TABLE my_ado(id int not null primary key, name
> varchar(20)," _
>                                 & "txt text, dt date, tm time, ts
> timestamp)"
>
>  'inserimento diretto
>  conn.Execute "INSERT INTO my_ado(id,name,txt) values(1,100,'venu')"
>  conn.Execute "INSERT INTO my_ado(id,name,txt) values(2,200,'MySQL')"
>  conn.Execute "INSERT INTO my_ado(id,name,txt) values(3,300,'Delete')"
>
>  Set rs = New ADODB.Recordset
>  rs.CursorLocation = adUseServer
>
>  'esempio di prelevamente dati
>  rs.Open "SELECT * FROM my_ado", conn
>    Debug.Print rs.RecordCount
>    rs.MoveFirst
>    Debug.Print String(50, "-") & "Initial my_ado Result Set " & String(50,
> "-")
>    For Each fld In rs.Fields
>    Debug.Print fld.Name,
>    Next
>    Debug.Print
>
>      Do Until rs.EOF
>      For Each fld In rs.Fields
>      Debug.Print fld.Value,
>      Next
>      rs.MoveNext
>      Debug.Print
>    Loop
>  rs.Close
>
>  'esempio di inserimento tramite rs
>  rs.Open "select * from my_ado", conn, adOpenDynamic, adLockOptimistic
>  rs.AddNew
>  rs!Name = "Monty"
>  rs!txt = "Insert row"
>  rs.Update
>  rs.Close
>
> 'esempio di aggiornamento tramite rs
>  rs.Open "SELECT * FROM my_ado"
>  rs!Name = "update"
>  rs!txt = "updated-row"
>  rs.Update
>  rs.Close
>
>  'esempio di selezione tramite rs
>  rs.Open "SELECT * FROM my_ado"
>  rs.MoveNext
>  rs.MoveNext
>  rs.Delete
>  rs.Close
>
>  'prelevare la tabella aggiornata dalla memoria
>  rs.Open "SELECT * FROM my_ado", conn
>    Debug.Print rs.RecordCount
>    rs.MoveFirst
>    Debug.Print String(50, "-") & "Updated my_ado Result Set " & String(50,
> "-")
>    For Each fld In rs.Fields
>      Debug.Print fld.Name,
>      Next
>      Debug.Print
>
>      Do Until rs.EOF
>      For Each fld In rs.Fields
>      Debug.Print fld.Value,
>      Next
>      rs.MoveNext
>      Debug.Print
>    Loop
>  rs.Close
>  conn.Close
> End Sub
> ********************************************
> Se ti serve tutto il manuale, te lo posso mandare sulla tua mail 
> personale.
>
> bye,
> Max
>
> "Slepland" <livio@garwspeed.com> ha scritto nel messaggio
> news:cqbcji$ide$1@lacerta.tiscalinet.it...
>> sono gli stessi che uso con asp giusto?
>>
>> come faccio.. hai un tutorial?
>>
>> "Massimo" <massimo@pafin.it> ha scritto nel messaggio
>> news:cq9i1e$j8n$1@lacerta.tiscalinet.it...
>> > Certamente,
>> > ti servono i driver:
>> > MyODBC-3.51.06.exe
>> > (o successivi)
>> >
>> > Su internet trovi istruzioni, esempi o quant'altro
>> >
>> > bye,
>> > Max
>> >
>> > "Slepland" <livio@garwspeed.com> ha scritto nel messaggio
>> > news:cq9fkq$h71$1@lacerta.tiscalinet.it...
>> >> � possibile appoggiare vb su mysql? sapete darmi quake dritta?
>> >>
>> >>
>> >
>> >
>>
>>
>
>