Menggantikan Dialog Password SQL server dengan Form di Link Tabel MS Access. ---------------------------------------------------------------------------------------------------------- Jika kita menggunakan Access dan melakukan Koneksi Link Tabel ke SQL server Via ODBC, Misal Konek ke Database Pembelian berisi Tabel beli,itembeli,Master barang. Saat kita buka Tabel Beli , akan mucul dialog user Name dan Password yg berasal dari SQL. Berikut salah satu cara menangkap ke Form : 1.Koneksi Link ke Database Pembelian Via ODBC
2. Dialog ini mucul ketika kita klik table Beli Jika Kita Membaca lebih dari Satu Database, maka sebanyak Database yang kita baca akan muncul seperti Dialog Nomer dua (2) sebanyak Database yang kita buka. Berikut salah satu cara ( Pasti ada banyak cara yang lain ) Menghilangkan dialog Passord SQL Buat Forms Untuk Manipulasi Password Text2 Text4 2.Buat Tabel Daftar User terdiri dari field User PasswordAplikasi Login SQL Password SQL Yudi 123 sa sysadmin ComboBox UserLogin RecordSource : diisi Daftar user, tapi tampilkan saja UserName 3. Lalu di tombol Login Masukan Script ini If IsNull(Text2) Then MsgBox "Nama operator harus diisi...!", vbOKOnly + vbInformation, "Maaf..." Exit Sub End If If Nz(Text4, "") <> Text0.Column(4) Then MsgBox "Anda tidak berhak masuk dalam sistem ini...!", vbOKOnly + vbInformation, "Maaf..." Exit Sub Text4.SetFocus End If ‘ Misal ini kita baca Database Beli ‘ Kita cukup membuat satu koneksi table yang lain sudah bisa di buka DoCmd.DeleteObject acTable, "Beli" DoCmd.TransferDatabase acLink, "ODBC Database", "ODBC;DSN=Pembelian;UID=" & Text0.Column(1) & ";PWD=" & Text0.Column(3) & ";DATABASE=Pembelian acTable, "dbo.beli", "beli" ‘ Ini untuk Baca Database FInancial DoCmd.DeleteObject acTable, "Rekening" DoCmd.TransferDatabase acLink, "ODBC Database", "ODBC;DSN=Financial;UID=" & Text0.Column(1) & ";PWD=" & Text0.Column(3) & ";DATABASE=Financial", acTable, "dbo.rekening", "rekening" ‘ Buka halam utama DOcmd.openform”Utama” Catatan : - Password Sql Sebaiknya di seting untuk masing2 user , agar berbeda,sesuai dengan Hak Aksesnya.Dan Tabel User sebaiknya di panggil ketika form login di buka, sehingga daftar user tidak tampak ketika mode Desain. - Atau Password sql di buat sama, baru hak akses di atur di aplikasi Selamat Mencoba --- Pada Sen, 24/11/08, Edy WIYONO <[EMAIL PROTECTED]> menulis: Dari: Edy WIYONO <[EMAIL PROTECTED]> Topik: Re: [belajar-access] Password SQL SERVER dari Form Access Kepada: [email protected] Tanggal: Senin, 24 November, 2008, 10:18 AM 'From Internet Dim objConn as ADODB.Connection Dim objRS as ADODB.Recordset Dim strConn as String Dim strSQL as String Set objConn = New ADODB.Connection Set objRS = New ADODB.Recordset 'Create a connection string. strConn = "Provider=SQLOLEDB; Data Source=MyServer; " & _ "Initial Catalog=Northwind; User Id=MyId;Password= 123aBc;" 'You can find OLEDB providers and connection syntax for all kinds of 'other data sources including text files. 'The following string is equivalent to the first used for access to 'SQL Server: strConn = "Provider=SQLOLEDB; Server=MyServer; " & _ "Database=Northwind ;User Id=MyId;Password= 123aBc;" objConn.Open strConn 'will open the database connection. 'An alternate way to open the connection is: With objConn .ConnectionString = strConn .ConnectionTimeout = 120 .CommandTimeout = 120 .Open End With 'The ability to change connection properties is 'a major reason to explicitly create a Connection object. 'This can also be done without the connection string as: With objConn .Provider = "SQLOLEDB" .DefaultDatabase = "Northwind" .Properties( "Data Source") = "MyServer" .Properties( "User Id") = "MyId" .Properties( "Password" ) = "123aBc" .Open End With 'Lets create the simplest possible SQL we want to execute. strSQL = "Select * from tbAddresses " 'You can now open the recordset. With objRS .Open strSQL, objConn End With 'or objRS.Open strSQL, objConn 'or without using the connection object objRS.Open strSQL, strConn, adOpenForwardOnly 'See documentation on ADO to understand the cursor type options '(such as adOpenForwardOnly) . 'You can now use the data in objRS. '===== 'Be sure you close and destroy your objects. objRS.Close objConn.Close Set objConn = Nothing Set objRS = Nothing ----- Original Message ----- From: "Abdurrahman Suryadi" <abduh_suryadi@ yahoo.co. id> To: <belajar-access@ yahoogroups. com> Sent: Monday, November 24, 2008 01:15 Subject: [belajar-access] Password SQL SERVER dari Form Access > Assalamu'alaikum Wr. Wb. > > Teman-teman, bagaimana caranya mengintegrasikan password yang kita buat > sendiri di form dengan link ODBC yang kita arahkan ke SQL Server? > Sehingga kita tidak melihat lagi login asli dari ODBC itu. > Note: Tidak memakai trusted connection. > > Syukron atas jawabannya > > Wassalamu'alaikum Wr. Wb. > > > ___________________________________________________________________________ Nama baru untuk Anda! Dapatkan nama yang selalu Anda inginkan di domain baru @ymail dan @rocketmail. Cepat sebelum diambil orang lain! http://mail.promotions.yahoo.com/newdomains/id/
