La stringa di connessione è questa:
Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=NomeArchivio;Data Source=NOMESERVER
Il codice è questo:
codice:
Imports System.IO
Module ModuleDrive
Public Drive As String
Public Sub LetturaDrive()
Dim objStreamReader As StreamReader
objStreamReader = New StreamReader("C:\Programmi\MioProgramma\Connection\Drive.txt")
Drive = objStreamReader.ReadLine
objStreamReader.Close()
End Sub
End Module
codice:
Imports System.Data
Imports System.Data.SqlClient
Public Class NomeForm(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim objConnection As SqlConnection
Private Sub NomeSub_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Call LetturaDrive()
objConnection = New SqlConnection(Drive) 'Qui mi toppa e mi appare quell'errore!
objConnection.Open()
objConnection.Close()
End Sub
End Class
Rispondi quotando
