CONECTAR COM ARQUIVO DO SQL SDF
Bom dia galera
Alguém aà já conectou o VB 6 com SQL Compact Edition?
Poderia me ajudar?
eu criei meu sdf usando SQL Server 2008 R2 com a senha [Ô]admin[Ô]..
como seria a conexão?
Valew
boa tarde
segue a string de conexão,
mas também tem que instalar na maquina o conector Microsoft SQL Server Compact 3.5 Service Pack 1
http://www.microsoft.com/en-us/download/details.aspx?id=5821
veja se ajuda
==============================================================
Dim MyConnObj As New ADODB.Connection
[ô] Microsoft.SQLSERVER.CE.OLEDB.3.5
[ô] Microsoft.SQLSERVER.MOBILE.OLEDB.3.0
MyConnObj.ConnectionString = [Ô]Provider=SQLOLEDB;Data Source=c: est.sdf[Ô]
MyConnObj.Open
Outra forma
ou Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5;Data Source=myPath\myData.sdf;
segue a string de conexão,
mas também tem que instalar na maquina o conector Microsoft SQL Server Compact 3.5 Service Pack 1
http://www.microsoft.com/en-us/download/details.aspx?id=5821
veja se ajuda
==============================================================
Dim MyConnObj As New ADODB.Connection
[ô] Microsoft.SQLSERVER.CE.OLEDB.3.5
[ô] Microsoft.SQLSERVER.MOBILE.OLEDB.3.0
MyConnObj.ConnectionString = [Ô]Provider=SQLOLEDB;Data Source=c: est.sdf[Ô]
MyConnObj.Open
Outra forma
ou Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5;Data Source=myPath\myData.sdf;
Fala Marcelo, blz?
Eu instalo esse SP
aà no vb 6 tenho que adicionar alguma referência?
Pq eu ja tenho isso instalado..por isso acho que falta aguma referencia.
testei todas as formas de conexão que falou e nenhuma conectou..
da erro na hora de conectar
Methos [ô]Open[ô] of object [ô]_Connetcion[ô] failed..segue comando
Dim adoCn As ADODB.Connection
adoCn.ConnectionString = [Ô]Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5; Data Source=J: este.sdf[Ô]
adoCn.Open
NADA
NÃO CONECTA.
DA ERRO!
Alguém conseguiu ou já usou isso?
Boa tarde
Fiz teste e esta funcionando a conexão e a exibição das informações
========================================================
Dim MyConnObj As New ADODB.Connection
MyConnObj.ConnectionString = [Ô]Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5;Data Source=C:\SISTEMA\Northwind.sdf;[Ô]
MyConnObj.Open
Dim Rs As New ADODB.Recordset [ô] Declara um recorset
Dim Sql As String [ô] Declara uma string para a consulta SQL
Dim dados As String
Sql = [Ô]SELECT [Product Name] as Produto FROM Products[Ô]
Rs.Open Sql, MyConnObj
With Rs
Do Until .EOF [ô]percorre o recordset ate o fim inclui os itens correspondentes
dados = dados & Rs(0) & vbCrLf
.MoveNext
Loop
.Close [ô] fecha o recordset
End With
Set Rs = Nothing [ô]libera o recordset
MyConnObj.Close
Fiz teste e esta funcionando a conexão e a exibição das informações
========================================================
Dim MyConnObj As New ADODB.Connection
MyConnObj.ConnectionString = [Ô]Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5;Data Source=C:\SISTEMA\Northwind.sdf;[Ô]
MyConnObj.Open
Dim Rs As New ADODB.Recordset [ô] Declara um recorset
Dim Sql As String [ô] Declara uma string para a consulta SQL
Dim dados As String
Sql = [Ô]SELECT [Product Name] as Produto FROM Products[Ô]
Rs.Open Sql, MyConnObj
With Rs
Do Until .EOF [ô]percorre o recordset ate o fim inclui os itens correspondentes
dados = dados & Rs(0) & vbCrLf
.MoveNext
Loop
.Close [ô] fecha o recordset
End With
Set Rs = Nothing [ô]libera o recordset
MyConnObj.Close
vc só adicionou a referência de Ado 2.8?
Bom dia
Estou enviado o exemplo para você
Estou enviado o exemplo para você
Sem palavras Marcelão
vou trocar os dados e ver se funciona no meu
abraços!! e obrigado
Tópico encerrado , respostas não são mais permitidas