CONEXÃO COM SQL SERVER 2000 USANDO O VB.NET 2010
Olá galera!
Estou precisando com certa urgência fazer uma conexão com o banco de dados sql server 2000 usando o vb.net 2010. Existe alguma configuração especifica que devo fazer no projeto. não consigo fazer conectar com a rotina abaixo.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim texto As String() = System.IO.File.ReadAllLines(My.Computer.FileSystem.CurrentDirectory & [Ô]\[Ô] & [Ô]connC11.ini[Ô])
Dim servidor, db, user, password As String
servidor = texto(0)
db = texto(1)
user = texto(2)
password = texto(3)
conexaoext = [Ô]Provider=SQLOLEDB.1;Password=[Ô] & password & [Ô];Persist Security Info=True;User ID=[Ô] & user & [Ô];Initial Catalog=[Ô] & db & [Ô];Data Source=[Ô] & servidor
Dim oOleDbConnection As OleDbConnection
oOleDbConnection = New OleDb.OleDbConnection(conexaoext)
oOleDbConnection.Open() [ô]não está conectando....
MsgBox([Ô]Conectado[Ô])
End Sub
Estou precisando com certa urgência fazer uma conexão com o banco de dados sql server 2000 usando o vb.net 2010. Existe alguma configuração especifica que devo fazer no projeto. não consigo fazer conectar com a rotina abaixo.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim texto As String() = System.IO.File.ReadAllLines(My.Computer.FileSystem.CurrentDirectory & [Ô]\[Ô] & [Ô]connC11.ini[Ô])
Dim servidor, db, user, password As String
servidor = texto(0)
db = texto(1)
user = texto(2)
password = texto(3)
conexaoext = [Ô]Provider=SQLOLEDB.1;Password=[Ô] & password & [Ô];Persist Security Info=True;User ID=[Ô] & user & [Ô];Initial Catalog=[Ô] & db & [Ô];Data Source=[Ô] & servidor
Dim oOleDbConnection As OleDbConnection
oOleDbConnection = New OleDb.OleDbConnection(conexaoext)
oOleDbConnection.Open() [ô]não está conectando....
MsgBox([Ô]Conectado[Ô])
End Sub
Imports System.Data.SqlClient
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim texto As String() = System.IO.File.ReadAllLines(My.Computer.FileSystem.CurrentDirectory & [Ô]\[Ô] & [Ô]connC11.ini[Ô])
Dim servidor, db, user, password As String
servidor = texto(0)
db = texto(1)
user = texto(2)
password = texto(3)
conexaoext = [Ô]Data Source=[Ô] & servidor & [Ô];Password=[Ô] & password & [Ô];Persist Security Info=True;User ID=[Ô] & user & [Ô];Initial Catalog=[Ô] & db & [Ô];[Ô]
Dim oSqlConnection As New SqlConnection(conexaoext)
oSqlConnection.Open() [ô]não está conectando....
MsgBox([Ô]Conectado[Ô])
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim texto As String() = System.IO.File.ReadAllLines(My.Computer.FileSystem.CurrentDirectory & [Ô]\[Ô] & [Ô]connC11.ini[Ô])
Dim servidor, db, user, password As String
servidor = texto(0)
db = texto(1)
user = texto(2)
password = texto(3)
conexaoext = [Ô]Data Source=[Ô] & servidor & [Ô];Password=[Ô] & password & [Ô];Persist Security Info=True;User ID=[Ô] & user & [Ô];Initial Catalog=[Ô] & db & [Ô];[Ô]
Dim oSqlConnection As New SqlConnection(conexaoext)
oSqlConnection.Open() [ô]não está conectando....
MsgBox([Ô]Conectado[Ô])
End Sub
Já estou usando a linha [Ô]Imports System.Data.SqlClient[Ô] e ainda sim continua sem fazer a conexão.
Post o erro que esta mostrando
Já resolvi. A minha string de conexão está correta o problema é porque o acesso não funciona em um sistema de 64bits.
Tópico encerrado , respostas não são mais permitidas