boas
é o seguinte estou a desenvolver um projecto de iniciação ao asp.net.
Se fosse possivel gostaria que alguem me arranjasse o código para o inserir, apagar, alterar e visualizar com ligação a uma base de dados(access). se fosse possivel arranjar um programita com essas funcionalidades agradecia. eu estou a utilizar o Microsoft Visual Studio 2008 e estou a trabalhar no visual basic.
desde ja agradeço a ajuda que me possam prestar
Para isso o melhor é clicares
Aqui.
Penso que te será util.
(03-02-2010 19:31)RaCcOn Escreveu: [ -> ]Para isso o melhor é clicares Aqui.
Penso que te será util.
Raccon, foi cmg que aprendeste o Let me google that for you ??
Fixe não? Grandes respostas a grandes soluções ....
(03-02-2010 23:22)xOy Escreveu: [ -> ] (03-02-2010 19:31)RaCcOn Escreveu: [ -> ]Para isso o melhor é clicares Aqui.
Penso que te será util.
Raccon, foi cmg que aprendeste o Let me google that for you ??
Fixe não? Grandes respostas a grandes soluções ....
Ora nem mais, os direitos da descoberta são teus sem qualquer duvida!
hehe
Opah, só fico lixado com este pessoal que vem logo a correr fazer perguntas e nem trás nada feito, é logo a pedir pedaços de código para fazer isto e aquilo...Devem de pensar que assim aprendem alguma coisa!grrrr
a minha duvida e mesmo onde por a linha de codigo para
em anexo envio o programa tal como ele esta
http://rapidshare.com/files/346174607/PA...l.rar.html
eu ja tentei de varias formas. como esta ai esta-me a dar erro ao inserir dados na base de dados
o erro e o seguinte:
Citar:Line 30: Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Line 31:
Line 32: sql = "INSERT INTO nome_tabela(codigo, nome, data_nascimento, morada, localidade,codpostal, bi, contacto, mail, ano, turma, sexo, pass)" & " values ('" & codigo.Text & "', '" & nome.Text & "', '" & data_nascimento.Text & "', '" & morada.Text & "', '" & localidade.Text & "', '" & codpostal.Text & "', '" & bi.Text & "', '" & contacto.Text & "', '" & mail.Text & "', '" & ano.Text & "', '" & turma.Text & "', '" & sexo.Text & "', '" & pass.Text & "')"
Line 33:
Line 34:
se alguem me puder ajudar agradecia imenso
Podes passar qual a connection string?!
Não estou com tempo para fazer o download do teu código.
este e o codigo que tenho para fazer a ligação a base de dados
Citar:Imports System.Data.OleDb
Imports System.IO.Stream
Imports System.IO
Partial Public Class WebForm1
Inherits System.Web.UI.Page
Dim codigo, nome, data_nascimento, morada, localidade, codpostal, bi, contacto, mail, ano, turma, sexo, pass As TextBox
Dim cn As OleDbConnection
Dim cmd As OleDbCommand
Dim dr As OleDbDataReader
Dim sql As String
Dim strconeccao As String
Dim userMsg As String
Dim ds As DataSet
Dim dc As DataColumn
Dim da As OleDbDataAdapter
Dim t As String
Dim objConnection As OleDbConnection 'declara objecto para conexão
Dim connString As String
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
ligarbd()
End Sub
Sub ligarbd()
connString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE= C:\Documents and Settings\Filipe\Ambiente de trabalho\PAP\Projectos\PAP\Exame_online.mdb"
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
sql = "INSERT INTO aluregis(codigo, nome, data_nascimento, morada, localidade,codpostal, bi, contacto, mail, ano, turma, sexo, pass)" & " values ('" & codigo.Text & "', '" & nome.Text & "', '" & data_nascimento.Text & "', '" & morada.Text & "', '" & localidade.Text & "', '" & codpostal.Text & "', '" & bi.Text & "', '" & contacto.Text & "', '" & mail.Text & "', '" & ano.Text & "', '" & turma.Text & "', '" & sexo.Text & "', '" & pass.Text & "')"
'sql = "insert into aluregis values(" & " '" & codigo.Text & "'," & " '" & nome.Text & "'," & " '" & data_nascimento.Text & "'," & "'" & morada.Text & "'," & "'" & localidade.Text & "'," & "'" & codpostal.Text & "'," & "'" & bi.Text & "'," & "'" & contacto.Text & "'," & "'" & mail.Text & "'," & "'" & ano.Text & "'," & "'" & turma.Text & "'," & "'" & sexo.Text & "'," & "'" & pass.Text & "')"
ligarbd()
objConnection.Open() 'abre a conexão
objConnection = New OleDbConnection(connString) 'cria conexão
Try
cn = New OleDb.OleDbConnection(connString)
cn.Open()
cmd = New OleDbCommand(sql, cn)
cmd.ExecuteNonQuery()
Catch ex As Exception
Response.Write(ex.ToString)
Finally
cn.Close()
End Try
MsgBox("O Aluno " & nome.Text & " foi inserido com sucesso")
'limpar()
End Sub
problema resolvido. Como?
o problema e que eu tinha inserido input:textbox e tem que ser asp:textbox e nao dava para enviar a informação.
mas obrigado na mesma.
novo problema
estava aqui a tentar fazer no load do formulario apos ter feito o login aparecer a informação respectiva do aluno. ou seja faço o login de seguida redirecciona para uma página, pagina essa que tem um menu ao carregar em ver informaçoes queria que aparecesse nas respectivas textbox mas não sei o que hei-de fazer mais.
ja tenho este código
Citar: Dim a As String
a = Microsoft.VisualBasic.InputBox("Qual o Software que pertende Pesquisar?", "Pesquisar", "Escreva o código do software aqui")
sql = "select * from software where codigo=" & a
ligarbd()
Try
cn = New OleDb.OleDbConnection(strconeccao)
cn.Open()
cmd = New OleDbCommand(sql, cn)
dr = cmd.ExecuteReader()
'dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
If dr.Read Then
Me.txtcodigo.Text = dr("codigo")
Me.txtnome.Text = dr("nome")
Me.txtdatanascimento.Text = dr("data_nascimento")
Me.txtmorada.Text = dr("morada")
Me.txtlocalidade.Text = dr("localidade")
Me.txtcodpostal.Text = dr("codpostal")
Me.txtbi.Text = dr("bi")
Me.txttelefone.Text = dr("contacto")
Me.txtemail.Text = dr("mail")
Me.txtano.Text = dr("ano")
Me.txtturma.Text = ("turma")
Else
MsgBox("Aluno invalido ou inexistente", MsgBoxStyle.Critical, "Informação")
End If
cn = Nothing
Catch ex As Exception
cn = Nothing
'MsgBox(Err.Description)
End Try
estou a utilizar a
Citar: a = Microsoft.VisualBasic.InputBox("Qual o Software que pertende Pesquisar?", "Pesquisar", "Escreva o código do software aqui")
mas e so para testar
quem me puder ajudar agradecia