--- 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]
>
Jawaban :
Dari Mas Amin (nama panggilan kesayangan)
Saya sarankan hindari penggunaan kontrol ADODC jika membuat program
menggunakan ADO. pakai saja library ADO. potongan program berikut
semoga bisa bermanfaat.
langkah membuatnya sebagai berikut :
1. Dari menu Project-->Pilih References...
2. Pilih Microsoft ActiveX Data Objects 2.x Library
(pilih versi library)
3. Kemudian tambahkan satu buah module ke dalam project, kemudian
tuliskan kode berikut :
Option Explicit
Public koneksi As New ADODB.Connection
Public strSQL As String
Public Sub bukaKoneksi()
koneksi.CursorLocation = adUseClient
koneksi.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Persist Security Info=false;" _
& "Data Source =D:\Data\Data.Mdb"
koneksi.Open
If Not koneksi.State = adStateOpen Then
MsgBox "KONEKSI KE SERVER GAGAL"
End
Exit Sub
End If
End Sub
Public Sub tutupKoneksi()
If koneksi.State = adStateOpen Then
koneksi.Close
Set koneksi = Nothing
End If
End Sub
4. Kemudian anda dapat menambahkan kode berikut dalam form anda
Private Sub Form_Load()
If koneksi.State <> adStateOpen Then bukaKoneksi
End Sub
Private Sub Form_Unload(Cancel As Integer)
If koneksi.State = adStateOpen Then tutupKoneksi
End Sub
5. Pada tombol simpan berikan perintah berikut :
strSQL="INSERT INTO rBiodata(NIK,Nama,Alamat) " _
& "VALUES('" & NIK.Text _
& "','" & Nama.Text _
& "','" & Alamat.Text & "')"
koneksi.Execute strSQL
------------------------ 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/
