untuk koneksi ke db
saya buat di modul.
strcon1 = "Provider=SQLOLEDB.1;" & _
" Password=ctidevnew;" & _
" Persist Security Info=True;" & _
" User ID=ctidevnew;" & _
" Initial Catalog=vicon;" & _
" Data Source= " & strIP
db1.Open strcon1
contoh query.
Private Sub FilledCustomer(sWhere As String)
Dim strSQL As String
Dim rs As New ADODB.Recordset
If InStr(1, sWhere, "'%%'", vbTextCompare) <> 0 Then Exit Sub
strSQL = "SELECT CustomerName, HomeNumber, HandPhoneNo, OtherNumber,
Address, City, Province, PostalCode, EmailAddress" & _
" From master_customer" & _
" " & sWhere
rs.Open strSQL, cn, adOpenKeyset, adLockOptimistic
With Me.Grid
.ClearFields
.RecordSource = strSQL
.Rebind
End With
rs.Close
Set rs = Nothing
End Sub
ada excecute juga.
program jalan terus.
dipake sama 26 orang.
data yang diquery jutaan.
mohon pencerahan...
--- In [email protected], "Rizky Prihanto"
<[EMAIL PROTECTED]> wrote:
>
> wow... 1Giga... itu ngga diapa-apain nambah ndiri sampe jadi 1 GB
ato
> setelah processing (nginput/display) terus2an?
>
> boleh liat salah satu potongan code nya?
>
> settingan property utk object ADODB.Connection n ADODB.Recordset
nya gimana?
>
> suer, ngga normal tuh program nya...
>
>
> --
> regards,
>
> Rizky Prihanto
> ~~~~~~~~~~~~~~~~~~~
> Office : C4 Computer Communities Club (http://www.cee-papat.com)
> Personal : http://www.software-arsitek.web.id
>
> On Dec 12, 2007 10:35 AM, xkelabu <[EMAIL PROTECTED]> wrote:
>
> > Dear VBlovers
> >
> > saya buat program menggunakan vb6 dan database sqlserver
> > coneksi mengunakan oledb
> > query di vb.
> > setelah query recordset di close.
> >
> > pertama kali program menyala saya lihat di task meneger memory
used
> > sekitar 21 MB. namun lama kelamaan memory used meningkat hingga
lebih
> > dari 1 giga. kadang hingga tampil pesan dari windowsnya virtual
memory
> > kurang.
> >
> > walaupun programnya sudah saya matikan memory used tidak turun.
> >
> > kenapa yah?
> > ada solusi gak?
> >
> > regards
> > Ardi
> >
> >
> >
>
>
> [Non-text portions of this message have been removed]
>
