Tolong pilih kategori sesuai, jenis posting (diskusi atau bukan) dan sertakan tag/topik yang sesuai seperti komputer, java, php, mysql, dll. Promosi atau posting tidak pada tempatnya akan kami hapus!
- Bagi Anda yang ingin mendaftar, baca link berikut:
http://diskusiweb.com/discussion/50491/how-to-registrasi-diskusiweb-com-baca-ini-terlebih-dahulu
- Cara menyisipkan kode program supaya tampil rapi dan terformat dengan baik di diskusiweb.com: http://www.diskusiweb.com/discussion/50415/cara-menyisipkan-kode-program-di-diskusiweb-com
- Cara posting gambar/image di post Anda: http://www.diskusiweb.com/discussion/47345/cara-menyisipkan-menyertakan-image-pada-posting/p1

Connect ke SQL Server, menggunakan NT Authentication

Halo, Saya minta tolong nih.

Saya mau bikin Report menggunakan Seagate Crystal Report 7.01 + Microsoft Visual Basic 6, dengan Database Microsoft SQL Server 2000.
Saya menghubungkan antara Report dan Database (Microsoft SQL Server 2000), menggunakan NT Authentication (bukan SQL Security).

Saya mendapatkan
Error Message -> 20536 - Unable to logon to server

Bisa bantu saya, bagaimana/kenapa hal ini terjadi?

Thanks

Comments

  • apakah username anda di domain anda sudah dimasukkan kedalam daftar user yang diperbolehkan mengakses sql server ?
  • Saya sudah buat Account User tersebut berdasarkan Domain nya.

    Saya berikan contoh codingnya

    With frmMain.crpMain
    .Reset
    .Username = UserID
    ' .Password = Password
    .LogOnServer "pdssql.dll", ServerName, DatabaseName, "", ""
    .Connect = LogOnServer(ServerName, "", "", DatabaseName)
    .DataFiles(0) = DatabaseName & ".dbo.MsProduct"
    .ReportFileName = App.Path & "\MProduct.rpt"
    .WindowTitle = "List of Product"
    .WindowState = crptMaximized
    .WindowBorderStyle = crptFixedSingle
    .WindowParentHandle = frmMain.hWnd
    .WindowShowSearchBtn = True
    .Destination = crptToWindow
    .Formulas(0) = "nUser = '" & UserID & "'"
    .Formulas(1) = "ComName = '" & ComName & "'"
    .Formulas(2) = "ComAddr = '" & ComAddr & "'"
    .Formulas(3) = "ComCity = '" & ComCity & "'"
    .Action = 1
    .ReportFileName = ""
    End With
Sign In or Register to comment.