Bom dia Pessoal, estou com a seguinte duvida:

 

Como faço para salvar um registro ou adicionar um novo registro no BD usando os comandos SQL no VB sem usar por exemplo:

 

BD.Delete (Comando do VB)

 

BD.Post

 

gostaria de usar o comando do SQL, vamos dizer que quero salvar o codigo e o nome do usuario como faria??? Tenho que recuperar os dados que estao na propriedade text dos dois componentes e jogar em uma variavel????

 

Fico aguardando!!!

Tente assim

 

Global wrkodbc As Workspace
Global conPubs As Connection
' Coloque nas variaveis  dns, usuario_sql e senha_sql o que voce for usar

 

    Set wrkodbc = CreateWorkspace("Sistema", _
        "", "", dbUseODBC)
    Set conPubs = wrkodbc.OpenConnection("Connect", _
        , , "ODBC;DATABASE=" & dns & ";UID=" & usuario_sql & ";PWD=" & senha_sql & ";DSN=" & dns)

Para gravar

conec.Execute " INSERT INTO tabela  " & _
            " ( codigo, nome) VALUES " & _
            " ( 1, 'nome');"

 

Para deletar

 conec.Execute " DELETE tabela where " & _
            "codigo = 1"

 

Para Regravar

            conec.Execute " UPDATE tabela" & _
            " SET codigo = 1, nome = 'joao' " & _
            " WHERE codigo = 1;"

O mehlor seria criar modulos com as rotinas.

 

Espero que ajude

Fragasj,

 

   Existem várias maneiras ...

   A que eu acho mais legal é usando o "Command":

 

-----------------------------------------

Public Sub CommandText(strTexto As String)
'rotina que seta os parâmetros do objeto command. _

Ela recebe o texto do command e o executa
    Dim cmdtexto As Command
    Set cmdtexto = New Command
    cmdtexto.ActiveConnection = cnnConexaoAtiva
    cmdtexto.CommandType = adCmdText
    cmdtexto.CommandText = strTexto
    cmdtexto.Execute
    Set cmdtexto = Nothing
End Sub

-----------------------------------------

 

      Você passa um destes comandos: INSERT, UPDATE ou DELETE (obrigatório NÃO ter erros) e a rotina dispara a query na conexão que você está trabalhado (precisa indicar para ela em "cmdtexto.ActiveConnection = "). Se vc quiser fazer SELECT nela precisa mudar de SUB para FUNCTION e fazer que ela devolva um RECORDSET.

 

[]'s,

Tunusat.