Coba pake yang sederhana ini :

dim cn as new ADODB.Connection

cn.connectionstring="......."
cn.cursor = adUseClient --> ini agak lupa coba dicek sendiri
cn.Open

cn.execute (sql) --> sql = sintak SQL

sedang untuk sintak sql nya ya pake : "INSERT INTO Tabel(...)
Values(..).." baca buku ttg SQL ya...


> Haloo rekan-rekan
>   Mohon bantuannya dooong
>
>   Gimana cara membuat listing Simpan dgn perintah SQL, selama ini
>   saya menggunakan listing seperti dibawah ini :
>   -----------------------------------
>   nama database pada Acces = siswa.mdb
>   nama tabel = tb_input
>   Private Sub cmdsimpan_Click()
>      Adodc1.RecordSource = "select * from tb_input"
>      Adodc1.Refresh
>         With Adodc1.Recordset
>           .AddNew
>           !nama = txtnama.Text
>           !alamat = txtalamat.Text
>           .Update
>         End With
>         txtnama.Text = ""
>         txtalamat.Text = ""
>         txtnama.SetFocus
>   End Sub
>   -----------------------------------
>   Terima kasih sebelumnya
>   Aan
>
>
>
>
>
> ---------------------------------
> Sneak preview the  all-new Yahoo.com. It's not radically different. Just
> radically better.
>
> [Non-text portions of this message have been removed]
>
>




------------------------ Yahoo! Groups Sponsor --------------------~--> 
Something is new at Yahoo! Groups.  Check out the enhanced email design.
http://us.click.yahoo.com/SISQkA/gOaOAA/yQLSAA/zCsqlB/TM
--------------------------------------------------------------------~-> 

Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]

Forum ini berkembang dengan pesat, jika anda memiliki
dedikasi dan waktu, silahkan mengaplikasikan diri
menjadi moderator. 
Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/indoprog-vb/

<*> To unsubscribe from this group, send an email to:
    [EMAIL PROTECTED]

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/
 



Kirim email ke