abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
Dim sql
|
As String
|
db (1)
|
Connection1 (1)
|
Set Cmd = (1)
|
New ADODB.Command (1)
|
sql =
|
"INSERT INTO [dbo].[tablamensa] "
|
With Cmd (1)
|
.ActiveConnection = cnn (1)
|
With Cmd (2)
|
.CommandType = adCmdText (2)
|
With Cmd (3)
|
.CommandText = sql (3)
|
With Cmd (4)
|
.Execute (4)
|
End
|
With
|
Set Cmd = (2)
|
Nothing (2)
|
db (2)
|
Disconnect1 (2)
|
MsgBox
|
"Registro exito"
|
Otros juegos similares:
Otros juegos similares:
Otros juegos similares:
