MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Inserir dados sql server

    maguim
    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 446
    Registrado : 15/05/2013

    Inserir dados sql server Empty Inserir dados sql server

    Mensagem  maguim em 22/6/2019, 15:57

    bom dia amigos...


    estou estudando aqui como inserir dados no sql server. achei alguns exemplos, porem não compreendi muito.

    fiz um script aqui que esta dando erro se alguém poder me dar um luz?

    Código:
    Dim conexao As ADODB.Connection

    Dim Rst As Recordset

    Set conexao = New ADODB.Connection
    conexao.ConnectionString = "ODBC,DESCRIPTION=TESTE;DRIVER=SQL Server;Server=M238-NB\SQLEXPRESS;Trusted_Connection=Yes;Database=PROJETO_CIC;TABLE=dbo.PROGRAMAS"
    conexao.Open

    Set Rst = conexão.Execute("INSERT INTO ([ID_GERAL]) values('" & Me.txt_1 & "')")
    conexão.Close

    abraços


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised
    maguim
    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 446
    Registrado : 15/05/2013

    Inserir dados sql server Empty Re: Inserir dados sql server

    Mensagem  maguim em 23/6/2019, 17:11

    bom.... meus amigos eu consegui uma solução:
    Código:
    Dim cnn As New ADODB.Connection
    Dim conexao As String

    Set cnn = New ADODB.Connection
    cnn = "ODBC,DESCRIPTION=TESTE;DRIVER=SQL Server;Server=M238-NB\SQLEXPRESS;Trusted_Connection=Yes;Database=PROJETO_CIC;"
    cnn.Open

    cnn.Execute ("INSERT INTO dbo.PROGRAMAS (ID_GERAL) VALUES  (" & Me.txt_1 & ")")

                   
    MsgBox "cadastrado"



    Porem queria saber se tem a possibilidade de fazer igual DAO.recordset

    tipo assim só que em sql server?


    Código:
    Dim db As DAO.Database
    Dim rs As DAO.Recordset


    Set db = CurrentDb()
        Set rs = db.OpenRecordset("BANCODEDADOSCENTRAL") 'inseri na tabela
        rs.AddNew
        rs("CODPASTA") = Me.COD
        rs("DATA") = Me.DT
        rs.Update
        rs.Close: Set rs = Nothing
        db.Close: Set db = Nothing





    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised

      Data/hora atual: 16/9/2019, 01:52