Home >Visual basic.net > Test connessione a Mysql.



' Test connessione a Mysql (database "test")

Imports Microsoft.Data.Odbc
Imports System

Module Module1
Sub Main()
Try

'Connector/ODBC 3.51 Stringa di connessione
Dim ConnString As String = "DRIVER={MySQL ODBC 3.51 Driver};" & _
"SERVER=localhost;" & _
"DATABASE=test;" & _
"UID=root;" & _
"PASSWORD=;" & _
"OPTION=3;"

'Connessione
Dim MyConn As New OdbcConnection(ConnString)
MyConn.Open()

Console.WriteLine("Connection State::" & MyConn.ToString)

'Drop
Console.WriteLine("Eventuale drop della tabella mytable")

' Dichiarazione oggetto MyCommand derivato da OdbcCommand()
Dim MyCommand As New OdbcCommand()
MyCommand.Connection = MyConn
MyCommand.CommandText = "D ROP T ABLE IF EXISTS mytable"
MyCommand.ExecuteNonQuery()

'Creazione tabella mytable
Console.WriteLine("Creazione tabella mytable")
MyCommand.CommandText = "CREATE TABLE mytable(id int, nome varchar(20))"
MyCommand.ExecuteNonQuery()

' Creazione di un'array contenente i valori da inserire nella tabella
Dim dati() As String = {"Nico", "Marco", "Francesco", "Carla", "Giuseppe", "Pina", "Laura"}


'Routine e loop di inserimento dati nella tabella mytable
Dim nome As String
Dim id As Integer = 1

For Each nome In dati
MyCommand.CommandText = "INSERT INTO mytable VALUES(" & id & ",'" & nome & "')"
MyCommand.ExecuteNonQuery()
' Incrementa il contatore
id = id + 1
Next


Console.WriteLine("INSERT, Totale righe inserite:" & MyCommand.ExecuteNonQuery())

'UPDATE
MyCommand.CommandText = "UPDATE mytable SET nome = 'Ciccio' WHERE id=3"
Console.WriteLine("UPDATE, Totale righe coinvolte:" & MyCommand.ExecuteNonQuery())

'UPDATE il valore nome di una colonna viene aggiornato a NULL,
' vedi controllo nel ciclo while più avanti
MyCommand.CommandText = "UPDATE mytable SET nome = NULL WHERE id=4"
Console.WriteLine("UPDATE, Totale righe coinvolte:" & MyCommand.ExecuteNonQuery())

'COUNT(*)
MyCommand.CommandText = "SELECT COUNT(*) FROM mytable"
Console.WriteLine("Totale righe:" & MyCommand.ExecuteScalar())

