Connectie naar SQL server 2005 in VB6.0 met een .ini file

[LennertDD]

Is het eigenlijk mogelijk van een connectie te maken naar mijn SQL server 2005 DB door middel van een .ini file

Op het moment heb ik dit in mijn ini file staan maar dit werkt niet:

[DATABASE]
PATH=C:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\Data\
;PATH=C:\Program Files\JTMT\dataBases\
INI=testDataLocal.ini
NAME=testDataLocalConvertion.mdf

alvast bedankt

[MAX3400]

Wat werkt niet? Je geeft geen foutmeldingen noch enige info. Volgens mij zit je ook lokaal op de SQL-server te werken aangezien je absolute paden hebt gebruikt.

Elders op internet zag ik hele connection-strings staan waaronder port-number, user, password, catalog etc; zijn deze variabelen niet van toepassing op jouw server/applicatie?

[LennertDD]

De error is dat hij de file niet kan vinden terwijl de benamingen en het pad klopt.
Ik gebruik die sql server lokaal
User en passwoord hoef ik niet te gebruiken omdat ik trusted connection gebruik

Hoe kan ik dan ook die port mee in de .ini file zetten?

[itsalwaysme]

Hoe open je de connectie? Met welk programma/sourcecode/.....?

[LennertDD]

vb6.0

[itsalwaysme]

Heb je al op google gekeken?

voorbeeld

[LennertDD]

Het gaat hier niet om om een gewoon een connectie te maken in vb6.0 ik wil een connectie via een .INI file

[itsalwaysme]

LennertDD schreef op vrijdag 20 januari 2012 @ 10:46:
Het gaat hier niet om om een gewoon een connectie te maken in vb6.0 ik wil een connectie via een .INI file

Ja dan lees je toch gewoon de ini file uit in de VB6 code?

Je kan niet op de ini-file klikken en dan verwachten dat er dan een db-connectie wordt opgebouwd. Daar moet je wel wat voor doen.

[LennertDD]

Dit is het net dat doet mijn code ook maar dan geeft hij aan dat hij de DB niet kan vinden

[itsalwaysme]

LennertDD schreef op vrijdag 20 januari 2012 @ 10:51:
Dit is het net dat doet mijn code ook maar dan geeft hij aan dat hij de DB niet kan vinden

mss moet je je code dan eens posten.
Want wij kunnen natuurlijk niet verzinnen wat jij gecodeerd hebt.

[LennertDD]

code:

Private Sub iDataBase_connect(ByVal enabled As Boolean, Optional ByVal ConnType As Integer = 1)
    If enabled = True Then
        Log 301, "open DataBase :  " & mvarDataBaseFile.lDir & mvarDataBaseFile.lName
            mvarCn.ConnectionString = "DSN=SQL server den echte;APP=Visual Basic;WSID=EDGML0801004;DATABASE=" & mvarDataBaseFile.lName & ";Trusted_Connection=Yes"
            mvarCn.Mode = ConnType
            mvarCn.Open
            mvarRecordset.Add "SELECT * FROM TestPlan", mvarCn, "TestPlans"
            mvarRecordset.Add "SELECT * FROM TestCases", mvarCn, "TestCases"
            mvarRecordset.Add "SELECT * FROM TestIterations", mvarCn, "TestIterations"
    Else
        If mvarCn.State <> 0 Then
            'connection already disabled
            mvarCn.Close
        End If
    End If
End Sub

En ik krijg nu de error cannot open database "databasenaam" requested by the login. The login failed

[ Voor 5% gewijzigd door LennertDD op 20-01-2012 11:38 ]

[itsalwaysme]

En weet je zeker dat je mvarDataBaseFile.lDir en mvarDataBaseFile.lName goed gevuld worden?
maw lees je je ini-file wel goed uit? Heb je al een keer met de debugger gekeken? Weet je zeker dat je de connectionstring goed opbouwt?
En ik zie je de db-verbinding niet sluiten. Vergeet je dat niet?


ps:Gebruik de code-tags op code te posten, is makkelijker lezen.

[LennertDD]

code tags?

[LennertDD]

ik denk dat dit allemaal wel inorde is

code:

Set mvarFile = New FileHandling
    'via the database factory specified in module Factory
    If Dir(jt.Wrappers.Windows.IniFiles.GetOut(jt.ini.lDir & jt.ini.lName, "DATABASE", "PATH", "none")) <> "" Then
        With jt.Wrappers.Database
            mvarFile.lDir = jt.Wrappers.Windows.IniFiles.GetOut(jt.ini.lDir & jt.ini.lName, "DATABASE", "PATH", "Database\")
            mvarFile.lName = jt.Wrappers.Windows.IniFiles.GetOut(jt.ini.lDir & jt.ini.lName, "DATABASE", "NAME", "Database.mdb")
            .DataBaseFile = mvarFile
            Set mvarFile = New FileHandling
            mvarFile.lDir = jt.Wrappers.Windows.IniFiles.GetOut(jt.ini.lDir & jt.ini.lName, "DATABASE", "PATH", "Database\")
            mvarFile.lName = jt.Wrappers.Windows.IniFiles.GetOut(jt.ini.lDir & jt.ini.lName, "DATABASE", "INI", "Database.ini")
            .DataBaseIniFile = mvarFile
            Set mvarFile = New FileHandling
            If (.getConnect <> True) Then
                Log 100, "Connecting to database " & .DataBaseFile.lDir & .DataBaseFile.lName
                'connect to database
                jt.Wrappers.Database.connect True
            Else
                Log 100, "Disconnecting from database " & .DataBaseFile.lDir & .DataBaseFile.lName
                'connect to database
                jt.Wrappers.Database.connect False
            End If
        End With

[mhoogendam]

LennertDD schreef op vrijdag 20 januari 2012 @ 11:23:
code tags?

Hoe post je code? / Hoe gebruik je de code tag?
Overzicht van UBB-codes #tag_code

Edit je posts even met deze code tags.

[ Voor 20% gewijzigd door mhoogendam op 20-01-2012 11:29 ]

[itsalwaysme]

Nogmaals: Heb je de debugger al gebruikt, zodat je kan zien wat er in de variabelen staat? Is toch wel het eerste wat je doet neem ik aan.

mhoogendam schreef op vrijdag 20 januari 2012 @ 11:28:
[...]

Hoe post je code? / Hoe gebruik je de code tag?
Overzicht van UBB-codes #tag_code

Edit je posts even met deze code tags.

Dank je

[Lustucru]

Net als je vorige topic hoort dit niet in Officesuites en -software. Vb6 is iets anders dan VBA.

Maar ook op de goede plek geef ik dit topic weinig kans van slagen. Zoals je merkt ontbreekt er aan de startpost e.e.a. en ook post als LennertDD in "Connectie naar SQL server 2005 in VB6.0 met een .ini file" zijn voor mij onbegrijpelijk wat je daar nu mee wilt zeggen.

Doe jezelf een plezier: lees eerst de onvolprezen Het algemeen beleid #quickstart en open daarna een nieuw topic met de relevante informatie in het juiste subforum.