Postada em 23/04/2010 11:54 hs
Blz, vou colar o mesmo aqui, eu não criei variáveis ainda, deixei os campos por si só, veja:
If status = True Then abrebanco
strsql = "Insert into Janeiro(mes, desc1, v1, desc2, v2, desc3, v3, desc4, v4, desc5, v5, desc6, v6, desc7, v7, desc8, v8, desc9, v9, desc10, v10, desc11, v11, desc12, v12, desc13, v13, desc14, v14, desc15, v15)" & " Values('" & txtmes.Text & "' , '" & txtdesc1.Text & "' , " & txtv1.Text & " , '" & txtdesc2.Text & "' , " & txtv2.Text & " , '" & txtdesc3.Text & "' , " & txtv3.Text & " , '" & txtdesc4.Text & "' , " & txtv4.Text & " , '" & txtdesc5.Text & "' , " & txtv5.Text & " , '" & txtdesc6.Text & "' , " & txtv6.Text & " , '" & txtdesc7.Text & "' , " & txtv7.Text & " , '" & txtdesc8.Text & "' , " & txtv8.Text & " , '" & txtdesc9.Text & "' , " & txtv9.Text & " , '" & txtdesc10.Text & "' , " & txtv10.Text & " , '" & txtdesc11.Text & "' , " & txtv11.Text & " , '" & txtdesc12.Text & "' , " & txtv12.Text & " , '" & txtdesc13.Text & "' , " & txtv13.Text & " , '" & txtdesc14.Text & "' , " & txtv14.Text & " , '" & txtdesc15.Text & "' , " & txtv15.Text & " )" cnn.Execute strsql
acho que isso basta, deixando claro que os campos txtdescx é TEXTO, mas os campos txtvx são os campos do meu problema a resolver!
Samuka ;)
|