Visual Basic Forum

Muhanator · Newbie Anmeldedatum: 26.10.2010 Beiträge: 2

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 frage & antwort klang für mich nach dem richtigen.
sollte es sein ddas ich hier falsch bin wäre es nett wenn mir einer den weg in den richtigen bereich zeigt Wink

danke!

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.

Muhanator · Newbie Anmeldedatum: 26.10.2010 Beiträge: 2

kann denn keiner eine hilfestellung leisten? ;(

christopher.g · Überflieger Anmeldedatum: 03.05.2008 Beiträge: 565

such lieber ein anderes forum Wink

hier ist nix mehr los

lg