acesso a banco de dados remoto
07/06/2005
0
galera sou novo no forum não sei se vai dar pra entender mas vamos la...
estou tentando acessar um banco de dados mysql remotamente atravez de aplicação visual basic, estou usando o exemplo do marcoratti:
Dim rs As Object ´Recordset
Dim ds As Object ´RDS.DataSpace
Dim df As Object ´RDSServer.DataFactory
3- No evento Load do formulário padrão escreva o código para criar o objeto RDS
Private Sub Form_Load()
Set ds = CreateObject(´RDS.DataSpace´)
Set df = ds.CreateObject(´RDSServer.DataFactory´, ´http://macorati´)
End Sub
4- Agora no evento click do botão de comando inclua o código para acessar base de dados usando o dsn pubs:
Private Sub Command1_Click()
´retorna um recordset via HTTP.
Dim strCn As Variant, strSQL As Variant
strCn = ´dsn=pubs;uid=sa;pwd=;´
strSQL = ´select * from authors´
Set rs = df.Query(strCn, strSQL) *********erro************
Debug.Print rs(0) ´imprime na janela de depuração a linha o codigo do autor
End Sub
essa linha esta dando erro ´8447´ erro de servidor de internet alguem sabe o motivo?
Set rs = df.Query(strCn, strSQL)
valeu pela força galera
estou tentando acessar um banco de dados mysql remotamente atravez de aplicação visual basic, estou usando o exemplo do marcoratti:
Dim rs As Object ´Recordset
Dim ds As Object ´RDS.DataSpace
Dim df As Object ´RDSServer.DataFactory
3- No evento Load do formulário padrão escreva o código para criar o objeto RDS
Private Sub Form_Load()
Set ds = CreateObject(´RDS.DataSpace´)
Set df = ds.CreateObject(´RDSServer.DataFactory´, ´http://macorati´)
End Sub
4- Agora no evento click do botão de comando inclua o código para acessar base de dados usando o dsn pubs:
Private Sub Command1_Click()
´retorna um recordset via HTTP.
Dim strCn As Variant, strSQL As Variant
strCn = ´dsn=pubs;uid=sa;pwd=;´
strSQL = ´select * from authors´
Set rs = df.Query(strCn, strSQL) *********erro************
Debug.Print rs(0) ´imprime na janela de depuração a linha o codigo do autor
End Sub
essa linha esta dando erro ´8447´ erro de servidor de internet alguem sabe o motivo?
Set rs = df.Query(strCn, strSQL)
valeu pela força galera
Lvmhdavid
Curtir tópico
+ 0
Responder
Posts
20/07/2006
Carlosrodrigop
Sinceramente faltam algumas informacoes, vc esta usando VB.Net correto? Qual o banco de dados? Vc esta tentando chamar um WS?
Responder
Clique aqui para fazer login e interagir na Comunidade :)