Mungkin seperti ini:
Dim cnn As New ADODB.Connection
Dim strConnect As String
strConnect = "DRIVER={SQL
SERVER};SERVER=PC_ANESS;DATABASE=DB_ANESS;UID=USER_SQL_SERVER_ANESS;PWD=PASS
WORD_ANESS"
'contohnya
'strConnect=DRIVER=(SQL
SERVER);SERVER=PS001;DATABASE=DB_LATIHAN;UID=sa;PWD=''"
cnn.ConnectionString = strConnect
cnn.Open
cnn.Execute "DBCC SHRINKDATABASE(NAMA_DBMU)", False, True
Set cnn = Nothing
Ganti PC_ANESS dengan nama SERVER
DB_ANESS dgn nama DATABASE
UID_SQL_SERVER_ANESS dgn nama login ke SQL Server , misalnya sa
PASSWORD_ANESS dgn password dari login tsb.
Salam Hangat dan Jabat Erat
EdyWiyono
_____
From: programmer-vb@yahoogroups.com [mailto:programmer...@yahoogroups.com]
On Behalf Of Anez Story
Sent: Thursday, June 17, 2010 10:10
To: programmer-vb@yahoogroups.com
Subject: Re: [programmer-vb] Compact Sql Server 2005
dear johan max,
iya ada. pesan nya :
compile error :
sub or function not defined
tapi kalau saya coba jalankan di query analyzer di sql server 2005 sukses..
_____
From: johan max <johans...@yahoo.com>
To: programmer-vb@yahoogroups.com
Sent: Wed, June 16, 2010 7:45:57 PM
Subject: Re: [programmer-vb] Compact Sql Server 2005
Ada pesan kesalahan ?
_____
From: Anez Story <anez_st...@yahoo. com>
To: programmer-vb@ yahoogroups. com
Sent: Thu, June 17, 2010 8:02:26 AM
Subject: Re: [programmer- vb] Compact Sql Server 2005
dear johan max,
terima kasih atas tanggapan nya..
saya sudah coba jalanin lewat vb 6 kok ga bs ya?
mohon pencerahan nya..
_____
From: johan max <johans...@yahoo. com>
To: programmer-vb@ yahoogroups. com
Sent: Wed, June 16, 2010 12:20:55 PM
Subject: Re: [programmer- vb] Compact Sql Server 2005
DBCC SHRINKDATABASE( NAMADATABASE) ,.
harus dba atau sysadmin atau storageadmin
_____
From: Anez Story <anez_st...@yahoo. com>
To: Programmer VB <programmer-vb@ yahoogroups. com>
Sent: Wed, June 16, 2010 10:17:36 AM
Subject: [programmer- vb] Compact Sql Server 2005
dear all,
ada yang tau cara compact database sql server 2005 melalui coding vb 6?
thanks
best regrads,
story
