Re: [Programmer-VB] Koneksi VB ke SQL Server 2000

Fri, 16 Dec 2005 22:09:02 -0800

please see insertion...

best regards
[wwn]

On 12/16/05, sulis tianto <[EMAIL PROTECTED]> wrote:
Salam kenal,
 
Hi teman2 ada yang bisa bantu memecahkan permasalahan ini gak?
Aku lagi belajar VB yang pake Database SQL Server,
aku pake Microsoft ActiveX Data Objects 2.5 Library,
dan SQL Server 2000 yang telah diaktifkan.
Setelah aku coba pada source berikut :
-----------------------------------------------------------------------
Public Sub koneksi()
    Dim rstPegawai As ADODB.Recordset
   
    Dim strCnn As String
    
    strCnn = "Provider=SQLOLEDB.1;" & _
            "Persist Security Info=False;" & _
            "User ID=sa; Initial Catalog=pubs; Data Source=(local)"
    
    Set rstPegawai = New ADODB.Recordset
   
    rstPegawai.CursorLocation = adUseClient
   
    rstPegawai.Open "employee", strCnn, , , adCmdTable
End Sub
 
Private Sub Form_Load()
    koneksi
End Sub
----------------------------------------------------------------------
 
maka muncul error dengan pesan :
 
 Login failed for user 'sa'. Reason: Not associated with a trusted SQL
 Server connection.
 
Yang ingin saya tanyakan;
- Apa penyebab error tersebut dan bagaimana solusinya?

> penyebabnya kamu  ga bisa log in ke sql server, coba ubah strCnn mu, mungkin ditambahkan password atau gunakan user id lain.

strCnn = "Provider=SQLOLEDB.1;" & _
            "Persist Security Info=False;" & _
            "User ID=sa; Initial Catalog=pubs; Data Source=.; PWD=passwordku"
   
- Mengapa user yang digunakan oleh VB untuk SQL Server adalah 'sa' ?

>  ga harus  'sa', kamu bisa pake  user apa aja selama dia authorized user.

- Apakah bila saya mengganti user tersebut berarti harus mengganti user pada
  SQL Servernya juga?

> bukan mengganti, cukup ditambahkan saja user + password baru (bisa lewat enterprise manager)

- Apa maksud dari dua baris source berikut ?
  rstPegawai.CursorLocation = adUseClient

> temporary data hasil query akan disimpan di komp  client

  rstPegawai.Open "employee", strCnn, , , adCmdTable 

>  membuat  object recordset baru,  u. yg menyimpan semua data  yg ada di tabel  employee

Terima kasih pada teman2 atas kesediaannya membaca dan memecahkan permasalahan ini. Saya tunggu solusinya. :-)



Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]


YAHOO! GROUPS LINKS



Kirim email ke