none
Inserir Novos Registros Atraves de Executavel RRS feed

  • Pergunta

  • 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 

    domingo, 22 de agosto de 2010 14:24

Respostas

Todas as Respostas