ERRO NO CODIGO DE CONEXAO DO MYSQL COM VB6

CLARE 29/04/2011 18:46:42
#372832
Por favor, me ajudem... estou com erro no meu código e não consigo arrumar... vou postar o código abaixo.... já fiz a conexão com o ODBC testei e deu ok... já criei o banco no mysql... enfim... agora só falta a junção com o vb6.... tem o botão inserir e excluir.... obrigadaaaa

Function Conecta() As Integer
bd.Open [Ô]Driver=MySQL ODBC 5.1 Driver;[Ô] server=localhost; uid=root; pwd=coga; database=exemplo; port=3306[Ô]
RS.CursorType = adOpenStatic
RS.CursorLocation = adUseServer
RS.LockType = adLockPessimistic
End Function
Private Sub FechaConexao()
RS.Close
bd.Close
End Sub
Private Sub CarregaGrid()
Conecta
RS.Open [Ô]select * from cadastro, bd, adOpenForwardOnly, adLockOptimistic[Ô]

RS.AddNew
RS!nome = textNome
RS!cidade = textCidade
RS.Update
FechaConexao
End Sub

Private Sub inserir_Click(Index As Integer)
Conecta
Conexao.Execute ([Ô]INSERT INTO cadastro(nome, cidade) VALUES ([ô]Rosa[ô],[ô]Alma[ô]);[Ô])
FechaConexao
End Sub
TECLA 29/04/2011 20:13:47
#372835
Substitua o código...
RS.AddNew
RS!nome = textNome
RS!cidade = textCidade
RS.Update

...por um semelhante a este:
bd.Execute [Ô]INSERT INTO cadastro (nome, cidade) VALUES ([ô]TECLA[ô], [ô]SÃO PAULO[ô])[Ô]
MARCELO.TREZE 29/04/2011 20:23:37
#372836 Resposta escolhida
esta linha está errada

RS.Open [Ô]select * from cadastro, bd, adOpenForwardOnly, adLockOptimistic[txt-color=#e80000][Ô][/txt-color]


somente aquery deve estar entre aspas

RS.Open [Ô]select * from cadastro[Ô] , bd, adOpenForwardOnly, adLockOptimistic
CLARE 30/04/2011 12:12:48
#372863
Gente obrigada por estarem me ajudando... eis que agora o erro está sendo nesta linha

bd.Open [Ô]Driver= MySQL ODBC 5.1 Driver;[Ô] server=localhost; uid=root; pwd=dellay; database=exemplo; port=3306[Ô]

mais precisamente no SERVER... [MySQL][ODBC 5.1 Driver]Access denied for user [ô]root[ô]@[ô]localhost[ô] (using password: YES)
CLARE 30/04/2011 12:16:08
#372865
Olha como está o meu ODBC
TRTNCG 30/04/2011 12:16:30
#372866
Tira essa aspas duplas antes do nome server

bd.Open [Ô]Driver= MySQL ODBC 5.1 Driver;[Ô] server=localhost; uid=root; pwd=dellay; database=exemplo; port=3306[Ô]
CLARE 30/04/2011 12:19:08
#372867
Tirei as aspas duplas... mas ainda não funcionaaa :(

Function Conecta() As Boolean
bd.Open [Ô]Driver= MySQL ODBC 5.1 Driver; server=localhost; uid=root; pwd=dellay; database=exemplo; port=3306[Ô]
RS.CursorType = adOpenStatic
RS.CursorLocation = adUseServer
RS.LockType = adLockPessimistic
End Function
Private Sub FechaConexao()
RS.Close
bd.Close
End Sub
Private Sub inserir_Click(Index As Integer)
Conecta
RS.Open [Ô]select * from cadastro[Ô], bd, adOpenForwardOnly, adLockOptimistic
bd.Execute [Ô]INSERT INTO cadastro (nome, cidade) VALUES ([ô]TECLA[ô], [ô]SÃO PAULO[ô])[Ô]
FechaConexao
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar