Pak eko, udah coba pake sistem setingan tidak jadi vb harus membaca file entah itu text file or lain lain jadi bapak set di text file itu nama server yang di ingginkan nanti vb yang akan membaca nama server yang di maksud ada di mana, tapi kalau bapak maunya user yang menentukan koneksi server ada di mana juga bisa pak pake combo box pak hem caranya mungkin agak rumit sistem ini akan mencari di LAN, Dimana yang punya sql server ( asal gak di blok pake firewall pasti kebaca ).nahh bapak mau pake cara yang mana ??
T'rims Sukisno oh cara yang pertama hampir sama dgn membuat configuration file di vb.net ----- Original Message ----- From: Eko Wibowo Yudhi Setyo Nugroho To: [email protected] Sent: Saturday, December 30, 2006 7:21 AM Subject: Re: [Programmer-VB] Re: koneksi Terima kasih sebelumnya buat pa' Dicky, Saat ini saya sedang coba membuat aplikasi client server yang menggunakan SQL server, saya membuatnya dengan SQL server berada di local komputer seperti yang Bp. Dicky terangkan. Yang saya maksud jika SQL server akan diinstal sendiri dikomputer lain sedang aplikasi sudah selesai, gimana caranya agar setelah aplikasi diinstal di komputer dia bisa terhubung ke sql server yang berada dikomputer lain (pada LAN). Yang saya maksud bukan combo box tapi data combo pa', tapi hal ini sudah ketemu caranya semalam. yang masih jadi masalah sekarang adalah masalah koneksi. Terima kasih, Eko Wibowo ----- Original Message ----- From: Dicky Firmansyah To: [email protected] Sent: Saturday, December 30, 2006 5:36 AM Subject: [Programmer-VB] Re: koneksi Agar koneksinya tidak error ketika berpindah komputer. Maka buatlah nama komputer yang ada di koneksi tersebut dinamis atau cukup gunakan tanda titik ('.') pada bagian nama komputer (hal ini hanya berlaku jika server/database ada di komputer tempat aplikasi dijalankan). Berikut contohnya: "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=db_sentramebel;Data Source=." atau Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=db_sentramebel;Data Source=" & nmkomp ket: variable nmkomp didapat dari proses untuk mendapatkan nama komputer dari aplikasi dijalankan. Berikut cara untuk mendapatkan nama komputer: Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Sub cari_nmkomp() nmkomp = Space(200) GetComputerName nmkomp, Len(nmkomp) nmkomp_temp = LTrim(RTrim(nmkomp)) nmkomp = Mid(nmkomp_temp, 1, Len(nmkomp_temp) - 1) End Sub Sub cari_nmkomp bisa dijalankan pada saat aplikasi pertama kali dijalankan sebelum program mengkoneksikan dirinya dengan SQL Server. Oh..iya data combo itu maksudnya combo box bukan? kalau iya berarti codingya seperti dibawah ini: Private Sub Combo1_Click() Text1.Text = Combo1.Text End Sub Ok.. Semoga bisa membantu. Oh..iya langkah2 diatas (koneksi ke sql server) hanya untuk penggunaan server lokal. (server di pc itu sendiri). Maaf kalau kurang membantu. :-)
