Como declarar parametro Yes/No para actualizar BD
Publicado por Zeusovsky (1 intervención) el 10/02/2009 20:52:36
Tengo un Query en VBA pero necesito declarar una parametro en el query el query es embebido para que no se genere en la base de datos casa vez que lo accese. es para actualizar la base de datos mejor el codigo para que me entiendan
Public Sub UploadingRouting()
Dim X as Integer
Dim qryUploadInfo as QueryDef
x=MsgBox ("¿Desea cargar estos datos a la base?")
if x=7 then
Exit Sub
End if
Set dbsObj = DBEngine.Workspace(0).OpenDatabase ("C:FixturesAH-64 DATAApache.mbd")
'****************************************** Duda**********************************
Set qryUploadInfo = dbsObj.CreateQueryDef("","PARAMETERS parFixture Text, parUChannel (??????? aqui es donde no se como ponerle porque este campo en la base de datos es de tipo Yes/No pero no se si declararlo como Boolean, o Yes/No o como se declara.) ; " & _
"INSERT INTO FF VALUES ([parFixture], [parUChannel])")
'**********************************************************************************
qryUploadInfo.Parameters!parFixture = Worksheets("Capture").Cells(9,2).Value
qryUploadInfo.Parameters!parUChannel = Worksheets("Capture").Cells(11,2).Value
qryUploadInfo.Execute
qryUploadInfo.Close
dbsObj.Close
End Sub
Public Sub UploadingRouting()
Dim X as Integer
Dim qryUploadInfo as QueryDef
x=MsgBox ("¿Desea cargar estos datos a la base?")
if x=7 then
Exit Sub
End if
Set dbsObj = DBEngine.Workspace(0).OpenDatabase ("C:FixturesAH-64 DATAApache.mbd")
'****************************************** Duda**********************************
Set qryUploadInfo = dbsObj.CreateQueryDef("","PARAMETERS parFixture Text, parUChannel (??????? aqui es donde no se como ponerle porque este campo en la base de datos es de tipo Yes/No pero no se si declararlo como Boolean, o Yes/No o como se declara.) ; " & _
"INSERT INTO FF VALUES ([parFixture], [parUChannel])")
'**********************************************************************************
qryUploadInfo.Parameters!parFixture = Worksheets("Capture").Cells(9,2).Value
qryUploadInfo.Parameters!parUChannel = Worksheets("Capture").Cells(11,2).Value
qryUploadInfo.Execute
qryUploadInfo.Close
dbsObj.Close
End Sub
Valora esta pregunta


0