Inserir múltiplos registros com ASP

[Castelo 0]

Galera... estou com problemas em "criar" uma forma que não dê erros para gravar registros numa mesma "tabela" do banco de dados...

 

O esquema é o seguinte...

 

Vou inserir mais de um "registro" ao mesmo tempo na tabela... com os mesmos campos... como um lançamento de dados... registros que serão "automaticamente" criados pelo ACCESS... isso é possível? Alguém já fez?

 

qualquer coisa... meu MSN é castelo@canaljelb.pro.br

[Mário Monteiro 179]

como asim ao mesmo tempo??você não pode inserir um apos o outro com um loop ou simplesmente um seguido do outro?

[Castelo 0]

Opa... achei que seria impossível... mas to vendo que o projeto vai andar... Eu trabalho numas escola pública... ai to tentando automatizar via "ASP" um sistema para lançamento das notas bimestrais e por final... emissão de boletim e ficha individual... O cadastro de turmas... disciplina e alunos... já tá funcionando... agora... só preciso acertar esse detalhe das notas... não sou expert em ASP... por isso preciso de algumas dicas sobre como construir a "instrução" que ira gravar os registros em "massa"...Vou filtrar todos alunos de uma turma... cada aluno com sua "ID" e num campo de texto lançar a nota de cada aluno... e isso numa tela só... para uma turma... Por esse motivo vão ser registros em "massa". Fico desde já agradecido pelos que estão ajudando...

[calexandrep 0]

O mais importante é: Todos os alunos estão em uma mesma tabela?

[Reginaldo 0]

ai fera.. é facil... usa isso:

e se você não tiver o Adovbs.inc me da um toque que eu te mando...

 

<%@ Language=VBScript%><%Set BdUsuario=Server.CreateObject("Adodb.connection")BdUsuario.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("celular/banco.mdb")Set RecUsuario = Server.CreateObject("ADODB.Recordset")RecUsuario.Activeconnection=BdUsuarioRecUsuario.Cursortype=adOpenkeyset%><!-- #include file="Adovbs.inc"--><%RecUsuario.Locktype=adlockOptimisticRecUsuario.Source="usuarios"Nome=Request.form("Nome")If (Nome = "") then       Response.write ("Preencha tudo corretamente!")%><p align="center"> <a href="cadastro.html"><font color="#FF0000" face="Geneva, Arial, Helvetica, sans-serif">Voltar</font></a>  <%       Else RecUsuario.openRecUsuario.addnewRecUsuario("Nome")=request.form("Nome")RecUsuario("Telefone")=request.form("Tel")RecUsuario("Idade")=request.form("Idade")  RecUsuario("Cidade")=request.form("Cidade")RecUsuario("Email")=request.form("Email")RecUsuario("Login")=request.form("Login")RecUsuario("Senha")=request.form("Senha")RecUsuario.updateResponse.write("Seja Bem vinda(o) á Josefina! entre agora com usuario e senha")Response.Redirect "index_home.html"BdUsuario.closeSet BdUsuario=nothingEND IF%>

[Castelo 0]

Poxa... que beleza... gostei de ver o pessoal empenhado... mas não tenho o Adovbs.inc ... pode mandar para o meu MSN castelo@canaljelb.pro.br.

 

Valeu Galera...

[Reginaldo 0]

opa acho q entendi mal... todos os alunos de uma vez só ? você vai gravar como novos registros ? ou vai atualizar registros existentes ?

[Castelo 0]

O mais importante é: Todos os alunos estão em uma mesma tabela?

Os alunos estão em uma tabela achamada ALUNOS e a tabela que vai receber os dados em "massa" é a tabela NOTAS... ou seja... pretendo gravar em massa... todas as notas de uma turma... crianda novos registros na PRIMEIRA vez que corresponderá ao 1º Bimestre.... nos bimestres seguintes... serão apenas atualizações com as notas do 2º, 3º e 4º Bimestres...

[Mário Monteiro 179]

Poxa... que beleza... gostei de ver o pessoal empenhado... mas não tenho o Adovbs.inc ... pode mandar para o meu MSN castelo@canaljelb.pro.br.

 

