Imports MySql.Data.MySqlClient
Imports System.IO
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
_database_connect()
End Sub
Public Function _database_connect()
Dim lines() As String = My.Resources.database_config.Split(Environment.NewLine)
Dim server As String = (lines(0).Split("=")(1))
Dim username As String = (lines(1).Split("=")(1))
Dim password As String = (lines(2).Split("=")(1))
Dim database As String = (lines(3).Split("=")(1))
Dim MysqlConn As MySqlConnection
MysqlConn = New MySqlConnection()
MysqlConn.ConnectionString = "server=pincopallino.it;" _
& "user id=root;" _
& "password=baobab;" _
& "database=demade"
Try
MysqlConn.Open()
MessageBox.Show("Connessione avvenuta con successo.")
_estrae_rubrica_dispari()
Catch myerror As MySqlException
MessageBox.Show("Non è possibile connettersi al database: " & myerror.Message)
Application.Exit()
Finally
MysqlConn.Dispose()
End Try
End Function
Public Function _estrae_rubrica_dispari()
Dim myadapter As New MySqlDataAdapter("select * from dynarc_rubrica_contacts;", MysqlConn)
Dim mydatateble As New DataTable
myadapter.Fill(mydatateble)
MsgBox(mydatateble.Rows(10).Item("name"))
End Function
Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs)
End Sub
Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
End Sub
Private Sub ContextMenuStrip1_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs)
End Sub
Private Sub RubricaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RubricaToolStripMenuItem.Click
Dim lines() As String = My.Resources.database_config.Split(Environment.NewLine)
Dim server As String = (lines(0).Split("=")(1))
System.Diagnostics.Process.Start("http://" & server & "/gestionale/Rubrica/")
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Process.Start("C:\Program Files (x86)\ABBYY FineReader 10\FineReader.exe")
End Sub
End Class
