SHAPE
Estou tentando fazer relatório com agrupamento no datareport sem DE, mas não funciona de jeito nenhum.
Oq há de errado neste código ? ele da mensagem de erro: [ô] token unknown - line 1 - column 1 shape, comose ele não reconhecesse o comando shape....
Dim Tb1 As ADODB.Recordset
Set Tb1 = New ADODB.Recordset
Tb1.Open [Ô]SHAPE {SELECT F.NOME,C.CODIGO,C.TOTAL FROM FUNCIONARIO F,[Ô] & _
[Ô]COTACAO C WHERE C.COD_FUN=F.CODIGO} AS COMMAND1 COMPUTE [Ô] & _
[Ô]COMMAND1 BY F.NOME[Ô], Conexão, , adLockReadOnly
usofirbird 2.0 com zstile
Oq há de errado neste código ? ele da mensagem de erro: [ô] token unknown - line 1 - column 1 shape, comose ele não reconhecesse o comando shape....
Dim Tb1 As ADODB.Recordset
Set Tb1 = New ADODB.Recordset
Tb1.Open [Ô]SHAPE {SELECT F.NOME,C.CODIGO,C.TOTAL FROM FUNCIONARIO F,[Ô] & _
[Ô]COTACAO C WHERE C.COD_FUN=F.CODIGO} AS COMMAND1 COMPUTE [Ô] & _
[Ô]COMMAND1 BY F.NOME[Ô], Conexão, , adLockReadOnly
usofirbird 2.0 com zstile
Como está sua string de Conexão?
Acho que para usar o SHAPE você deve colocar o [Ô]Provider=MSDataShape[Ô] na string de conexão e usar o APPEND e RELATE na string do recordset
Acho que para usar o SHAPE você deve colocar o [Ô]Provider=MSDataShape[Ô] na string de conexão e usar o APPEND e RELATE na string do recordset
Complementando o colega, segue um exemplo de uma StringConnection:
strCon = [Ô]Provider=MSDataShape;[Ô] & _
[Ô]Data Source=meu_server;[Ô] & _
[Ô]Initial Catalog=meu_banco;[Ô] & _
[Ô]User ID=sa;[Ô] & _
[Ô]Password=*******[Ô] & _
[Ô]Data Provider=SQLOLEDB.1;[Ô]
Realmente minha string de conxão estava errada...
Tecla, em [ô]DATA SOURCE[ô] e [ô]Initial Catalog[ô] eu coloco o caminho do banco ?
o que seria em [ô]meu_server[ô] ?
será que vai funcionar mesmo sendo o banco firebird?
e enquanto ao comando sql? sera que esta certo ?
Obrigado pela atenção ....
Tecla, em [ô]DATA SOURCE[ô] e [ô]Initial Catalog[ô] eu coloco o caminho do banco ?
o que seria em [ô]meu_server[ô] ?
será que vai funcionar mesmo sendo o banco firebird?
e enquanto ao comando sql? sera que esta certo ?
Obrigado pela atenção ....
Consegui resolver o problema, a quem possa interessar ai vai a função que monta o código:
On Error GoTo ERR
Dim cNN2 As New ADODB.Connection
cNN2.ConnectionString = [Ô]Provider=MSDataShape;[Ô] & _
[Ô]DRIVER=Firebird/InterBase(r) driver;[Ô] & _
[Ô]UID=SYSDBA;[Ô] & _
[Ô]PWD=masterkey;[Ô] & _
[Ô]DBNAME=[Ô] & baNco
cNN2.Open
Dim SQc As String
SQc = [Ô]SHAPE {SELECT CODIGO,NOME FROM FUNCIONARIO} AS FUNCIONARIO [Ô] & _
[Ô]APPEND ({SELECT O.CODIGO,O.DATA,C.NOME AS CLIENTE,O.COD_FUN,[Ô] & _
[Ô]O.TOTAL FROM COTACAO O, CLIENTE C WHERE C.CODIGO=O.COD_CLI ORDER BY O.CODIGO} AS COTACAO [Ô] & _
[Ô]RELATE CODIGO TO COD_FUN) AS COMMAND1[Ô]
[ô]MsgBox SQc
Dim Tb1 As ADODB.Recordset
Set Tb1 = New ADODB.Recordset
Tb1.Open SQc, cNN2, , adLockReadOnly
Set DRcomissao.DataSource = Tb1
DRcomissao.DataMember = [Ô][Ô]
DRcomissao.Sections([Ô]Section1[Ô]).Controls.item(1).DataMember = [Ô]Command1[Ô]
DRcomissao.Sections([Ô]Section1[Ô]).Controls.item(2).DataMember = [Ô]Command1[Ô]
DRcomissao.Sections([Ô]Section1[Ô]).Controls.item(3).DataMember = [Ô]Command1[Ô]
DRcomissao.Sections([Ô]Section1[Ô]).Controls.item(4).DataMember = [Ô]Command1[Ô]
DRcomissao.Show 1
Tb1.Close: Set Tb1 = Nothing
cNN2.Close: Set cNN2 = Nothing
Exit Sub
ERR:
MsgBox [Ô]ERRO NA CONSULTA ![Ô] & Chr(13) & _
UCase(ERR.Description), vbCritical, [Ô]ERRO[Ô]
Exit Sub
precisei instalar o Firebird_ODBC, pq o zstile achoque não suporta shape....
Obrigado ...
On Error GoTo ERR
Dim cNN2 As New ADODB.Connection
cNN2.ConnectionString = [Ô]Provider=MSDataShape;[Ô] & _
[Ô]DRIVER=Firebird/InterBase(r) driver;[Ô] & _
[Ô]UID=SYSDBA;[Ô] & _
[Ô]PWD=masterkey;[Ô] & _
[Ô]DBNAME=[Ô] & baNco
cNN2.Open
Dim SQc As String
SQc = [Ô]SHAPE {SELECT CODIGO,NOME FROM FUNCIONARIO} AS FUNCIONARIO [Ô] & _
[Ô]APPEND ({SELECT O.CODIGO,O.DATA,C.NOME AS CLIENTE,O.COD_FUN,[Ô] & _
[Ô]O.TOTAL FROM COTACAO O, CLIENTE C WHERE C.CODIGO=O.COD_CLI ORDER BY O.CODIGO} AS COTACAO [Ô] & _
[Ô]RELATE CODIGO TO COD_FUN) AS COMMAND1[Ô]
[ô]MsgBox SQc
Dim Tb1 As ADODB.Recordset
Set Tb1 = New ADODB.Recordset
Tb1.Open SQc, cNN2, , adLockReadOnly
Set DRcomissao.DataSource = Tb1
DRcomissao.DataMember = [Ô][Ô]
DRcomissao.Sections([Ô]Section1[Ô]).Controls.item(1).DataMember = [Ô]Command1[Ô]
DRcomissao.Sections([Ô]Section1[Ô]).Controls.item(2).DataMember = [Ô]Command1[Ô]
DRcomissao.Sections([Ô]Section1[Ô]).Controls.item(3).DataMember = [Ô]Command1[Ô]
DRcomissao.Sections([Ô]Section1[Ô]).Controls.item(4).DataMember = [Ô]Command1[Ô]
DRcomissao.Show 1
Tb1.Close: Set Tb1 = Nothing
cNN2.Close: Set cNN2 = Nothing
Exit Sub
ERR:
MsgBox [Ô]ERRO NA CONSULTA ![Ô] & Chr(13) & _
UCase(ERR.Description), vbCritical, [Ô]ERRO[Ô]
Exit Sub
precisei instalar o Firebird_ODBC, pq o zstile achoque não suporta shape....
Obrigado ...
Tópico encerrado , respostas não são mais permitidas