COENCAO MYSQL NO SERVIDOR DA UOL
Pessoal ja tentei de tudo com os exemplos que consegui aqui para conectar minha aplicacao com a base de dados mysql que fiz no site da uol. criei pelo proprio site um banco de dados Cadastro com a tabela Teste e campos nome e endereco para testar mas nao consigo de forma alguma fazer a conecção com ele.
Alguem pode me dar uma luz!
Eu sempre fiz assim para conectar minha base de dados mdb local.
Dim db As Database
Dim query As String
Dim dyn As Recordset
Set db = OpenDatabase([Ô]c:\Sistema\Cadastro.Mdb[Ô], False, False, [Ô];PWD=senha[Ô])
query = [Ô]Select * From Residencial where CODIGO = [ô][Ô] & codigo & [Ô][ô][Ô]
Set dyn = db.OpenRecordset(query, dbOpenDynaset)
If dyn.EOF Then
dyn.AddNew
dyn([Ô]CODIGO[Ô]) = codigo
dyn([Ô]NOME[Ô]) = nome
dyn([Ô]ENDERECO[Ô]) = ENDERECO
dyn.Update
MsgBox [Ô]Inclusão Realizada com (SUCESSO).![Ô], vbInformation, nome
Else
MsgBox [Ô]Está inclusão já foi registrada [Verifique].[Ô], vbExclamation, nome
Exit Sub
End If
db.Close
Alguem pode me dar uma luz!
Eu sempre fiz assim para conectar minha base de dados mdb local.
Dim db As Database
Dim query As String
Dim dyn As Recordset
Set db = OpenDatabase([Ô]c:\Sistema\Cadastro.Mdb[Ô], False, False, [Ô];PWD=senha[Ô])
query = [Ô]Select * From Residencial where CODIGO = [ô][Ô] & codigo & [Ô][ô][Ô]
Set dyn = db.OpenRecordset(query, dbOpenDynaset)
If dyn.EOF Then
dyn.AddNew
dyn([Ô]CODIGO[Ô]) = codigo
dyn([Ô]NOME[Ô]) = nome
dyn([Ô]ENDERECO[Ô]) = ENDERECO
dyn.Update
MsgBox [Ô]Inclusão Realizada com (SUCESSO).![Ô], vbInformation, nome
Else
MsgBox [Ô]Está inclusão já foi registrada [Verifique].[Ô], vbExclamation, nome
Exit Sub
End If
db.Close
colega antes de qualquer coisa você deverá baixar e instalar o driver odbc da mysql.
depois em um módulo você faz assim
acima é uma fução que criei, no load do form principal você conecta assim
e no unload você desconecta assim
veja se consegue
depois em um módulo você faz assim
Global Conexao As New ADODB.Connection
Public Function Conecta(valor As Boolean)
Dim SERVER As String, BD As String, PORTA As String, USER As String, SENHA As String
Dim CON_STR As String
If Conexao.State = 1 Then
Conexao.Close
Set Conexao = Nothing
valor = True
End If
If valor = True Then
SERVER = [Ô]200.123.124.222[txt-color=#007100][Ô] [ô] coloquei apenas um exemplo, poderá ser uol.mysql.etc, não sei qual é[/txt-color]
BD = [Ô]nomedobanco[Ô]
PORTA = 3306[txt-color=#007100] [ô] esta é a porta padrao[/txt-color]
USER =[Ô]seuusuario[Ô]
SENHA = [Ô]suasenha[Ô]
CON_STR = [Ô]DRIVER={MySQL ODBC 5.1 DRIVER};[Ô] _
& [Ô]Server=[Ô] & SERVER & [Ô];[Ô] _
& [Ô]Port=[Ô] & PORTA & [Ô];[Ô] _
& [Ô]Database=[Ô] & BD & [Ô];[Ô] _
& [Ô]UID=[Ô] & USER & [Ô];[Ô] _
& [Ô]PWD=[Ô] & SENHA & [Ô];[Ô] _
& [Ô]Option=3;[Ô]
With Conexao
.CursorLocation = adUseClient
.ConnectionString = CON_STR
.Open CON_STR
End With
Else
Conexao.Close
Set Conexao = Nothing
End If
End Functionacima é uma fução que criei, no load do form principal você conecta assim
Conecta Truee no unload você desconecta assim
Conecta Falseveja se consegue
Marcelo mas uma vez obrigado pela força ja nao consigo mais reciocinar pois preciso proteger minha agenda de contatos e com access nao vou conseguir.
Tentei fazer como vc falou e deu isso!
Tentei fazer como vc falou e deu isso!
Marcelo eu instalei o driver da obdc e coloquei nas refeencias do vb
Não é isso.
Baixe na web esse drive, não precisa referenciar no vb.
Baixe e instale apenas.
Vc já criou o Banco mysql la no seu servidor uol ?
Citação:MySQL ODBC 5.1 DRIVER
Baixe na web esse drive, não precisa referenciar no vb.
Baixe e instale apenas.
Vc já criou o Banco mysql la no seu servidor uol ?
Oi marcelo ja criei e ja inst o driver mas continua dando erro!
E ja criri o banco no servidor da uol.
E ja criri o banco no servidor da uol.
Opa marcelo descobri meu erro, era no direcionamento do servidor. Agora ele conecto blz.
Vc poderia me ajudar como eu realizo os procedimentos basicos incluir, alterar, excluir os dados agora com este tipo de conecção!
pois como mostrei no inicio toda vez que realizo uma operaçao de inclusao ou exclusao eu preciso abrir o banco e agora deste modo tb é =?
Vc poderia me ajudar como eu realizo os procedimentos basicos incluir, alterar, excluir os dados agora com este tipo de conecção!
pois como mostrei no inicio toda vez que realizo uma operaçao de inclusao ou exclusao eu preciso abrir o banco e agora deste modo tb é =?
Marcelo Consegui fazer as operações uma duvida qual seria o indicado para exibir os dados do msql eu usava antes o dbgrid com access e da pra continuar usando ele ou nao?
poderia me dar um exemplo para eu exibir os dados nele por favor.
poderia me dar um exemplo para eu exibir os dados nele por favor.
Tópico encerrado , respostas não são mais permitidas