mudah2an ini mbantu :
Dim Conn As New ADODB.Connection
Conn.Open "C:\Siswa.mdb"
Str1="INSERT INTO tb_input ( nama, alamat ) VALUES ( '"&
txtnama.Text &"', '"& txtalamat.Text &"' )"
Conn.Execute Str1
salam
cahyo
--- In [email protected], aan djuhani <[EMAIL PROTECTED]> wrote:
>
> 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 --------------------~-->
Great things are happening at Yahoo! Groups. See the new email design.
http://us.click.yahoo.com/TISQkA/hOaOAA/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/
