Inserir Novos Registros Atraves de Executavel

Question

Olá , podem ajudar ?

Sou novato no VB , preciso adicionar novos registro na tabela .

Private Sub Command1_Click()
Dim con As ADODB.Connection, rs As ADODB.Recordset

Set con = New ADODB.Connection

con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\bancos\bd1.mdb"

Set rs = New ADODB.Recordset

rs.Open "SELECT *FROM TBLIN", con, adOpenKeyset, adLockReadOnly

.AddNew
rs.Fields(0) = TXT1.Text

rs.Close
con.Close
Set rs = Nothing
Set con = Nothing

End Sub

Grato;

Bruno 

Answer 1

Bruno,

 

Faça assim:

http://www.forumweb.com.br/foruns/index.php?/topic/5205-inserir-registro-com-o-command/

 

Abraço,

 

---

Ricardo Alves
www.ricardoalves.me

Se for útil, por favor marque ;)

Answer 2

Bruno,

Só pra confirmar, você está utilizando VB6, né? Porque, se estiver utilizando VB.NET, não utilize ADO, mas sim ADO.NET!

http://www.macoratti.net/vbna_cp1.htm

Agora, se for VB6, acredito que a dica do Ricardo resolva seu problema...

---

André Alves de Lima
Visite o meu site: http://andrealveslima.spaces.live.com
Me siga no Twitter: @andrealveslima