emanuelx 1 Posted March 18, 2011 Report Share Posted March 18, 2011 Boas pessoal! Eu tenho estado a fazer um projecto que inclui o conector mysql. Mas eu pretendia que o mysqldata.dll estivesse no projecto juntamente com com o programa.exe. Porque assim não era precisso o utilizador instalar o mysqlconector porque vinha já o dll junto com a aplicação. com calma e sem stresses Link to post Share on other sites
Skulltrail 0 Posted March 18, 2011 Report Share Posted March 18, 2011 no my project, vais a references e seleccionas o mysqldata.dll, e nas propriedades metes o copy local true xD "Sem o esforço da luta,será impossivel a alegria da vitória"João Gonçalo Silva Link to post Share on other sites
emanuelx 1 Posted March 18, 2011 Author Report Share Posted March 18, 2011 tou a ver que andas a trabalhar bem lol Estou a fazer o meu segundo programa de geito em vb.net O primeiro teve até agora mais ou menos 330 downloads na net com calma e sem stresses Link to post Share on other sites
Skulltrail 0 Posted March 18, 2011 Report Share Posted March 18, 2011 epah, agora ando a fazer a pap e tbm teve que descobrir isso , qual foi o teu 1º??? "Sem o esforço da luta,será impossivel a alegria da vitória"João Gonçalo Silva Link to post Share on other sites
emanuelx 1 Posted March 18, 2011 Author Report Share Posted March 18, 2011 foi http://ne-miguelito.com/viewtopic.php?f=133&t=28071 este foi em vb.net http://ne-miguelito.com/viewtopic.php?f=70&t=22394 este em lua 5.1 fiz isto porque não tinha mais naa de geito para inventar. Agora estou a fazer um programa para um server de gta sanandreas samp. ja tenho o codigo do server feito só falta a parte final do programa em vb.net que vai comunicar com o server. com calma e sem stresses Link to post Share on other sites
carlosmorais 0 Posted March 19, 2011 Report Share Posted March 19, 2011 off-topic já agora, como fazes para instalar a Base de Dados num computador diferente? eu também estou a fazer a minha PAP em vb.net e utilizo o MySQL com SGBD, mas para utilizar noutro computador tenho de instalar o MySQL manualmente e depois "passo-lhe" a Base de Dados.. o que não é nada prático para o utilizador... cumps Link to post Share on other sites
emanuelx 1 Posted March 19, 2011 Author Report Share Posted March 19, 2011 em vez de utilizares uma base de dados offline usas online. É o que eu estou a fazer. podes sempre usar o xampp para os teste drive. depois metes num host tipo 000webhost. já agora és da zona de peniche? com calma e sem stresses Link to post Share on other sites
carlosmorais 0 Posted March 19, 2011 Report Share Posted March 19, 2011 podes-me explicar melhor em que consiste ter a Base de Dados Online? é que já vou um bocado avançado no programa, seria complicado alterar as ligações á BD... Não, muito pelo contrário, sou de Guimarães! PS: o programa consiste em fazer a Gestão das entradas/saídas dos funcionários de uma empresa, mas com outras funcionalidades como a gestão dos mesmos, criação de relatórios, etc. Link to post Share on other sites
emanuelx 1 Posted March 20, 2011 Author Report Share Posted March 20, 2011 Eu acho que a estrutura é basicamente a mesma. Porque os comandos são em SQL. Imports MySql.Data.MySqlClient Public Class Form1 Dim myData As MySqlDataReader Dim myAdapter As New MySqlDataAdapter Dim SQL As String Dim tretadevariavel As Boolean Dim conn As MySqlConnection Dim siteResponds As Boolean = False Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "" Then MessageBox.Show("Insira o nome") TextBox1.Text = vbNullString Exit Sub End If 'connect to DB conn = New MySqlConnection() conn.ConnectionString = "server=localhost;user id=root;password=123;port=3306;database=programa" 'see if connection failed. Try conn.Open() TextBox1.Enabled = False Button1.Enabled = False Catch myerror As MySqlException MsgBox("Erro") Exit Sub End Try 'sql query Try Dim sqlquery = "INSERT INTO dados (nome, nome2) VALUES('" + TextBox1.Text + "')" ' insere na tabela nos campos nome e nome2 o valor da textbox1 Dim myCommand As New MySqlCommand() myCommand.Connection = conn myCommand.CommandText = sqlquery 'start query myAdapter.SelectCommand = myCommand myData = myCommand.ExecuteReader() Catch ex As MySqlException MsgBox("Erro ") End Try MsgBox("Inserido com sucesso") conn.Close() End Sub com calma e sem stresses Link to post Share on other sites
carlosmorais 0 Posted March 20, 2011 Report Share Posted March 20, 2011 eu faço a conexão assim: Dim myConnectionString As String Dim connection As New MySqlConnection Dim MySQL As String = " Select * from login " Dim command As New MySqlCommand(MySQL, connection) myConnectionString = "Server=localhost;" & _ "Database=picaoponto;" & _ "Uid=root;" & _ "Pwd=123pt;" & _ "Connect Timeout=30;" connection.ConnectionString = myConnectionString If connection.State <> ConnectionState.Open Then connection.Open() End If Dim reader As MySqlDataReader = command.ExecuteReader() If reader.HasRows Then While reader.Read() If tbsenha.Text = reader.Item("senha").ToString And tbutilizador.Text = reader.Item("user").ToString Then tbsenha.Text = reader.Item("senha").ToString MsgBox("Bem-Vindo, " + tbutilizador.Text.ToString) Formprincipal.Show() mail.Show() mail.Hide() Me.Hide() Else MsgBox("Os dados introduzidos estão incorretos") End If End While End If connection.Close() connection = Nothing command = Nothing existe diferença? 🤔 Link to post Share on other sites
emanuelx 1 Posted March 20, 2011 Author Report Share Posted March 20, 2011 a unica diferença que eu tenho no meu é quando estas a verificar se o nome está na base de dados. eu fasso assim "SELECT * FROM nomedatabela WHERE user = '" + TextBox1.Text + "')" com calma e sem stresses Link to post Share on other sites
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now