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 [email protected], 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/
