BD MYSQL X ACTIVE REPORT
Pessoal boa noite, eu migrei de um banco de dados Access para MySQL
e o código abaixo deixou de funcionar alguém sabe como resolver o problema?
Desde já como sempre agradeço a todos que possam ajudar.
e o código abaixo deixou de funcionar alguém sabe como resolver o problema?
ActiveReport1.DRSistema.ConnectionString = con.ConnectionStringDesde já como sempre agradeço a todos que possam ajudar.
colega posta sua conectionstring, pois ela muda com a mudança do banco
função conectar
Private Sub ActiveReport_Initialize()
On Error GoTo arruma
Set CON = CreateObject([Ô]ADODB.Connection[Ô])
Set rs = CreateObject([Ô]ADODB.Recordset[Ô])
Dim sConn As String
sConn = [Ô]DRIVER={MySQL ODBC 3.51 Driver};[Ô]
sConn = sConn & [Ô]SERVER=[Ô]198.168.0.1;[Ô]
sConn = sConn & [Ô]USER=bancosql23;[Ô]
sConn = sConn & [Ô]PWD=123;[Ô]
sConn = sConn & [Ô]database=base[Ô]
CON.Open sConn [ô]Abre o Banco de Dados
rs.CursorLocation = adUseClient
arruma:
DataControl1.ConnectionString = sConn
DataControl1.Source = [Ô]sELECT * FROM produto ORDER BY DESCRICAO[Ô]
End Sub
Private Sub ActiveReport_Initialize()
On Error GoTo arruma
Set CON = CreateObject([Ô]ADODB.Connection[Ô])
Set rs = CreateObject([Ô]ADODB.Recordset[Ô])
Dim sConn As String
sConn = [Ô]DRIVER={MySQL ODBC 3.51 Driver};[Ô]
sConn = sConn & [Ô]SERVER=[Ô]198.168.0.1;[Ô]
sConn = sConn & [Ô]USER=bancosql23;[Ô]
sConn = sConn & [Ô]PWD=123;[Ô]
sConn = sConn & [Ô]database=base[Ô]
CON.Open sConn [ô]Abre o Banco de Dados
rs.CursorLocation = adUseClient
arruma:
DataControl1.ConnectionString = sConn
DataControl1.Source = [Ô]sELECT * FROM produto ORDER BY DESCRICAO[Ô]
End Sub
Vou testar aqui e posto, desde já agradeço a ajuda
de vocês....
de vocês....
Isso que postei fica dentro do activereporte ok e não em modulo
Tópico encerrado , respostas não são mais permitidas