• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Sir Pereira

Base de dados em programa

1 mensagem neste tópico

Boas pessoal, recebi esta dúvida por PM da parte de lilifelipa; pelo que percebi ela não sabe postar, por isso ou falem com ela por PM's ou não sei :D de qualquer maneira vou dar-lhe a indicação do tópico.

Mensagem:

oi...

Estou a entrar em desespero já porque estou

fazendo um trabalho para a escola que é a minha

prova final de ano e sem ela ñ termino meu

curso...

e Faltam apenas 3 dias e tenho muitos erros por

resolver

o meu trabalho é constituido por uma base de dados

feita em sql server 2005 e tambem um "programa" em

vb.net.

Este programa tem como função fazer a gestão dos

equipamentos de informatica. ou seja controle de

stocks, entradas, saidas, fornecedores,

requisitantes....

Tem como funcionaidades o guardar, eliminar, novo,

mostrar, novo e alterar. Já fiz todas as janelas

no vb e já criei a base de dados, e a interligação

entre eles. Ate aqui tudo bem. mas agora quando

ponho o programa a correr da-me varios erros...

Començando pelo gravar que tem o seguinte codigo.

Private Sub btnGrava_Click(ByVal sender As

System.Object, ByVal e As System.EventArgs)

Handles btnGrava.Click

Dim str As String

Dim dt As DataTable

Dim cod As Integer

Try

'Calcula o código a atribuir ao novo artigo

str = "SELECT MAX(codTipoArtigo) as codigo FROM

tipoArtigo"

dt = executaQueryString(str,

operacaoBD.Seleccionar)

If Not IsNothing(dt) Then

cod = IIf(IsDBNull(dt.Rows(0)("codigo")), 0,

dt.Rows(0)("codigo"))

cod += 1

Else

cod = 1

End If

'constroi o comando para inserir um registo na BD

e executa o comando

str = "INSERT INTO tipoArtigo

(codTipoArtigo,descricao) VALUES (" & cod.ToString

& ",'" & txtDescricao.Text & "')"

dt = executaQueryString(str, operacaoBD.Inserir)

MsgBox("Tipo de artigo gravado com sucesso.",

MsgBoxStyle.Information + MsgBoxStyle.OkOnly,

"Tipo de Artigo")

Exit Sub

Catch ex As Exception

MsgBox(Err.Description, MsgBoxStyle.Exclamation +

MsgBoxStyle.OkOnly, "Erro")

End Try

End Sub

---eu ñ sei como publicar as minhas duvidas por isso é que te enviei a mensagem depois de ver algumas das tuas respostas... sou novata neste site s m puderes dar uma ajuda seria optimo

obrigada  ;)

Cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora