[Movendo site com o mouse]

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.

[Conectando com banco mbf na rede]

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.

[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

[Select]

E só colocar uma clausula no seu Select.

"SELECT NOME, ENDEREÇO, TELEFONE FROM DADOS WHERE ID = "& txtCodigo.Text

Neste caso ele pega o valor do Id de um TextBox com o nome txtCodigo.

Falows

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

[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.