Private Sub GridRcv()
AdoReceive.ConnectionString = Module.dbData
With AdoReceive
.CommandType = adCmdText
.RecordSource = "SELECT * from smsReceive order by id desc"
.MaxRecords = 100
.Refresh
End With
Dim rsReceive As New Recordset
rsReceive.Open "select * from smsReceive", dbData
If Not rsReceive.EOF Then
Set GridReceive.DataSource = AdoReceive
AdoReceive.Refresh
End If
End Sub
Private Sub Timer4_Timer()
Call GridRcv ' set interval 10 detik
End Sub
Kira2 seperti itu...
Gunawan doang wrote:
gimana tuh caranya ... bagi2 dong ilmunya?
--- Dedy <[EMAIL PROTECTED]> wrote:
> Eh..sorry dech dah ketemu...he..he..he..
>
> Dedy wrote:
>
> > hi guys,
> > bagaimana agar record yg ditampilkan di datagrid
> selalu update setiap
> > ada record baru yg disimpan di database
> > saya pakai Adodc sebagai Datasource,
> > sebelumnya saya dah coba pakai event Timer_time
> dgn interval 10 detik,
> > jadi setiap 10 detik adodc selalu baca record di
> database dan
> > menampilkannya di datagrid..
> >
> > thanx
> >
> >
> > Untuk keluar dari millis ini, kirim email kosong
> ke:
> > [EMAIL PROTECTED]
> >
> >
> >
> >
> >
>
------------------------------------------------------------------------
> > YAHOO! GROUPS LINKS
> >
> > * Visit your group "Programmer-VB
> >
> <http://groups.yahoo.com/group/Programmer-VB>"
on
> the web.
> >
> > * To unsubscribe from this group, send an
> email to:
> > [EMAIL PROTECTED]
> >
>
<mailto:[EMAIL PROTECTED]>
> >
> > * Your use of Yahoo! Groups is subject to the
> Yahoo! Terms of
> > Service <http://docs.yahoo.com/info/terms/>.
> >
> >
> >
>
------------------------------------------------------------------------
> >
>
>
__________________________________
Yahoo! Mail
Stay connected, organized, and protected. Take the tour:
http://tour.mail.yahoo.com/mailtour.html
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
SPONSORED LINKS
YAHOO! GROUPS LINKS
|
