Query Vb

[Guest - filipe -]

Boas

estou a fazer um programa em vb6 que consiste em inserir os registos de uma base de dados conforme o dia do mês. Para tal usei uma combo box (dia) e quero inserir na bd num campo um determinado valor em função do dia. A ligação é feita através de ado. Aqui vai um excerto do script........

Private Sub cminserir_Click()

Dim dia As Single

Dim campo As Single

Dim reserva As String

dia = Combo1.Text

campo = Combo1.Text

reserva= Combo1.Text

Adodc1.RecordSource = "insert into tenis(&campo) values (&reserva) where dia=" & dia

Adodc1.Refresh

End Sub

Esta query dá erro, desculpem a minha ignorância mas tenho pouca prática em vb

Desde já agradeço..

[lcs_sp]

tente "insert into tenis(" & campo & ") values (" & reserva & ") where dia=" & dia

[Guest Visitante]

boas

tentei dessa maneira mas apareceu erro na mesma...diz que falta o ";"......a segir tentei com o ponto e virgula mas aparece sempre o mesmo erro.. :huh:

[kuroi]

o que você quer fazer?? inserir (insert) um registro novo ou atualizar (update) um que já existe??

porque em insert não existe where.

ou você faz assim:

Adodc1.RecordSource = "insert into tenis(" & campo & ") values (" & reserva & ")"

ou você faz assim:

Adodc1.RecordSource = "Update tenis Set " & campo & " = " & reserva & " where dia=" & dia

[Guest Visitante]

tem toda a razão...mas agora já consegui resolver o problema da query mas aparece o seguinte erro...não pode efectuar esta operação com o objecto fechado...mesmo se usar o método .OPEN diz que não posso efectuar esta operação com o objecto aberto ...alguém sabe qual o procedimento correcto?????