🚀 go-pugleaf

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?
> >>
> >>
> >
> >
>
>