wow, klu bisa vb, bisa main main connection string. dengan connection string nya ambil dari form yang diisikan,
jelas namanya string, jadi form nya jg string, mis: budicnnstring, budicnnuser, budicnnpass, budicnndbname, budicnnsvrname dst di form. lalu pake dech ke func nya. http://ilmukomputer.org/2008/11/25/memanfaatkan-data-link-properties-untuk-membuat-connection-string/ www.connectionstrings.com/ cheers, budilaks Public Sub ConnectionStringX() Dim cnn1 As ADODB.Connection Dim cnn2 As ADODB.Connection Dim cnn3 As ADODB.Connection Dim cnn4 As ADODB.Connection ' Open a connection without using a Data Source Name (DSN). Set cnn1 = New ADODB.Connection cnn1.ConnectionString = "driver={SQL Server};" & _ "server=srv;uid=sa;pwd=pwd;database=Pubs" cnn1.ConnectionTimeout = 30 cnn1.Open ' Open a connection using a DSN and ODBC tags. Set cnn2 = New ADODB.Connection cnn2.ConnectionString = "DSN=Pubs;UID=sa;PWD=pwd;" cnn2.Open ' Open a connection using a DSN and OLE DB tags. Set cnn3 = New ADODB.Connection cnn3.ConnectionString = "Data Source=Pubs;User ID=sa;Password=pwd;" cnn3.Open ' Open a connection using a DSN and individual ' arguments instead of a connection string. Set cnn4 = New ADODB.Connection cnn4.Open "Pubs", "sa", "pwd" ' Display the state of the connections. MsgBox "cnn1 state: " & GetState(cnn1.State) & vbCr & _ "cnn2 state: " & GetState(cnn2.State) & vbCr & _ "cnn3 state: " & GetState(cnn3.State) & vbCr & _ "cnn4 state: " & GetState(cnn4.State) cnn4.Close cnn3.Close cnn2.Close cnn1.Close End Sub Public Function GetState(intState As Integer) As String Select Case intState Case adStateClosed GetState = "adStateClosed" Case adStateOpen GetState = "adStateOpen" End Select End Function --- In [email protected], Rully Arfan <rully_ar...@...> wrote: > > Mungkin maksudnya dengan bantuan form connect seperti di aplikasi > GIPustakanya bang haer menggunakan form yang di dalamnya ada code vbanya, > untuk menghunbungkan ke server, database, user id sql server dan pass sql > servernya, jadi kalau server berubah bisa tetap jalan aplikasinya, mungkin > para suhu bisa membantu, > > karena belum tau caranyanya , terpaksa d saya masih menggunakan commandbuton > dengan event : > > DoCmd.RunCommand acCmdConnection > > > Dasar.. > > plisss dong suhu and master bantu kami yang nwebie.. > > > salam > > rully newbie banget.... > > > > > ________________________________ > Dari: budi laksamana <budil...@...> > Kepada: [email protected] > Terkirim: Rabu, 11 Maret, 2009 14:03:57 > Topik: [belajar-access] Re: Bagaimana Membuat Link Untuk ADP > > > MSDE di install, di komputer lain (catat nama komputer atau IP address). > Dari komputer lain, buat connection ke komputer ini, isi nama server/ip, > database, password sa nya. > > cheers, > BL > > Ensure that the Access 2002 database project references the MSDE 2000 > database on the remote computer > With the NorthwindSQL. adp file still open in Access, on the File menu, click > Connection. The Data Link Properties dialog box appears. > On the Connection tab, make sure that the server name in the Select or enter > a server name box, the database login parameters, and the database name in > the Select the database on the server list are correct, and then click OK. > Close the NorthwindSQL. adp file and quit Access. > > --- In belajar-access@ yahoogroups. com, sodikin vk <sodikin_vk@ ...> wrote: > > > > Saya sedang belajar membuat Access Project dengan database MSDE. Akan > > tetapi saya kesulitan ketika saya harus membuat link ke komputer lain. Para > > suhu yang baik hati tolong beri pencerahan kepada saya. > > Terima kasih > > > > > > New Email names for you! > > Get the Email name you've always wanted on the new @ymail and > > @rocketmail. > > Hurry before someone else does! > > http://mail. promotions. yahoo.com/ newdomains/ aa/ > > > > > > > > Jatuh cinta itu seperti apa ya rasanya? Temukan jawabannya di Yahoo! > Answers! http://id.answers.yahoo.com >
