Sudah pernah dibahas, termasuk solusi2 dari rekan yang lain.
Tapi saya copy kan yg ada di saya:
Function Konek(pServer, pDB, pUser, pPwd) As Boolean
Konek = True
On Error GoTo Konek_Err
bc = "PROVIDER=SQLOLEDB.1;" & _
"PERSIST SECURITY INFO=TRUE;" & _
"DATA SOURCE=" & pServer & ";" & _
"USER ID=" & pUser & ";" & _
"PASSWORD=" & Nz(pPwd, "") & ";" & _
"INITIAL CATALOG=" & pDB
' first close current connection
CurrentProject.CloseConnection
' then establish new connection
CurrentProject.OpenConnection (bc)
Konek_Exit:
Exit Function
Konek_Err:
MsgBox Err.Description, vbCritical, "Caution"
Konek = False
Resume Konek_Exit
End Function
2009/4/22 GALIH PERSADHA <[email protected]>
>
>
> TERIMA KASIH PAK HAER, INFORMASINYA SANGAT MEMBANTU
>
> SEKARANG SAYA ADA MASALAH DI KONEKSI SERVER
> BAGAIMANA CARANYA MEMBUAT FORM KONEKSI KE SERVER
> SEHINGGA KITA BISA MENENTUKAN KONEKSI KESERVER TETAPI TIDAK MENGGUNAKAN
> KONEKSI YANG ADA DI FILE--> CONECTION
>
> JADI KITA MEMILIH KONEKSI DARI FORM YANG KITA BUAT SENDIRI
>
>
> ------------------------------
> Pemerintahan yang jujur bersih? Mungkin nggak ya?
> <http://id.answers.yahoo.com/question/index;_ylt=AvNICQ7kn6q3Q3xZLe8SqyXJRAx.;_ylv=3?qid=20080714024736AAnnlu0>
> Temukan jawabannya di Yahoo! Answers!
>
>
--
Haer Talib
MVP Office Access
www.rumahaccess.com
