dll junto com o projecto

[emanuelx 1]

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.

[Skulltrail 0]

no my project, vais a references e seleccionas o mysqldata.dll, e nas propriedades metes o copy local true xD

[emanuelx 1]

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

[Skulltrail 0]

epah, agora ando a fazer a pap e tbm teve que descobrir isso , qual foi o teu 1º???

[emanuelx 1]

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.

[carlosmorais 0]

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

[emanuelx 1]

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?

[carlosmorais 0]

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.

[emanuelx 1]

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

[carlosmorais 0]

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?  🤔

[emanuelx 1]

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 + "')"