MultiStorm
Grünschnabel
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 !
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 !
