SALVAR DADOS DO MSFLEXGRID


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: SALVAR DADOS DO MSFLEXGRID

Conexao

SÃO PAULO
SP - BRASIL

Postada em 19/09/2007 08:39 hs

OLA

COMO SALVAR O CONTEUDO DO MSFLEXGRID NO BANCO DE DADOS ACCESS

ghost_jlp

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 19/09/2007 09:19 hs

1 jeit, basicamente, seria esse:

'Na seção declarations do form ou modulo

Dim Cnn as ADODB.Connection

'No evento form load do form principal ou uma procedure de um módulo

Set Cnn = New ADODB.Connection

Cnn.CursorLocation = adUseClient

Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:|meuMDB.mdb"

'No evento click do botão "salvar dados"

sSQL01 = "INSERT INTO TABELA (NOME) VALUES ('"

for i = 0 to flexgrid.rows -1

sSQL02 = sSQL01 & flexgrid.TextMatrix(i,2) & "')"

'2 = coluna que contém por exemplo o nome

Cnn.Execute sSQL02

next i

espero que ajude

at+

Conexao

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 19/09/2007 09:25 hs

olá como vai você

teria um exemplo pratico para me passar pois estou aprendendo ainda

os códigos para acessar o banco de dados e este

Private Sub Form_Load()
    Set ws = DBEngine.Workspaces(0)
    Set db = ws.OpenDatabase(App.Path & "anco.mdb", False, False)
    Set tb = db.OpenRecordset("tbl_cliente_geral", dbOpenTable)
    If tb.RecordCount = 0 Then
       txtcodigo.Text = 1
       txtcodigo.Enabled = False
       Call Travar_Botoes
       CmdCancelar.Enabled = False
       tb.AddNew
    Else
       Call Mostrar_Dados
       Call Travar_Tela
       Call Destravar_Botoes
    End If

End Sub

ghost_jlp

SÃO PAULO
SP - BRASIL

Postada em 19/09/2007 09:31 hs

Este que passei é um exemplo prático... só mudar de cnn.execute sSQL02 para bd.execute sSQL02. Só que você vai ter que elaborar mais a SQL.

tb.AddNew vc só usa no momento de gravar. No evento click do botão "gravar dados" por exemplo.

tb.AddNew

tb!Nome = txtNome.text

tb.Update

Esse trecho de código é a mesma coisa que o código que passei, mudaria isso:

for i = 0 to flexgrid.rows -1

tb.AddNew

tb!Nome = flexgrid.TextMatrix(i,2) '2 = coluna que contém por exemplo o nome

tb.Update

next i

Recomendo por SQL como o primeiro exemplo para vc pegar o jeito da coisa.

Qualquer problema posta ae.

at+

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR