Kirjautuminen
Tehtävät
Kilpailu
4. kierros:
7.11. klo 18 – 9.11. klo 23
visualbasic .net
Miten saan ohjeman tajuamaan että sen pitäis käyttää windowsin integrated securityä.
Oon ihan aloittelija ja koitan saada ohjelman kommunikoimaan access tietokannnan kanssa sql yhteyyttä käyttäen, mutta tämmönen virhe viesti ilmantuu
Login failed for user 'sa'. Reason: Not associated with a trusted SQL Server connection
joka varmaan on peräisin just siitä että ohjlema ei tajua että sille ei tarvi antaa salsanaa tai muuta...
auta joku....
laitetaan vielä koodit jotka kusee
tästä se alkaa...
Private Sub btnEtsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEtsi.Click
Try
Dim custCB As SqlClient.SqlCommandBuilder = New SqlClient.SqlCommandBuilder(adapterResults)
Dim clsdatabase As New clsDatabase
Dim strSQL As String = ""
dsData = clsdatabase.LoadCompleteDataSet(YHTEYS)
strSQL = BuildSQLStatement()
dsResults = clsdatabase.LoadSearchDataSet(YHTEYS, strSQL)
Catch
UnhandledExceptionHandler()
End Try
End Subjatkuu tänne...
Public Class frmNäyttö
Inherits System.Windows.Forms.Form
Protected Const LAITE = "Laite"
Protected Const ASIA = "Asiakas"
Protected Const YHTEYS = "user id=;password=;initial catalog=rekisteriDBSQL;server=JAG"
Protected dsData As DataSet
Protected dsResults As DataSet
Protected adapterResults As New SqlClient.SqlDataAdapter
Sub UnhandledExceptionHandler()
'visar virhe viesti till användaren
MsgBox("Virhe on tapahtunut. Virhe numero: " & Err.Number & _
" Kuvaus: " & Err.Description & " Alkuperä: " & Err.Source)ja hyppää tänne jossa se kusee
Imports System.Data
Imports System.Data.SqlClient
Public Class clsDatabase
Sub UnhandledExceptionHandler()
'visar virhe viesti till användaren
MsgBox("Virhe on tapahtunut. Virhe numero: " & Err.Number & _
" Description: " & Err.Description & " Source: " & Err.Source)
End Sub
Function PopulateDataSetTable(ByVal strConnection As String, ByVal _
strTableName As String, ByVal strSQLorStoredProc As String, _
ByVal blnStoredProcedure As Boolean, ByRef dsDataSet As DataSet) As DataSet
Try
Dim sqlconn As New SqlClient.SqlConnection(strConnection)
sqlconn.Open()tuossa sanoo poks....
toivottavasti en unohtanut mitään koodipätkää....
hommahan hoituu tuolla lauseella kekkasin jo itekin...
vastausten tulva oli huimaava :-)
integrated security=SSPI
Itse asiassa tarkalleen kyse oli siitä, että oletusarvoisesti SQL Server vaatii yhteyden, joka tehdään koneelta joka kuuluu domainiin, jotta yhteyden muodostuksen autentikointi olisi mahdollista.
Ratkaisusi sulki tämän autentikoinnin "pois päältä".
Aihe on jo aika vanha, joten et voi enää vastata siihen.