VB CRYSTAL 8.5 MYSQL
Caros colegas,
Estou desenvolvendo um sistema com VB + CRYSTAL 8.5 + MYSQL.
Dentro da rede interna tudo esta funciona perfeitamente. Colocando ip da classe 192.168.0.1.
Mas já o acesso via internet o acesso aos dados como consulta, inclusão, alteração e exclusão também funcionam perfeitamente mas os relatório não funcionam.
Fiz os seguintes procedimentos.
- No windows xp adicionei uma fonte de dados com o ip do servidor;
coloquei dentro de um modulo
- Public conn As ADODB.Connection [ô] referencia nessaria ADOBD
Public Sub Abrirconexao()
Set conn = New ADODB.Connection
conn.ConnectionString = [Ô]Driver=MySQL ODBC 3.51 Driver; DATABASE=transportes; SERVER=xxx.xxx.xxx.xxx; Port=3306; UID=xxxxxx; PASSWORD=xxxxx[Ô]
conn.Open
End Sub
E chamei o relatório com os seguintes codigod:
-Call Abrirconexao
CrystalReport1.Connect = conn.ConnectionString
CrystalReport1.Formulas(0) = [Ô]empresa=[ô][Ô] & empresa_relatorio & [Ô] [ô][Ô]
CrystalReport1.Formulas(1) = [Ô]Inicial=[ô][Ô] & text1.Text & [Ô][ô][Ô]
CrystalReport1.Formulas(2) = [Ô]Final=[ô][Ô] & text2.Text & [Ô][ô][Ô]
CrystalReport1.WindowState = crptMaximized
CrystalReport1.SelectionFormula = [Ô]{veiculos.ativo}=[ô][Ô] & [Ô]SIM[Ô] & [Ô][ô][Ô] & _
[Ô]and {veiculos.placa}>=[ô][Ô] & text1.Text & [Ô][ô][Ô] & [Ô] and {veiculos.placa}<=[ô][Ô] & text2.Text & [Ô][ô][Ô]
CrystalReport1.ReportFileName = App.Path + [Ô]elatorios\veiculos_resumido.rpt[Ô]
CrystalReport1.SortFields(0) = [Ô]+{veiculos.placa}[Ô]
crystalReport1.Action = 1
Lembrando que não é problema de IP pois as consultas, inclusões, alterações e exclusões estão funcionando perfeitamente. E lembrando também que com esses códigos acima em rede interna funciona.
Caso não entenda meu problema favor postar.
Desde agradeço a todos.
Estou desenvolvendo um sistema com VB + CRYSTAL 8.5 + MYSQL.
Dentro da rede interna tudo esta funciona perfeitamente. Colocando ip da classe 192.168.0.1.
Mas já o acesso via internet o acesso aos dados como consulta, inclusão, alteração e exclusão também funcionam perfeitamente mas os relatório não funcionam.
Fiz os seguintes procedimentos.
- No windows xp adicionei uma fonte de dados com o ip do servidor;
coloquei dentro de um modulo
- Public conn As ADODB.Connection [ô] referencia nessaria ADOBD
Public Sub Abrirconexao()
Set conn = New ADODB.Connection
conn.ConnectionString = [Ô]Driver=MySQL ODBC 3.51 Driver; DATABASE=transportes; SERVER=xxx.xxx.xxx.xxx; Port=3306; UID=xxxxxx; PASSWORD=xxxxx[Ô]
conn.Open
End Sub
E chamei o relatório com os seguintes codigod:
-Call Abrirconexao
CrystalReport1.Connect = conn.ConnectionString
CrystalReport1.Formulas(0) = [Ô]empresa=[ô][Ô] & empresa_relatorio & [Ô] [ô][Ô]
CrystalReport1.Formulas(1) = [Ô]Inicial=[ô][Ô] & text1.Text & [Ô][ô][Ô]
CrystalReport1.Formulas(2) = [Ô]Final=[ô][Ô] & text2.Text & [Ô][ô][Ô]
CrystalReport1.WindowState = crptMaximized
CrystalReport1.SelectionFormula = [Ô]{veiculos.ativo}=[ô][Ô] & [Ô]SIM[Ô] & [Ô][ô][Ô] & _
[Ô]and {veiculos.placa}>=[ô][Ô] & text1.Text & [Ô][ô][Ô] & [Ô] and {veiculos.placa}<=[ô][Ô] & text2.Text & [Ô][ô][Ô]
CrystalReport1.ReportFileName = App.Path + [Ô]elatorios\veiculos_resumido.rpt[Ô]
CrystalReport1.SortFields(0) = [Ô]+{veiculos.placa}[Ô]
crystalReport1.Action = 1
Lembrando que não é problema de IP pois as consultas, inclusões, alterações e exclusões estão funcionando perfeitamente. E lembrando também que com esses códigos acima em rede interna funciona.
Caso não entenda meu problema favor postar.
Desde agradeço a todos.
Companheiro, o problema deve ser no connect
tenta assim
cr1.UserName = [Ô]root[Ô]
cr1.Password = [Ô]senha[Ô]
cr1.Connect = [Ô]Driver={MySQL ODBC 3.51 Driver};Server=[Ô] & localconexao & _
[Ô];database=NOME_BD;uid=root;pwd=SENHA;Option=131072[Ô]
Boa Sorte!
tenta assim
cr1.UserName = [Ô]root[Ô]
cr1.Password = [Ô]senha[Ô]
cr1.Connect = [Ô]Driver={MySQL ODBC 3.51 Driver};Server=[Ô] & localconexao & _
[Ô];database=NOME_BD;uid=root;pwd=SENHA;Option=131072[Ô]
Boa Sorte!
Tópico encerrado , respostas não são mais permitidas