Coba cek koneksinya....
Perhatikan di Private Sub form_load()
pada perintah conn.open "TEMAN" sepertinya bukan buka koneksi ke
database tetapi buka recordset ke table teman.
> Private Sub Command1_Click()
> Dim SQL As String
> SQL = "Insert into Kawan(Panggilan,NamaLengkap)" & _
> "Value('Yan','Dwiyan')"
>
> CONN.Execute (SQL) <-- Error In here
> Call kosong
> End Sub
> Private Sub form_load()
> Set CONN = New ADODB.Connection
> CONN.Open "Teman"
> End Sub
>
> Private Sub from_unload(cancel As Integer)
> CONN.Close
> Set CONN = Nothing
> End Sub
>
> Sub kosong()
> Text1.Text = ""
> Text2.Text = ""
>
> End Sub
>
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-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/
