Agildo Silva

Ola, pretendo chamar um relatorio feito em Crystal Report atravez do meu aplicativo desenvolvido em vb, ele ate esta chamando o relatorio mas não esta actualizado com os dados recentes da base dados. não sei se esta faltando algo. alguém poderia me dar uma maozinha em como chamar meu relatorio actulizado. Private Sub Command1_Click() Dim dbname, isbn, titulo, autor, editora, n_exemp, cOND If Cmb_Estado.Text = "" Then MsgBox " Escolhe um estado na lista!", vbInformation Cmb_Estado.SetFocus Exit Sub End If dbname = "\data\relat\livro_estado.mdb" Cr_LivrO.ReportFileName = App.Path & "\data\relat\livro_estado.rpt" Set base = DBEngine.Workspaces(0).OpenDatabase(App.Path & dbname) base.Execute ("delete from livro") cOND = Cmb_Estado.Text Set rs = con.Execute("select filme.cod_filme, filme.titulo, filme.actor1, categoria.descri from filme, categoria where filme.cod_cat=categoria.cod_cat and filme.estado='" & cOND & "' order by filme.titulo") While Not rs.EOF isbn = rs.Fields(0) titulo = rs.Fields(1) autor = rs.Fields(2) editora = rs.Fields(3) base.Execute ("insert into livro values('" & isbn & "','" & titulo & "','" & autor & "','" & editora & "','" & n_exemp & "')") rs.MoveNext DoEvents Wend Set base = Nothing Set rs = Nothing Cr_LivrO.PrintReport End Sub

Ola estou fazendo um projeto de redes, e pretendo usar uma linha dedicada. É proposto que eu utilizo o mesmo endereço disponibilizado pelo provedor tanto na minha rede interna, quanto na ligaçao serial com o provedor. Por favor, pode me dar uma ajudinha como faço isso baseado em segmentar este endereço. Obrigado