Hallo zusammen,
ich bin neu hier im forum und habe da ein kleines problem und hoffe ihr könnt mir helfen.
entschuldigung falls ich hier im falschen bereich bin... aber ich war mir nicht sicher ob das noch unter einsteiger oer fortgeschrittene gehört ddeshalb hab ichs mal in beide gepostet
werde aber jenachdem wo es nun hingehört, das andere löschen
sollte es sein ddas ich hier falsch bin wäre es nett wenn mir einer den weg in den richtigen bereich zeigt danke!
ps: sry das der quellcode nich als vbcode gepostet wurde aber irgedwie bekomm ich das grade nicht hin dass es als vb-code angezeigt wird! sry
edit1[
weiter unten ist der von mir bearbeitete quellcode... mit der problem darstellung...wobei ich mir dan nicht sicher bin ob ich den richtigen ansatz habe
]
ich poste euch erstmal den QC danach folgt die beschreibung
Module modGlobal:
Module modGlobal
Public gcon_DB As OleDb.OleDbConnection = Nothing
End Module
Module modSystem
Module modSystem
Private Const gscModName As String = "[modSystem::"
Sub main()
Try
'****Hier wird die Cnnnection geöffet
'****Aufruf einer Funktion , die versucht die datenbank zu öffnen
'**** und True ausgibt wenn OK, sonst false
Catch ex As Exception
HError(gscModName, ex)
End Try
End Sub
Public Sub Herror(ByVal sMod As String, ByVal ex As Exception)
MsgBox("Fehler in " & sMod & "(" & ex.Message & ")", MsgBoxStyle.Information)
End Sub
End Module form1
Public Class Form1
Dim dt As New DataTable
Dim da As OleDb.OleDbDataAdapter
Dim ds As New DataSet
Dim dv As DataView
Dim drv As DataRowView
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Button1.Click
ds = New DataSet
gcon_DB.open
da.Fill(ds, "Kundenliste")
gcon_DB.Close()
dv = New DataView(ds.Tables("Kundenliste"))
gridKD.DataSource = dv
End Sub
End Class so nun zum wesentlichen bzw zur frage:
in den komment von modSystem stehen die aufgaben bzw anweisungen.
die connection soll halt in modsystem geöffnet werden.
danach soll eine funktion aufgerufen werden, in der halt die DB kurz auf und zu gemacht werden soll
hat das funktioniert soll es normal weiter gehen.
gibt es einen fehler bzw. ist die DB nicht vorhanden, soll ein OpenFileDialog geöffnet werden in der man dann die neue DB bzw den neuen speicherort auswählen kann.
ich hab zwar schon ein bissel rumgetüfftelt... und ich ddenke auch ich bin auf dem richtigen weg,
aber ich habe mal um verwirrung oder ähnliches zu vermeiden, meine zufügungen weggelassen.
ich hoffe von euch ka mir einer helfen.
mfg muhanator
edit2[
bzw machen wirs anderster:
hier der QC vom modSystem wie ich es habe mit fehlerbeschreibug... aber ich bin mir um ehrlich zu sage nicht sicher ob ich überhaupt den richtigen ansatz habe
]
Module modSystem
'****von mir
dim quelle as String = Nothing
dim status as boolean = Nothing
'*******
Module modSystem
Private Const gscModName As String = "[modSystem::"
Sub main()
Try
'****Hier wird die Cnnnection geöffet
'****Aufruf einer Funktion , die versucht die datenbank zu öffnen
'**** und True ausgibt wenn OK, sonst false
'********von mir
gcon_DB.connectionString = my.settings.datenbank
DBAuswahl()
if status = False then
Form1.OpenFileDialog1.showialog
quelle = form1.openfiledialog.filename
my.settings.datenbank = "Provider.Microsoft[......]Data Source=" & quelle
my.settings.save()
form1.showdialog
endif
'*********************
Catch ex As Exception
HError(gscModName, ex)
End Try
End Sub
Public Sub Herror(ByVal sMod As String, ByVal ex As Exception)
MsgBox("Fehler in " & sMod & "(" & ex.Message & ")", MsgBoxStyle.Information)
End Sub
public sub DBAuswahl(byref status as boolean)
try
gcon_DB.open
gcon_DB.close
status=True
catch ex
status=false
End Module so hier spuckt er mir egal wie und wo ich den conectionstring festlege immer die den error aus
die ex msg lautet immer objektverweis wurde nicht auf ein objektinstanz gfestgelegt.
vllt ists einfacher sich hiermit auseinander zu setzen. |