berikut source codenya: gw gak tau banyak soal ini VB dah banyak yang lupa gw
juga baru nih gw Autoit oke lah
Query lu gan ti <0'_Then
dim rsCheckUser as new ADODB.recordset
Set rsCheckUser = Nothing
rsCheckUser. Open "Select * From sys.sql_logins Where name = 'user_test' ",
DB2005, adOpenStatic, adLockReadOnly
If rsCheckUser. RecordCount < 1 Then
MsgBox "User Name [user_test] tidak ditemukan... ", vbExclamation,
"Message"
GoTo Exit_Function
else
'Lanjutkan ke validasi lainnya
End
If
Lebih Bersih, Lebih Baik, Lebih Cepat - Rasakan Yahoo! Mail baru yang
Lebih Cepat hari ini! http://id.mail.yahoo.com
