Coba di check dulu di Enterprise Managernya, pake *Connection Authentication * -nya apa, *Windows Authencation *ato *SQL Authentication.* Klo pake *Windows Authentication* coba Skript dibawah ini
Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Private Sub Form_Load() Set cn = New ADODB.Connection cn.Open "Provider=SQLOLEDB;" & _ "Data Source=Diva-serv" & _ "Initial Catalog=Koperasi" & _ *"Integrated Security = SSPI" * Set rs = New ADODB.Recordset rs.Open "select * from anggota" End Sub 2006/2/21, 9090nez <[EMAIL PROTECTED]>: > > baiknya bikin login baru aja dengan password juga... > kasih permission user id baru tsb bukan cuma sampe db nya, tapi juga sampe > ke tabel nya.. good luck > > > On 2/20/06, co_rifa <[EMAIL PROTECTED]> wrote: > > > > User Id=sa seperti Script dibawah ini : > > > > > > Dim cn As ADODB.Connection > > Dim rs As ADODB.Recordset > > > > Private Sub Form_Load() > > Set cn = New ADODB.Connection > > cn.Open "Provider=SQLOLEDB;" & _ > > "Data Source=Diva-serv" & _ > > "Initial Catalog=Koperasi" & _ > > "User Id=sa;Password=" > > Set rs = New ADODB.Recordset > > rs.Open "select * from anggota" > > End Sub > > > > > > User Id=sa (adalah User Id Default) > > Kalau anda telah merubah User Id Defaultnya maka User Id nya bukan > > sa lagi > > > > > > --- In ITCENTER@yahoogroups.com, AmiGelz <[EMAIL PROTECTED]> wrote: > > > > > > Klo nvalid authorization mah masalah koneksi kedatabasenya : > > > di MSSQL default usernya adalah 'sa' kalo passwordnya anda sendiri > > yag tau > > > kalo itu masalah permission tabel kali cuba anda cek doeloe > > > > > > > > > regards, > > > > > > AmiGelz[A.K.A]Nurma > > > > > > Pada tanggal 2/20/06, Edi <[EMAIL PROTECTED]> menulis: > > > > > > > > Saya sedang mencoba koneksi data ke sql server2000 menggunakan > > VB6, > > > > perintah yg saya gunakan seperti dibawah ini tapi selalu error > > yg pesannya > > > > sbb = Invalid authorization specification... > > > > Kira2 dimana letak salahnya, apa karena saya tidak memasukan > > User ID dan > > > > password, kalo memang betul User ID dan password apa yg harus > > saya masukkan > > > > (SQL Server atau Windows Server)... > > > > > > > > Dim cn As ADODB.Connection > > > > Dim rs As ADODB.Recordset > > > > > > > > Private Sub Form_Load() > > > > Set cn = New ADODB.Connection > > > > cn.Open "Provider=SQLOLEDB;" & _ > > > > "Data Source=Diva-serv" & _ > > > > "Initial Catalog=Koperasi" & _ > > > > "User Id=;Password=" > > > > Set rs = New ADODB.Recordset > > > > rs.Open "select * from anggota" > > > > .... > > > > .... > > > > End Sub > > > > > > > > Rgds, > > > > Edi > > > > > > > > [Non-text portions of this message have been removed] > > > > > > > > > > > > > > > > > > > > > > > > -- > > > > www.itcenter.or.id - Komunitas Teknologi Informasi Indonesia > > > > Info, Gabung, Keluar, Mode Kirim : [EMAIL PROTECTED] > > > > :: Hapus bagian yang tidak perlu (footer, dst) saat reply! :: > > > > ## Jobs: itcenter.or.id/jobs ## Bursa: itcenter.or.id/bursa ## > > > > $$ Iklan/promosi : www.itcenter.or.id/sponsorship $$ > > > > > > > > [@@] Jaket ITCENTER tersedia di http://shop.itcenter.or.id > > > > > > > > > > > > Yahoo! Groups Links > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > [Non-text portions of this message have been removed] > > > > > > > > > > > > > > > > > > > > > > > -- > > www.itcenter.or.id - Komunitas Teknologi Informasi Indonesia > > Info, Gabung, Keluar, Mode Kirim : [EMAIL PROTECTED] > > :: Hapus bagian yang tidak perlu (footer, dst) saat reply! :: > > ## Jobs: itcenter.or.id/jobs ## Bursa: itcenter.or.id/bursa ## > > $$ Iklan/promosi : www.itcenter.or.id/sponsorship $$ > > > > [@@] Jaket ITCENTER tersedia di http://shop.itcenter.or.id > > > > > > Yahoo! Groups Links > > > > > > > > > > > > > > > > > -- > > > ☻-9☺9☺n♫eZ-☻ > > > [Non-text portions of this message have been removed] > > > > > > -- > www.itcenter.or.id - Komunitas Teknologi Informasi Indonesia > Info, Gabung, Keluar, Mode Kirim : [EMAIL PROTECTED] > :: Hapus bagian yang tidak perlu (footer, dst) saat reply! :: > ## Jobs: itcenter.or.id/jobs ## Bursa: itcenter.or.id/bursa ## > $$ Iklan/promosi : www.itcenter.or.id/sponsorship $$ > > [@@] Jaket ITCENTER tersedia di http://shop.itcenter.or.id > > > Yahoo! Groups Links > > > > > > > [Non-text portions of this message have been removed] -- www.itcenter.or.id - Komunitas Teknologi Informasi Indonesia Info, Gabung, Keluar, Mode Kirim : [EMAIL PROTECTED] :: Hapus bagian yang tidak perlu (footer, dst) saat reply! :: ## Jobs: itcenter.or.id/jobs ## Bursa: itcenter.or.id/bursa ## $$ Iklan/promosi : www.itcenter.or.id/sponsorship $$ [@@] Jaket ITCENTER tersedia di http://shop.itcenter.or.id Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/ITCENTER/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/