Jump to content
falcan

Add na bd com variaveis

Recommended Posts

falcan

Boas finalmente consegui add um BD ao VB2010 :) uffff .. bem agora queria sabe uma coisa ...

é assim a minha base de dados é feita para um espaço de internet... fiz um sistemas de contagem e alujamento ... ou seja , quando um pessoa entra inser-se o id numa textbox, toca-se no butão inserir , e depois , primese num butão que tem o nome do pc, o butão muda de cor , e quando passar 30 min muda outra vez para vermelhor para dizer que ja passou o tempo,

eu queria que quando tocarmos num butão do computador, envia-se o id da pessoa ( 1º textbox), o dia , as horas.

como faço isso ?

Share this post


Link to post
Share on other sites
Andrepereira9

envia-se o id da pessoa ( 1º textbox), o dia , as horas.

como faço isso ?

Envia-se para onde??


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
Andrepereira9

A BD é em Acess ou SQL?


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
falcan

no VB2010... conectei a BD... feita no Acess....

Criar uma base de dados, de entradas e saidas de um espaço internet

Tabelas: 2

Tabelas

Utilizadores ( num_ut, prinome, segnome, bi, datanas, nac, idad, sexo) - num_ut é PK

Ent_ut(  num_ut, nument , ddata) Ambos são PK e FK

Entrada (num_ent, ddata, num, entr, sai) o num_ent e ddata é PK

não sei se assim esta bom .... tipo um utilizador pode entar varias vezes ao dia, e uma entrada pode ter muitos utilizadores....

vejam la .... isto esta muito BD devia estar noutro lugar ... mas como é tambem soubre o VB ... não sei

Share this post


Link to post
Share on other sites
Andrepereira9

Podes fazer assim

Antes de tudo, metes

Imports System.Data.OleDb

Depois no botão metes

Dim ligação As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Documents and Settings\Administrador\Ambiente de trabalho\BD.accdb;Persist Security Info=False;" ' Indica o caminho para a tua BD

Dim Sql As String = "Insert into NomeTabela ([iD], [Dia], [Hora]) Values (@ID, @Dia, @Hora);" ' Inidica o Nome da Tabela e os valores a adicionar

Dim connection As New OleDbConnection(ligação)

Dim command As New OleDbCommand(Sql, connection)

command.Parameters.Add("@ID", OleDbType.VarChar).Value = TextBox1.text
command.Parameters.Add("@Dia", OleDbType.VarChar).Value = TextBox2.text
command.Parameters.Add("@Hora", OleDbType.VarChar).Value = TextBox3.text

connection.Open()

Dim x As Integer = command.ExecuteNonQuery()
   If x < 1 Then
        MessageBox.Show("Ocorreu em erro!")
   Else
        MessageBox.Show("Adicionado com Sucesso!")
   End If

connection.Close()
connection = Nothing
command = Nothing

VB.NET: Gestão de Dados em SQL Server - Parte I

VB.NET: Gestão de Dados em SQL Server - Parte II


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
falcan

uaaaa.... não persebia o codigo ... pensava que era mais basico como mover os registos e adicionar atravez de um textbox.... ufff.... so com um ou dois codigos... mas pronto... da para dar uma explicada plz ....

Share this post


Link to post
Share on other sites
falcan

O.o .... isso tudo ... ufff vida de programador não é facil ... lol bem la vai ....

Obrigado a todos :)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.