INSEIR DADOS TABELA ACCES VIA VS 2008

BRUNOJUL 01/09/2011 10:42:21
#383056
Olá podem auxiliar ?

Com a aleração de Vb6 para VS 2008 como insiro dados adicionais na tabela do access ?

no Vb6 inseria desta forma .

Set rs = New ADODB.Recordset
rs.Open [Ô]TBL_PRINCIPAL[Ô], con, adOpenKeyset, adLockOptimistic, adCmdTable [ô] Todos os registros da tabela

With rs
.AddNew [ô]insere novo registro no banco de dados

[ô]adiciona valores para cada campo na tabela
[ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô]
.Fields(1) = Me.txt_1.Text
.Fields(2) = Me.txt_2.Text [ô]

.Update [ô]atualiza o novo registro

End With

No VS 2008 como utilizo para o rs.addnew ?

grato;
ALTAIR148 01/09/2011 11:00:22
#383062
Bom dia,

Amigo dá uma olhada nesse artigo.

[url=http://www.linhadecodigo.com/artigo.aspx?id=147Artigo[/url]

Até mais.
BRUNOJUL 01/09/2011 17:12:14
#383110
Fiz a leitura e não consegui o que preciso , tem outro artigo ou consegue ajudar ?
ALTAIR148 01/09/2011 17:18:48
#383113
Um exemplo:


Dim ConnectionString As New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0; Data Source=[Ô] & Application.StartupPath & [Ô]\BD.mdb[Ô])
Dim query As String = [Ô]INSERT INTO Clientes([Nome], [Empresa]) VALUES (@Nome, @Empresa)[Ô]
 
Dim command As New OleDbCommand(query, ConnectionString)
 
command.Parameters.Add([Ô]@Nome[Ô], OleDbType.VarChar).Value = NomeTextbox.Text
command.Parameters.Add([Ô]@Empresa[Ô], OleDbType.VarChar).Value = EmpresaTextbox.Text  
 
ConnectionString.Open()
 
Dim x As Integer = command.ExecuteNonQuery()

 
If x < 1 Then
     MessageBox.Show([Ô]Erro ao inserir[Ô], My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
     MessageBox.Show([Ô]Registo inserido com sucesso![Ô], My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
 
ConnectionString.Close()
command = Nothing



Fonte: http://wiki.portugal-a-programar.org/dev_net:vb.net:access

Até mais.
MAXGUIMEL 01/09/2011 21:09:39
#383138 Resposta escolhida
Cara eu faço assim:

[ô]cria um objeto command e grava registro no banco
OleCidades = New OleDbCommand([Ô]insert into Cidade(NomeCidade,Estado) values([ô][Ô] & TxtCidade.Text & [Ô][ô],[Ô] & _
[Ô][ô][Ô] & TxtEstado.Text & [Ô][ô])[Ô], OpenDB)
[ô]define um data adapter
AdapterCidades = New OleDbDataAdapter()
AdapterCidades.SelectCommand = OleCidades
TbCidades = New DataTable()
AdapterCidades.Fill(TbCidades)

Ve se ajuda, abraços!
Tópico encerrado , respostas não são mais permitidas
Voltar