Hiho
Ich hab bei meinem Launcher das Problem, dass die DB-Authentifikation fehlschlägt.
ich hab mein Programm soweit Dynamisch, dass beim ersten Start ein Dialog angezeigt wird, in dem nach der DB gefragt wird. da wird ein txt-file mit dem pfad erstellt, von wo er ab dann den Pfad auslesen kann.
und der code für den DBPfad:
Im formload
die prozedur databasepath()
wenn ich einen festen pfad für die DB vergeb funzt des ganze einwandfrei.
was läuft da falsch? liegts dran das mein PC lustig is oder hab ich n shit geproggt?
Ich hab bei meinem Launcher das Problem, dass die DB-Authentifikation fehlschlägt.
ich hab mein Programm soweit Dynamisch, dass beim ersten Start ein Dialog angezeigt wird, in dem nach der DB gefragt wird. da wird ein txt-file mit dem pfad erstellt, von wo er ab dann den Pfad auslesen kann.
Dim myConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & database & ";User id=admin;Password=;")
Im formload
Try
Using sr As StreamReader = New StreamReader(File)
database = sr.ReadLine()
sr.Close()
End Using
Catch ex As Exception
Dim fs1 As New FileStream(Application.StartupPath & "\datenpfad.txt", FileMode.Create)
database = ""
fs1.Close()
End Try
If database = "" Then
MessageBox.Show("Bitte wählen Sie eine gültige Datenbank aus!", "Keine Datenbank gefunden!", MessageBoxButtons.OK, MessageBoxIcon.Information)
databasepath()
End If
Using sr As StreamReader = New StreamReader(File)
database = sr.ReadLine()
sr.Close()
End Using
Catch ex As Exception
Dim fs1 As New FileStream(Application.StartupPath & "\datenpfad.txt", FileMode.Create)
database = ""
fs1.Close()
End Try
If database = "" Then
MessageBox.Show("Bitte wählen Sie eine gültige Datenbank aus!", "Keine Datenbank gefunden!", MessageBoxButtons.OK, MessageBoxIcon.Information)
databasepath()
End If
die prozedur databasepath()
Private Sub databasepath()
ofdPATH.ShowDialog()
If ofdPATH.FileName.ToString = "" Then
Else
Using sw As StreamWriter = New StreamWriter(File)
sw.Write(ofdPATH.FileName.ToString)
sw.Close()
End Using
Using sr As StreamReader = New StreamReader(File)
database = sr.ReadLine()
sr.Close()
End Using
End If
End Sub
ofdPATH.ShowDialog()
If ofdPATH.FileName.ToString = "" Then
Else
Using sw As StreamWriter = New StreamWriter(File)
sw.Write(ofdPATH.FileName.ToString)
sw.Close()
End Using
Using sr As StreamReader = New StreamReader(File)
database = sr.ReadLine()
sr.Close()
End Using
End If
End Sub
was läuft da falsch? liegts dran das mein PC lustig is oder hab ich n shit geproggt?
Comment