COMO INSERIR DADOS
Não consegui entender nada dos código e aquelas bibliotecas do VS2005, não teria uma códido mais simples como no VB6 ?
Voce pode fazer o seguinte...
como voce fez um modulo,deixe la a string de conexao...
No modulo..
[ô]Adiciona esse nameSpace
Imports System.Data.OleDB
Module Modulo_teste
[ô]A conexao deve ser publica para ser acessada em qualquer parte do projeto
Public oCon as new SqlConnection([Ô]SUA_STRING_DE_CONEXAO[Ô])
End Module
Agora dentro do form vou colocar pelo menos 2 textbox apenas para inserir os valores,voce tenta seguir o exemplo:
[ô]Name space dentro do Form
Imports System.Data.OleDb
Dentro de uma Sub
Sub s_gravaValores()
[ô]Tenta seguir a instrução,é igual o On error Goto Next do VB6
Try
if(oCon.state = Connection.Broken or oCon.State = Connection.Cloed) Then
oCOn.Open()
End If
using Comando as new OleDbCommand([Ô]INSERT INTO TABELA(CMP1,CMP2) VALUES([ô][Ô] & textbox1.text & [Ô][ô],[ô][Ô] & textbox2.text & [Ô][ô])[Ô],oCon)
Comando.ExecuteNonQuery()
End Using
Catch ex As Exception
Msgbox([Ô]Erro: [Ô] & err.Description)
Finally
oCon.Close()
End try
End Sub
------------
Vesse é disso que precisa..
como voce fez um modulo,deixe la a string de conexao...
No modulo..
[ô]Adiciona esse nameSpace
Imports System.Data.OleDB
Module Modulo_teste
[ô]A conexao deve ser publica para ser acessada em qualquer parte do projeto
Public oCon as new SqlConnection([Ô]SUA_STRING_DE_CONEXAO[Ô])
End Module
Agora dentro do form vou colocar pelo menos 2 textbox apenas para inserir os valores,voce tenta seguir o exemplo:
[ô]Name space dentro do Form
Imports System.Data.OleDb
Dentro de uma Sub
Sub s_gravaValores()
[ô]Tenta seguir a instrução,é igual o On error Goto Next do VB6
Try
if(oCon.state = Connection.Broken or oCon.State = Connection.Cloed) Then
oCOn.Open()
End If
using Comando as new OleDbCommand([Ô]INSERT INTO TABELA(CMP1,CMP2) VALUES([ô][Ô] & textbox1.text & [Ô][ô],[ô][Ô] & textbox2.text & [Ô][ô])[Ô],oCon)
Comando.ExecuteNonQuery()
End Using
Catch ex As Exception
Msgbox([Ô]Erro: [Ô] & err.Description)
Finally
oCon.Close()
End try
End Sub
------------
Vesse é disso que precisa..
OK !
Vou testar!
Vou testar!
Não deu certo esse passo-a-passo, estou usando o Access 2003.
Olhando seu código vi algumas coisas:
Aqui NÃO precisa de parênteses:
Coloque o [txt-color=#0000f0]conecta.close()[/txt-color] dentro do procedimento Desconectar() pois se a conexão ainda não estiver feita vai dar erro
Faça o teste de conexão assim:
Public Sub testaconexao()
Try
Conectar()
MsgBox([Ô]Conexão realizada com sucesso!!![Ô])
Catch ex As Exception
MsgBox([Ô]Não foi possÃvel conectar o banco de dados[Ô])
Finally
Desconectar()
End Try
End Sub
e no INSERT o nome da tabela NÃO deve ficar entre aspas simples: [ô]aluno[ô]
[c]insert into aluno('ID_Aluno','Data_do_Cadastro','Nome_do_Aluno','Data_de_Nascimento','Turma','PerÃodo','Tipo_de_Alergia','Qual_Horário_das_Refeições','Quando_teve_Convulção_ou_Desmaio','Qual_remédio_tomar_para_Febre','Alimenta_se_Sozinha','Aluno_Nervoso','Nome_do_Pai','RG_do_Pai','Pai_Trabalha','Nome_da_Mãe','RG_da_Mãe','Mãe_Trabalha','Endereço','Telefone') values (??????)
Outra coisa importante: evite colocar palavras acentuadas em nomes de variáveis e em nome de campo de tabelas
Aqui NÃO precisa de parênteses:
conecta.ConnectionString = ([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrador\Meus documentos\Visual Studio 2010\Projects\Escolinha\Escolinha\Escola.mdb[Ô])Coloque o [txt-color=#0000f0]conecta.close()[/txt-color] dentro do procedimento Desconectar() pois se a conexão ainda não estiver feita vai dar erro
Faça o teste de conexão assim:
Public Sub testaconexao()
Try
Conectar()
MsgBox([Ô]Conexão realizada com sucesso!!![Ô])
Catch ex As Exception
MsgBox([Ô]Não foi possÃvel conectar o banco de dados[Ô])
Finally
Desconectar()
End Try
End Sub
e no INSERT o nome da tabela NÃO deve ficar entre aspas simples: [ô]aluno[ô]
[c]insert into aluno('ID_Aluno','Data_do_Cadastro','Nome_do_Aluno','Data_de_Nascimento','Turma','PerÃodo','Tipo_de_Alergia','Qual_Horário_das_Refeições','Quando_teve_Convulção_ou_Desmaio','Qual_remédio_tomar_para_Febre','Alimenta_se_Sozinha','Aluno_Nervoso','Nome_do_Pai','RG_do_Pai','Pai_Trabalha','Nome_da_Mãe','RG_da_Mãe','Mãe_Trabalha','Endereço','Telefone') values (??????)
Outra coisa importante: evite colocar palavras acentuadas em nomes de variáveis e em nome de campo de tabelas
Já achei um jeito! obrigado a todos pela atenção, estou encerrando o Tópico.
Tópico encerrado , respostas não são mais permitidas