CPais

RESOLVIDO No Código da ConnectionString, colocar este código, o que deixa ler a variável da ligação da base de dados Namespace My 'This class allows you to handle specific events on the settings class: ' The SettingChanging event is raised before a setting's value is changed. ' The PropertyChanged event is raised after a setting's value is changed. ' The SettingsLoaded event is raised after the setting values are loaded. ' The SettingsSaving event is raised before the setting values are saved. Partial Friend NotInheritable Class MySettings Public WriteOnly Property RunTimeConnectionString() Set(ByVal value) My.Settings("MINHAConnectionString") = value End Set End Property End Class End Namespace Depois como este código está a mexer numa variável "WriteOnly" criar a seguinte função, que parece que liberta o "WriteOnly" Public Shared Sub SetConnectionString(ByVal cnnString As String) My.Settings.RunTimeConnectionString = cnnString End Sub Depois é só alterar a linha de ligação / nome da Base de dados SetConnectionString("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\MINHA_NOVA_BASEDADOS.mdb") e a partir desta linha, a base de dados passa a ser a nova.

Mas parece que não funciona, eu quando fiz o programa o sistema criou um DataSet com o nome de "GestaoXXIDataSet", o qual está ligado ao ficheiro "GestaoXXI.mdb", só que eu queria era alterar o ficheiro que está ligado a este dataset, via codigo, e não alterando o ficheiro de configuração . O Prgrama é em VB 2010

Boas Tenho um programa, que no projecto está ligado a uma base de dados com o nome de "GestaoXXI.mdb", só que, agora estive a dividir o programa com vários utilizadores, e queria que cada utilizador tivesse uma base de dados diferente. Todas as Base de dados são iguais na sua estrutura, Utilizador "aaaa" teria a base de dados "aaaaGestaoXXI.mdb" Utilizador "bbbb" teria a base de dados "bbbbGestaoXXI.mdb" Utilizador "cccc" teria a base de dados "ccccGestaoXXI.mdb" Mas só ter uma vez o programa instalado, pois os vários utilizadores, acedem ao programa sempre no mesmo computador . Assim Sendo, o que eu quero é que quando entrar no programa o utilizador "aaaa" seja chamada a base de dados "aaaaGestaoXXI.mdb", se for o "bbbb" seja chamada a base de dados bbbbGestaoXXI.mdb, não a que está no projecto a GestaoXXI.mdb Todas as Base de dados são iguais na sua estrutura, serão copias da já existente no programa. Alguém sabe como fazer isso ...

Já descobri como Fazer ... http://www.astahost.com/info.php/vb-net-ms...art_t12054.html

Eu tenho um mini programa que cria uma base de dados em Access em VB 6, só que agora estou a programar em vb 2010, não sei bem como se faz ... Alguém sabe como Criar Base de Dados em Access ou sql em vb2010/.net Código que tenho em VB6 Option Explicit Dim db As Database Dim NomeBaseDados As String Dim msg As String Dim Style As String Dim Title As String Dim Response As String Dim Tabela As TableDef Dim variavel As Field Private Sub Command4_Click() 'Criar base dados NomeBaseDados = App.Path & "\MINHABASEDADOS.mdb" Set db = CreateDatabase(NomeBaseDados, dbLangGeneral, dbVersion30) msg = " Base de Dados Criada " Style = 0 + vbInformation Title = "INFORNOS" Response = MsgBox(msg, Style, Title) db.Close End Sub Private Sub Command5_Click() 'abre base de dados Set db = DBEngine.OpenDatabase(App.Path & "\" + Text4.Text + ".mdb") 'Cria a tabela Set Tabela = db.CreateTableDef(Text7.Text) 'Cria a variavel ID Set variavel = Tabela.CreateField("ID", dbLong) variavel.Attributes = dbAutoIncrField ' make it a counter Tabela.Fields.Append variavel 'Grava a Tabela com a variavel db.TableDefs.Append Tabela 'Fecha Tabela db.Close msg = " Tabela criada Já com a variavel ID " Style = 0 + vbInformation Title = "INFORNOS" Response = MsgBox(msg, Style, Title) End Sub Private Sub Command6_Click() 'abre base de dados Set db = DBEngine.OpenDatabase(App.Path & "\" + Text4.Text + ".mdb") 'Abre a tabela Set Tabela = db.TableDefs(Text7.Text) 'Cria uma nova variavel Set variavel = Tabela.CreateField(Text3, dbText, 255) Tabela.Fields.Append variavel 'Fecha Tabela db.Close msg = " Tabela Criada " Style = 0 + vbInformation Title = "INFORNOS" Response = MsgBox(msg, Style, Title) End Sub

O VB2010 quando cria um ReportViewer, grava a estrutura do report num ficheiro XML, só que quando se cria o Report no VB, no ecrã não aparece o código, aparece uma folha branca onde se coloca os campos, e que dá para arrastar para a qualquer lado, o qual pode ser facilmente alterado sem saber qual é o código, o que eu queria era um editor que edite o código XML, mas que seja do tipo do que existe no VB.

Obrigado pela resposta, mas se calhar eu não me fiz ententer bem , o que eu queria era alterar o codigo xml do ReportViewer , criado pelo VB2010, sem ser num normal editor de texto, é que o programa que estou a fazer, existe um Report que é personalizado para cada utilizador, e não queria ser eu atravez do vb2010, a fazer sempre as alterações.

alguém conhece algum programa extra ( sem ser o editor que vem com o VB2010 ) , que dê para Editar/Criar os Report do tipo dos Microsoft Report .

Resolvido: para alem de passar o nome do form para o modulo, passei tambem o nome do botao e da textbox, e assim já funciona AlterarDados(MeuNomeForm,MeuNomeBotao,MeuNomeTextbox) MeuNomeForm.BackgroundImage = Image.FromFile("Imagem.jpg") MeuNomeBotao.text = "nome do botão" MeuNomeTextbox.text = "texto da textbox"

Se for uma propriedade do form não dá erro, só dá erro se for um objecto que esteja no form MeuNomeForm.BackgroundImage = Image.FromFile("Imagem.jpg") ... ( Altera bem a imagem de fundo ) MeuNomeForm.Button1.BackgroundImage = Image.FromFile("Imagem.jpg") ... ( Dá ERRO )

Obrigado pela resposta. Mas continua a dar erro Public member 'Button1' on type 'MeuNomeForm' not found.

Estava a tentar fazer uma rotina extra num modulo aparte, o qual tinha de alterar o texto que está no botão, só que quando tento fazer, dá erro, diz que o Button1 não é valido para o form ... Se tentar alterar uma propriedade do form ( por exemplo a cor de fundo ), não dá erro, mas se for um objecto desse form dá erro, será que falta alguma coisa ou não é mesmo possivel... ...... ( Codigo no Botao ) Private Sub btnLimpaCampos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLimpaCampos.Click Dim MeuNomeForm As Object MeuNomeForm = Me AlteraDados(MeuNomeForm) End Sub .......( NO MODULO ) .... Sub AlteraDados(ByVal MeuNomeForm As Object) MeuNomeForm.Button1.Text = "Novo Nome do Botão" End Sub