Henrique Rissardi Matos

Bom primeiro você vai ter que aprender a criar o relatório no crystal depois do relatório pronto você vai entrar no vb, adicionar um componetne do crystal que se chama Crystal Report Control depois fica facil coloque essas instruções em um CammandButton controleCrystal.DataFiles(0) = Caminho do banco de dados controleCrystal.ReportFileName = Caminhodo relatorio .rpt controleCrystal.Action = 1

você colocou a referencia DAO 3.6?

Se eu não me engano você só precisa salvar o banco de dados

Eu novamente Dim db As ADODB.Connection Set db = New ADODB.Connection strCnn = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & App.Path & "\Dados.mdb;Uid=Admin; Pwd=" db.Open strCnn db.Execute "CREATE TABLE Tabela (NomeCampo TEXT(40))" 'esse código funciona db.Execute "CREATE TABLE Tabela (NomeCampo TEXT(40) WITH COMP)" 'esse código da erro de sintax db.Execute "CREATE TABLE Tabela (NomeCampo TEXT(40) WITH COMPRESSION)" 'esse código da erro de sintax

Puxa eu li o artigo, mas se entendi direito eu não consigo isso via DAO, eu tentei e ele da um erro de sintax, você sabe se tem outro jeito? Dim db As Database Dim rs As Recordset Set db = OpenDatabase(App.Path & "\Dados.mdb") db.Execute "CREATE TABLE Tabela (NomeCampo TEXT(40))" 'esse código funciona db.Execute "CREATE TABLE Tabela (NomeCampo TEXT(40) WITH COMP)" 'esse código da erro 3090 db.Execute "CREATE TABLE Tabela (NomeCampo TEXT(40) WITH COMPRESSION)" 'esse código da erro 3090

quando eu faço o comando "Banco.Execute "Alter Table ConPedCli Add Column Campo CHAR(50)" adiciono uma coluna chamada campo na tabela ConPedCli, só que esa coluna é criada como Compactação Unicode = Não. Como faço para criala como Compactação Unicode = Sim, já rodei tudo e não consegui descobrir, desde já eu agradeço a todos.