ACESSO AO BANCO MYSQL REMOTO NA WEB
Ao executar o código abaixo no vba do excel, a conexão com o banco mysql ocorre normalmente [Ô]sem erros[Ô] porem os dados não é gravado na tabela do banco!
Se alterar o rs.update para rs.updatebatch os dados são gravado normalmente sem erros!
A duvida seria, posso utilizar desta forma sem problema? porque não funciona sem o batch?
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open [Ô]Driver={MySQL ODBC 5.1 Driver};Server=host do banco;Database=nome banco;User=usuario;Password=sua senha;Option=3;[Ô]
rs.Open [Ô]tbl_cliente[Ô], cn, adOpenKeyset, adLockBatchOptimistic
rs.AddNew
rs([Ô]Nome[Ô]) = [Ô]Jose da Silva[Ô]
rs([Ô]Idade[Ô]) = [Ô]51[Ô]
rs([Ô]Sexo[Ô]) = [Ô]1[Ô]
rs.Update
Set rs = Nothing
Set cn = Nothing
MsgBox [Ô]Registro salvo com sucesso![Ô], vbInformation, [Ô]Sucesso![Ô]
Se alterar o rs.update para rs.updatebatch os dados são gravado normalmente sem erros!
A duvida seria, posso utilizar desta forma sem problema? porque não funciona sem o batch?
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open [Ô]Driver={MySQL ODBC 5.1 Driver};Server=host do banco;Database=nome banco;User=usuario;Password=sua senha;Option=3;[Ô]
rs.Open [Ô]tbl_cliente[Ô], cn, adOpenKeyset, adLockBatchOptimistic
rs.AddNew
rs([Ô]Nome[Ô]) = [Ô]Jose da Silva[Ô]
rs([Ô]Idade[Ô]) = [Ô]51[Ô]
rs([Ô]Sexo[Ô]) = [Ô]1[Ô]
rs.Update
Set rs = Nothing
Set cn = Nothing
MsgBox [Ô]Registro salvo com sucesso![Ô], vbInformation, [Ô]Sucesso![Ô]
é um erro conhecido do driver ODBC. A única solução é usar queries mesmo...
Obrigado!
Tópico encerrado , respostas não são mais permitidas