Valeu Galera...

este arquivo tem no windows, pesquisa pelo seu nome

[Castelo 0]

Xi galera... não sei se tá certo... mas aqui na escola o computador é windows 98 com PWS instalado... e não achei o arquivo...

[Mário Monteiro 179]

<%'--------------------------------------------------------------------' Microsoft ADO'' (c) 1996-1998 Microsoft Corporation.  All Rights Reserved.'''' ADO constants include file for VBScript''--------------------------------------------------------------------'---- CursorTypeEnum Values ----Const adOpenForwardOnly = 0Const adOpenKeyset = 1Const adOpenDynamic = 2Const adOpenStatic = 3'---- CursorOptionEnum Values ----Const adHoldRecords = &H00000100Const adMovePrevious = &H00000200Const adAddNew = &H01000400Const adDelete = &H01000800Const adUpdate = &H01008000Const adBookmark = &H00002000Const adApproxPosition = &H00004000Const adUpdateBatch = &H00010000Const adResync = &H00020000Const adNotify = &H00040000Const adFind = &H00080000'---- LockTypeEnum Values ----Const adLockReadOnly = 1Const adLockPessimistic = 2Const adLockOptimistic = 3Const adLockBatchOptimistic = 4'---- ExecuteOptionEnum Values ----Const adRunAsync = &H00000010Const adAsyncExecute = &H00000010Const adAsyncFetch = &H00000020Const adAsyncFetchNonBlocking = &H00000040Const adExecuteNoRecords = &H00000080'---- ConnectOptionEnum Values ----Const adAsyncConnect = &H00000010'---- ObjectStateEnum Values ----Const adStateClosed = &H00000000Const adStateOpen = &H00000001Const adStateConnecting = &H00000002Const adStateExecuting = &H00000004Const adStateFetching = &H00000008'---- CursorLocationEnum Values ----Const adUseServer = 2Const adUseClient = 3'---- DataTypeEnum Values ----Const adEmpty = 0Const adTinyInt = 16Const adSmallInt = 2Const adInteger = 3Const adBigInt = 20Const adUnsignedTinyInt = 17Const adUnsignedSmallInt = 18Const adUnsignedInt = 19Const adUnsignedBigInt = 21Const adSingle = 4Const adDouble = 5Const adCurrency = 6Const adDecimal = 14Const adNumeric = 131Const adBoolean = 11Const adError = 10Const adUserDefined = 132Const adVariant = 12Const adIDispatch = 9Const adIUnknown = 13Const adGUID = 72Const adDate = 7Const adDBDate = 133Const adDBTime = 134Const adDBTimeStamp = 135Const adBSTR = 8Const adChar = 129Const adVarChar = 200Const adLongVarChar = 201Const adWChar = 130Const adVarWChar = 202Const adLongVarWChar = 203Const adBinary = 128Const adVarBinary = 204Const adLongVarBinary = 205Const adChapter = 136Const adFileTime = 64Const adDBFileTime = 137Const adPropVariant = 138Const adVarNumeric = 139'---- FieldAttributeEnum Values ----Const adFldMayDefer = &H00000002Const adFldUpdatable = &H00000004Const adFldUnknownUpdatable = &H00000008Const adFldFixed = &H00000010Const adFldIsNullable = &H00000020Const adFldMayBeNull = &H00000040Const adFldLong = &H00000080Const adFldRowID = &H00000100Const adFldRowVersion = &H00000200Const adFldCacheDeferred = &H00001000Const adFldKeyColumn = &H00008000'---- EditModeEnum Values ----Const adEditNone = &H0000Const adEditInProgress = &H0001Const adEditAdd = &H0002Const adEditDelete = &H0004'---- RecordStatusEnum Values ----Const adRecOK = &H0000000Const adRecNew = &H0000001Const adRecModified = &H0000002Const adRecDeleted = &H0000004Const adRecUnmodified = &H0000008Const adRecInvalid = &H0000010Const adRecMultipleChanges = &H0000040Const adRecPendingChanges = &H0000080Const adRecCanceled = &H0000100Const adRecCantRelease = &H0000400Const adRecConcurrencyViolation = &H0000800Const adRecIntegrityViolation = &H0001000Const adRecMaxChangesExceeded = &H0002000Const adRecObjectOpen = &H0004000Const adRecOutOfMemory = &H0008000Const adRecPermissionDenied = &H0010000Const adRecSchemaViolation = &H0020000Const adRecDBDeleted = &H0040000'---- GetRowsOptionEnum Values ----Const adGetRowsRest = -1'---- PositionEnum Values ----Const adPosUnknown = -1Const adPosBOF = -2Const adPosEOF = -3'---- enum Values ----Const adBookmarkCurrent = 0Const adBookmarkFirst = 1Const adBookmarkLast = 2'---- MarshalOptionsEnum Values ----Const adMarshalAll = 0Const adMarshalModifiedOnly = 1'---- AffectEnum Values ----Const adAffectCurrent = 1Const adAffectGroup = 2Const adAffectAll = 3Const adAffectAllChapters = 4'---- ResyncEnum Values ----Const adResyncUnderlyingValues = 1Const adResyncAllValues = 2'---- CompareEnum Values ----Const adCompareLessThan = 0Const adCompareEqual = 1Const adCompareGreaterThan = 2Const adCompareNotEqual = 3Const adCompareNotComparable = 4'---- FilterGroupEnum Values ----Const adFilterNone = 0Const adFilterPendingRecords = 1Const adFilterAffectedRecords = 2Const adFilterFetchedRecords = 3Const adFilterPredicate = 4Const adFilterConflictingRecords = 5'---- SearchDirectionEnum Values ----Const adSearchForward = 1Const adSearchBackward = -1'---- PersistFormatEnum Values ----Const adPersistADTG = 0Const adPersistXML = 1Const adPersistHTML = 2'---- StringFormatEnum Values ----Const adStringXML = 0Const adStringHTML = 1Const adClipString = 2'---- ADCPROP_UPDATECRITERIA_ENUM Values ----Const adCriteriaKey = 0Const adCriteriaAllCols = 1Const adCriteriaUpdCols = 2Const adCriteriaTimeStamp = 3'---- ADCPROP_ASYNCTHREADPRIORITY_ENUM Values ----Const adPriorityLowest = 1Const adPriorityBelowNormal = 2Const adPriorityNormal = 3Const adPriorityAboveNormal = 4Const adPriorityHighest = 5'---- ConnectPromptEnum Values ----Const adPromptAlways = 1Const adPromptComplete = 2Const adPromptCompleteRequired = 3Const adPromptNever = 4'---- ConnectModeEnum Values ----Const adModeUnknown = 0Const adModeRead = 1Const adModeWrite = 2Const adModeReadWrite = 3Const adModeShareDenyRead = 4Const adModeShareDenyWrite = 8Const adModeShareExclusive = &HcConst adModeShareDenyNone = &H10'---- IsolationLevelEnum Values ----Const adXactUnspecified = &HffffffffConst adXactChaos = &H00000010Const adXactReadUncommitted = &H00000100Const adXactBrowse = &H00000100Const adXactCursorStability = &H00001000Const adXactReadCommitted = &H00001000Const adXactRepeatableRead = &H00010000Const adXactSerializable = &H00100000Const adXactIsolated = &H00100000'---- XactAttributeEnum Values ----Const adXactCommitRetaining = &H00020000Const adXactAbortRetaining = &H00040000'---- PropertyAttributesEnum Values ----Const adPropNotSupported = &H0000Const adPropRequired = &H0001Const adPropOptional = &H0002Const adPropRead = &H0200Const adPropWrite = &H0400'---- ErrorValueEnum Values ----Const adErrInvalidArgument = &Hbb9Const adErrNoCurrentRecord = &HbcdConst adErrIllegalOperation = &Hc93Const adErrInTransaction = &HcaeConst adErrFeatureNotAvailable = &Hcb3Const adErrItemNotFound = &Hcc1Const adErrObjectInCollection = &Hd27Const adErrObjectNotSet = &Hd5cConst adErrDataConversion = &Hd5dConst adErrObjectClosed = &He78Const adErrObjectOpen = &He79Const adErrProviderNotFound = &He7aConst adErrBoundToCommand = &He7bConst adErrInvalidParamInfo = &He7cConst adErrInvalidConnection = &He7dConst adErrNotReentrant = &He7eConst adErrStillExecuting = &He7fConst adErrOperationCancelled = &He80Const adErrStillConnecting = &He81Const adErrNotExecuting = &He83Const adErrUnsafeOperation = &He84'---- ParameterAttributesEnum Values ----Const adParamSigned = &H0010Const adParamNullable = &H0040Const adParamLong = &H0080'---- ParameterDirectionEnum Values ----Const adParamUnknown = &H0000Const adParamInput = &H0001Const adParamOutput = &H0002Const adParamInputOutput = &H0003Const adParamReturnValue = &H0004'---- CommandTypeEnum Values ----Const adCmdUnknown = &H0008Const adCmdText = &H0001Const adCmdTable = &H0002Const adCmdStoredProc = &H0004Const adCmdFile = &H0100Const adCmdTableDirect = &H0200'---- EventStatusEnum Values ----Const adStatusOK = &H0000001Const adStatusErrorsOccurred = &H0000002Const adStatusCantDeny = &H0000003Const adStatusCancel = &H0000004Const adStatusUnwantedEvent = &H0000005'---- EventReasonEnum Values ----Const adRsnAddNew = 1Const adRsnDelete = 2Const adRsnUpdate = 3Const adRsnUndoUpdate = 4Const adRsnUndoAddNew = 5Const adRsnUndoDelete = 6Const adRsnRequery = 7Const adRsnResynch = 8Const adRsnClose = 9Const adRsnMove = 10Const adRsnFirstChange = 11Const adRsnMoveFirst = 12Const adRsnMoveNext = 13Const adRsnMovePrevious = 14Const adRsnMoveLast = 15'---- SchemaEnum Values ----Const adSchemaProviderSpecific = -1Const adSchemaAsserts = 0Const adSchemaCatalogs = 1Const adSchemaCharacterSets = 2Const adSchemaCollations = 3Const adSchemaColumns = 4Const adSchemaCheckConstraints = 5Const adSchemaConstraintColumnUsage = 6Const adSchemaConstraintTableUsage = 7Const adSchemaKeyColumnUsage = 8Const adSchemaReferentialContraints = 9Const adSchemaTableConstraints = 10Const adSchemaColumnsDomainUsage = 11Const adSchemaIndexes = 12Const adSchemaColumnPrivileges = 13Const adSchemaTablePrivileges = 14Const adSchemaUsagePrivileges = 15Const adSchemaProcedures = 16Const adSchemaSchemata = 17Const adSchemaSQLLanguages = 18Const adSchemaStatistics = 19Const adSchemaTables = 20Const adSchemaTranslations = 21Const adSchemaProviderTypes = 22Const adSchemaViews = 23Const adSchemaViewColumnUsage = 24Const adSchemaViewTableUsage = 25Const adSchemaProcedureParameters = 26Const adSchemaForeignKeys = 27Const adSchemaPrimaryKeys = 28Const adSchemaProcedureColumns = 29Const adSchemaDBInfoKeywords = 30Const adSchemaDBInfoLiterals = 31Const adSchemaCubes = 32Const adSchemaDimensions = 33Const adSchemaHierarchies = 34Const adSchemaLevels = 35Const adSchemaMeasures = 36Const adSchemaProperties = 37Const adSchemaMembers = 38'---- SeekEnum Values ----Const adSeekFirstEQ = &H1Const adSeekLastEQ = &H2Const adSeekGE = &H4Const adSeekGT = &H8Const adSeekLE = &H10Const adSeekLT = &H20%>

Ta ai o conteudo do arquivo, copia pro notepad esalva como adovbs.inc