Visual Basic Forum

MultiStorm · Newbie Anmeldedatum: 21.10.2007 Beiträge: 1

Hallo Alle zusammen,
Kommen wir gleich mal zur aufgaben stellung:

DB System: Adaptive Server Anywhere 9.0
Basis Lexware Warenwirtschaft Pro 7.0/5

Ziel:
Wir wollen Daten aus einem Webshop (MySQL DB) in die DB der WaWi Pro übertragen
dabei stellen sich ein paar Probleme ...

1. wir kennen den User + PW für die Sybase DB nicht

2. das Zusammenbauen des Connection Strings bereitet mehr peobleme als gedacht

zu 1. wir haben alles im I-Net abgesucht aber niemand kennt die
zugangsdaten zur aktuellen DB

nun gut jeder der zeit und etwas wissen hat würde jetzt warscheinlich den
gleichen weg einschlagen, der name des Kindes nennt sich BruteForce
wir wissen das sich der Benutzername der DB aus 2 Teilen zusammenbaut

1. Fx (X ist die Firmen ID)
2. Uy (y ist die User ID)

in unserem fall wäre das F1_U0 Firma 1 und User 0 (Supervior)
das heist wir brauchen nur noch das PW über ein Kleines VB 6.0 Prog sollte sich das PW
Knacken lassen wobei wir zu den Schwirkeiten von 2. kommen.

Der Connection String:
ich habe im internet für VB 6.0 einen Beispiel Code gefunden wie mann zum ASA
eine ODBC verbindung aufbauen kann, der scheint leider nicht komplett zu sein

hier erstmal der code:

Private Sub cmdTestConnection_Click()
' Declare variables
Dim myConn As New ADODB.Connection
Dim myCommand As New ADODB.Command
Dim cAffected As Long

On Error GoTo HandleError

' Establish the connection
myConn.Provider = "ASAProv"
myConn.ConnectionString = _
"Data Source=ASA 9.0 Sample"
myConn.Open
MsgBox "Connection succeeded"
myConn.Close
Exit Sub

HandleError:
MsgBox "Connection failed"
Exit Sub
End Sub

Quelle:
http://www.ianywhere.com/developer/product_manuals/sqlanywhere/0901/de
/html/dbpgde9/00000363.htm

welche angaben ich in desem code vermisse sind:

1. Datenbank datei
2. User
3. Passwort

und das sind nur die sachen bei den ich mir sicher bin das sie fehlen ...
ich habe versucht den Connection String zu Kompletieren, war dabei aber
nicht so erfolgreich wie ich es gerne gewesen wäre

meine Kompletierung:
Public Sub test_Connection()
' Declare variables
Dim myConn As New ADODB.Connection
Dim myCommand As New ADODB.Command
Dim cAffected As Long

'On Error GoTo HandleError

' Establish the connection
myConn.Provider = "ASAProv"
myConn.ConnectionString = "Data Source=ASA 9.0 Sample;Dbf=\\Service-pc\lx daten\Lexware professional\Datenbank\F1\lxcompany.db;Uid=F1_U0;Pwd=myPassword;Dsn="";"

'myConn.DefaultDatabase = "\\Service-pc\lx daten\Lexware professional\Datenbank\F1\lxcompany.db"
myConn.Open
MsgBox "Connection succeeded"
myConn.Close
Exit Sub

HandleError:
MsgBox "Connection failed"
Exit Sub
End Sub

wenn ich versuche dies so auszuführen bekomme ich von VB den Fehlerhinweis
Laufzeit Fehler 3001
Die Argumente sind vom Falschen Typ,
liegen außerhalb des Gültigkeitsbereiches ........

unter:
http://www.connectionstrings.com/?carrier=sybase

bekommt man eine ganze aUFLISTUNG FÜR cONNECTION sTRING
beispiele .. mein oben verwendeter code ist auch dort beschrieben.
leider auch hier ohne die angaben von User + Pass

ich meine ist die sache eigntlich so einfach das sie nirgends erwähnt wirt ?

also irgendwo da ist doch der hund begraben.

Ich wäre euch sehr dankbar wenn ihr mir mit dem Connection String helfen könntet ...
Brache ich vieleicht zusätzliche Treiber ...

Habe den ODBC 3.51 installiert
zusätztlich sind die von Lexware eingerichteten ODBC Datenquellen
vorhanden.

hat noch jemand eine idee ?!?!?!!?
Die sache ist wirklich sehr wichtig da wir die daten dringend zu
abrechnungszwecken einbinden müssen.

MFG & THX im Vorraus !
_________________