<code>
Class frmprincipale
Public Shared PercorsoDatabase As String
Private Sub frmprincipale_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'assegna il percorso db
PercorsoDatabase = leggiKeyRegistro(
end Sub
"SOFTWARE\\M&I\..........", "database")
...........
</code>
PercorsoDatabase = "Data Source=.\SQLEXPRESS;AttachDbFilename="C:\Documents and Settings\ilario\Desktop\MeI 2010\db uovo.mdf";Integrated Security=True;Connect Timeout=30;User Instance=True"
In Class clsDati
<code>
imports System.Globalization
Imports
System
Imports
System.IO
Imports
DevExpress
Public
Class clsDati
Public DB As New SqlClient.SqlConnection()
p
ublic RecordCorrente As Integer
Public Sub ConnettiDB(ByVal Nomeform As DevExpress.XtraEditors.XtraForm, Optional ByVal Percorso As String = "")
Try
Nomeform.Cursor = Cursors.WaitCursor
If Percorso = "" Then ElseIf Percorso <> "" Then End If
'apri db dati
DB.Open()
Nomeform.Cursor = Cursors.Default
Catch ex As
Exception
ShowMessage(ex.Message,
"", MessageBoxButtons.OK, MessageBoxIcon.Information) End Try
End Sub
</code>
if ....... Public Shared PercorsoDatabase As
but
Public PercorsoDatabase As String ...... (Public Shared PercorsoDatabase As String)
PercorsoDatabase ="" [:'(]
ciao
ilario
String is OK and
Nomeform.Cursor = Cursors.Default
DB.ConnectionString = frmprincipale.PercorsoDatabase
DB.ConnectionString = Percorso