Search the Community

Olá. Estou tentando localizar um código para conectar um banco de dados access utilizando o Visual Studio 12, porém só encontrei a com conexão direta via programa e eu queria fazer esta conexão via código. alguém poderia me auxiliar em enviando esta rotina ou me indicando o local onde encontro. Obrigado.

Oi gente, comecei a mexer em banco de dados na semana passada, então sou muito leigo em algumas partes.... Não estou conseguindo atualizar uma tabela, eu quero trocar todas as células que estão escritas 'RE1' por 'B1', e depois fazer mais atualizações ( mas não nesse momento). Esse aqui colado abaixo, é o meu código, e quando vou atualizar o meu arquivo, ele dá o erro -3704 "OPERAÇÃO NÃO PERMITIDA QUANDO O OBJETO ESTÁ FECHADO". Alguém poderia me ajudar por favor? Sub conexão() Dim cnn As ADODB.Connection Dim rs As ADODB.Recordset Dim SQLstr As String 'PathArqTUCA1 = "\Reportes\" & rngData(iArquivo, 1) 'nomeArquivo = "[" & rngData(iArquivo, 2) & "]" Set cnn = New ADODB.Connection cnn.Provider = "Microsoft.ACE.OLEDB.12.0" cnn.ConnectionTimeout = 90 cnn.ConnectionString = "Data Source= C:\Nova pasta\Testando\" _ & ";" & "Extended Properties=""text;HDR=Yes;FMT=Delimited""" cnn.Open Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient SQLstr = _ " UPDATE [UCBT_01.txt] " & _ " SET GRU_TAR='B1'" & _ " WHERE GRU_TAR= 'RE1';" rs.Open SQLstr, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText 'cria arquivo texto 'Set txtFile = fso.CreateTextFile("C:\Nova pasta\Testando\arqTexto.txt", True) 'escreve e utiliza o separador ( tabulado ) entre os campos 'txtFile.Write (rs.GetString(adClipString, , "", vbCrLf, "")) 'MsgBox "Arquivo texto gerado com sucesso !", vbInformation, "Exportando um Recordset como Texto" 'Exit Sub 'trata_erro: 'MsgBox "Ocorreu o seguinte erro : " & Err.Description ' End Sub Planilha1.Range("F2").CopyFromRecordset rs rs.Close cnn.Close End Sub

Olá, Eu estou usando TADOQuery para ler planilhas de um arquivo do Excel. ADOQX->SQL->Text = "Select * from [" + sPlan + "]"; try{ ADOQX->Active = true; } catch(Exception *E){ //MemoLog->Lines->Add ("PLanilha: "+ sPlan + " "+ E->Message ); continue; } //MemoLog->Lines->Add ( "Obter as colunas da planilha "+ sPlan); for(int Col = 0; Col < ADOQX->FieldCount; Col++) { Planilha->AddColumn( Col, ADOQX->Fields->Fields[Col]->FieldName ); } O retorno de ADOQX->FieldCount representa o número total de colunas presentes na planilha porém, como há duas linhas de cabeçalho antes dos dados e a primeira linha possui células que foram mescladas, os valores retornados por ADOQX->Fields->Fields[Col]->FieldName em alguns casos foram substituídos por F2, F3, .. etc Há alguma maneira de identificar se existe célula mesclada na linha da planilha usando os componentes ADO do C++ Builder ( Delphi ) ? Obrigado.

Olá galera, bom dia a todos!! Gostaria de um auxilio com algumas dicas e ideias, pois nao estou conseguindo resolver um problema em meu site ASP classico. Preciso de adicionar uma opção em uma pagina onde ao clicar em um check box seja desabilitado um textbox dentro de uma tabela HTML e em vice versa se desmarcar o checkbox habilita novamente o textbox dentro dessa tabela. A questão maior é em relação a pagina em que sera desabiltado o textbox, pois ela uma outra pagina, exemplo (pagina1.asp) formulario de pesquisa, (pagina2.asp) resultado da pesquisa, onde elas estao separadas por frames(lateral menus(fixos sempre),acima pesquisa, abaixo resultado). Então carregar a pagina de pesquisa exixte um botao onde faz um post para carregar a pagina de resultado que contem a tabela e os campos de textbox dentro dela habilitado para inputar dados, ai quando na pagina de pesquisa for selecionado o checkbox preciso que esse textbox seja desabilitado. Se algum conseguiur me auxiliar ficarei muito grato! Obrigado ate mais!