Ir para conteúdo
Fórum Script Brasil

Ricardo Ciro

Membros
  • Total de itens

    5
  • Registro em

  • Última visita

Sobre Ricardo Ciro

Ricardo Ciro's Achievements

0

Reputação

  1. Ola galera.. Estou começando a brincar com flash. já peguei algumas coisinhas.. Estou montando um site em flash, e achei um muito legal, que gostaria no mesmo estilo. Segue link http://filippasmedhagensund.com/swf/index.swf gostaria de saber se alguém sabe como fazer, e ou aonde encontro um tutorial para fazer como o do link. Abraço a todos.
  2. Ola a todos, sou iniciantes e estou com um pequeno problema. Criei um sisteminha de cadastro que roda normalmente na minha maquina. Pretendo colocar ele pra rodar em um servidorzinho que tenho aqui e poder acessa-lo de qualquer computador. O caminho do servidor onde pretendo colocar o banco mdf é o \\servidor\systems como devo fazer para o sistema rodar normalmente na rede. Tenho que instalar algum programa no servidor para gerenciar o banco..? alguém tem um exemplo. Grato.
  3. Ricardo Ciro

    Erro

    ola, sou iniciante no vb.net.´ escrevi um codigo, que faz uma pesquisa e retorna valores nos campos do sistema. fiz um exemplo pequeno com 6 campos e funcionou legal, porem quando escrevi novamente para o sistema que vou usar ele deu um erro . ( IErrorInfo.getDescrption failed with E_FAIL (0x80004005) ) o caminho do bd criei em um modulo segue Module Module1 Public con As New System.Data.OleDb.OleDbConnection("Provider = Microsoft.jet.OleDB.4.0;Data Source = " & Application.StartupPath & "\sisb.mdb;") Public idno, mno As Integer Public str As String End Module segue o codigo Imports System.Data.OleDb Imports System.io Imports System.drawing Public Class Frmcad Private Sub pbxSair_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbxSair.Click Me.Close() End Sub Private Sub Frmcad_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Public Sub carregaDados() Dim ds As New DataSet Dim dt As New DataTable Dim adptr As New OleDbDataAdapter("select * from setor", con) adptr.Fill(ds, "setor") dt = ds.Tables(0) End Sub Private Sub pbxPesquisar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbxPesquisar.Click Try If con.State = ConnectionState.Closed Then con.Close() con.Open() Dim cmd As New OleDbCommand("select * from setor WHERE sql = " & Txtsql.Text, con) Dim drdr As OleDbDataReader drdr = cmd.ExecuteReader drdr.Read() Txttipo1.Text = drdr("tipo1") Txttitulo1.Text = drdr("titulo1") Txtnome1.Text = drdr("nome1") Txtext1.Text = drdr("extensao1") Txtclass1.Text = drdr("class1") Txtlarg1.Text = drdr("larg1") Txtofic1.Text = drdr("ofic1") Txtcodlog1.Text = drdr("codlog1") Txttipo2.Text = drdr.Item("tipo2") Txttitulo2.Text = drdr.Item("titulo2") Txtdenom2.Text = drdr.Item("nome2") Txtext2.Text = drdr.Item("extensao2") Txtclass2.Text = drdr.Item("class2") Txtlarg2.Text = drdr.Item("larg2") Txtofic2.Text = drdr.Item("ofic2") Txtcodlog2.Text = drdr.Item("codlog2") Txttipo3.Text = drdr.Item("tipo3") Txttitulo3.Text = drdr.Item("titulo3") Txtdenom3.Text = drdr.Item("nome3") Txtext3.Text = drdr.Item("extensao3") Txtclass3.Text = drdr.Item("class3") Txtlarg3.Text = drdr.Item("larg3") Txtofic3.Text = drdr.Item("ofic3") Txtcodlog3.Text = drdr.Item("codlog3") Txttipo4.Text = drdr.Item("tipo4") Txttitulo4.Text = drdr.Item("titulo4") Txtdenom4.Text = drdr.Item("nome4") Txtext4.Text = drdr.Item("extensao4") Txtclass4.Text = drdr.Item("class4") Txtlarg4.Text = drdr.Item("larg4") Txtofic4.Text = drdr.Item("ofic4") Txtcodlog4.Text = drdr.Item("codlog4") Txttipo5.Text = drdr.Item("tipo5") Txttitulo5.Text = drdr.Item("titulo5") Txtdenom5.Text = drdr.Item("nome5") Txtext5.Text = drdr.Item("extensao5") Txtclass5.Text = drdr.Item("class5") Txtlarg5.Text = drdr.Item("larg5") Txtofic5.Text = drdr.Item("ofic5") Txtcodlog5.Text = drdr.Item("codlog5") Txtmacro.Text = drdr.Item("mequ") Txtzona.Text = drdr.Item("desmequ") Txtze.Text = drdr.Item("ze") Txtcodigoze = drdr.Item("desze") Txtzc.Text = drdr.Item("logzcl") Txtcodigozc.Text = drdr.Item("deslgzcl") Txtrestr.Text = drdr.Item("rest") Txtooi.Text = drdr.Item("obj") Txtppa.Text = drdr.Item("ppaero") Txtcodigoppa.Text = drdr.Item("desppaero") Txtmelho.Text = drdr.Item("melhor") Txtat.Text = drdr.Item("tomb") Txtconfronto.Text = drdr.Item("conf") Txtconfrontoqual.Text = drdr.Item("desconf") Txtcritico.Text = drdr.Item("enchente") Txtcontaminada.Text = drdr.Item("contaminada") Txtsituacao.Text = drdr.Item("situacao") cmd.Cancel() con.Close() Catch ex As Exception MsgBox(ex.Message) End Try End Sub End Class alguém poderia dar um help
  4. Ricardo Ciro

    Select

    legal, ma como eu faço para colocar as informaçoes recebidas do select nos meus texrboxs ( formularrio ) se possivel, você tem algum exemplo passo a passo para me passar. Grato
  5. Ricardo Ciro

    Select

    bom dia a todos sou iniciante no vb.net, e tenho a seguinte duvida. Estou desenvolvendo um programinha que leia um valor, consulte no bd e retorne os campos. no meu programa uso o access que esta em d:\teste.mbd tabela: dados campos: id, nome, endereço, telefone na tela do sistema tenho os campos id, nome, endereço e telefone, e um botao pesquisar. o que eu gostaria de fazer é digitar o id, clicar no botao pesquisar, e o sistema me trazer os campos nome, endereço e telefone, do id informado. Sera que alguém pode me dar uma força. Grato.
×
×
  • Criar Novo...