'SELECT
Console.WriteLine("Select * FROM mytable")
MyCommand.CommandText = "SELECT * FROM mytable"
Dim MyDataReader As OdbcDataReader
MyDataReader = MyCommand.ExecuteReader
While MyDataReader.Read
' Se il valore della colonna nome è nullo
If MyDataReader("nome") Is DBNull.Value Then
Console.WriteLine("id = " & CStr(MyDataReader("id")) & " name = " ???? \"

Else
Console.WriteLine("id = " & CStr(MyDataReader("id")) & " name = " & _
CStr(MyDataReader("nome")))
End If
End While

'Gestione Eccezione ODBC
Catch MyOdbcException As OdbcException
Console.WriteLine(MyOdbcException.ToString)

'Catch Eccezione generica
Catch MyException As Exception
Console.WriteLine(MyException.ToString)
End Try
Console.Write("Premere un tasto per chiudere l'applicazione")
Console.Read()
End Sub
End Module

---

---

---

' Requisiti:
' Scaricare e installare il connector Mysql come MyODBC-standard-3.51.9-win.exe ' Impostare la connesione ODBC tramite Pannello di Controllo/Strumenti di Amministrazione/Origine dati (ODBC)
' Scaricare e installare dll odbc_net (per esempio odbc_net.msi)

'Compilazione ' Per compilare il codice Visual Studio Net Aggiungere alle References ' la libreria(il namespace) Microsoft.Data.Odbc.dll installata appunto in C:\Programmi\Microsoft.NET\Odbc.Net

'Per complialre il codice da prompt Dos utilizzare le seguenti istruzioni 'vbc test.vb /r:Microsoft.Data.Odbc.dll /r:System.dll /r:System.Data.dll

Warning: include(ads/text468x15.html): failed to open stream: No such file or directory in D:\inetpub\webs\fishscriptcom\documents\view_document.php on line 131

Warning: include(): Failed opening 'ads/text468x15.html' for inclusion (include_path='.;C:\php\pear') in D:\inetpub\webs\fishscriptcom\documents\view_document.php on line 131

Tutorial
Costanti   [C#] 
Enum   [C#] 
Array dichiarazione, inizializzazione, stampa  [C#] 
Array caricamento e stampa attraverso un ciclo for  [C#] 
Array bidimensionali rettangolari inizialiazzazione e stampa  [C#] 
Oggetti (Object) valorizzati con ArrayList, Double, string, proprietà GetType  [C#] 
ArrayList proprietà count, metodo Add, Remove  [C#] 
Jagged array dichiarazione e inizializzazione  [C#] 
Proprietà validare il dato attraverso le proprieta  [C#] 
Overloading creare metodi con lo stesso nome e diverse implementazioni  [C#] 
Programma di cassa da console Tutorial per illustrare l'applicazione di costrutti fondamentali di programmazione come variabili, funzioni condizionali if/then Select/case, cicli, funzioni, oggetti ArrayList Funzioni principali e secondari  [Visual basic.net] 
Array stampa attraverso costrutto for/each  [C#] 
Web controls and C# Sharp (Part II) Saving data in an Access database using a web form   [Asp.net] 
Datagrid Delevoping a simple and quick datagrid to publish query's results  [Asp.net] 
Impostare variabili d’ambiente con .NET Framework 1.1   [C#] 
Script
Controlli e validazione   [Asp.net] 
If Then Costrutti fondamentali  [Visual basic.net] 
Importazione dei namespace Regole sintattiche: importazione delle classi  [Visual basic.net] 
Costrutto If Then Else Costrutti fondamentali  [Visual basic.net] 
Gestione degli errori 1 Iniziare a gestire errori e eccezioni  [Visual basic.net] 
Gestione degli errori 2 Dimostrazione   [Visual basic.net] 
Gestione istruzioni condizionali Costrutto Select/case (Esempio Applicazione da Console)  [Visual basic.net] 
HelloWorld! Iniziare con Visual Basic .Net  [Visual basic.net] 
Intercettare Input da Console Semplice esempio iterazione con l'utente  [Visual basic.net] 
Semplice programma da "console" Iniziare con Visual Basic .Net  [Visual basic.net] 
Leggere Input da Console Iniziare con Visual Basic .Net  [Visual basic.net] 
Lettura di un file di testo Operazioni sul file system: stream di un file e lettura del suo contenuto  [Visual basic.net] 
Lettura di un file Xml con l'oggetto XmlTextReader Parsing di file Xml attraverso i metodi dell'oggetto XmlTextReader  [Visual basic.net] 
Oggetto Date Stampare la data odierna  [Visual basic.net] 
Overloading accesso ad una funzione a secondo del tipo di valore Concetti di base  [Visual basic.net] 
Esercizi
Disegna alcuni tra i più utilizzati controlli di una form Costruire e compilare un form con il Designer di Visual Basic  [Visual basic.net] 
Cicli e operazioni su filesystem Attraverso un ciclo while creare quattro file .txt denominati 4 e i suoi quadrati (4.txt,16.txt,128.txt,2048.txt)  [Visual basic.net] 
File System Data una cartella esegue un copia di tutti i file ivi contenuti  [Visual basic.net] 
Comandi
Ricavare nome e percorso di un'applicazione   [C#] 
Postgres database uptime Last time database has been started (or restarted)  [.Net] 

---

---