Ricardo Ciro
Membros-
Total de itens
5 -
Registro em
-
Última visita
Sobre Ricardo Ciro
Ricardo Ciro's Achievements
0
Reputação
-
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.
-
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.
-
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
-
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
-
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.