Home| Progetto| Web| Faq| Acronimi | ||||
Argomenti Documenti pubblicabili:1120
Scripts:1282 Documenti non pubblicabili:162 Categorie tematiche:68 .Net |_C# |_Visual basic.net |_Asp.net Active Server Pages C++ Cascade Style Sheet JavaScript Mysql Php Xml Java |_Java 2 Micro Edition |_Java server pages |_Java Servlet Oracle |_PLSQL PostgreSQL Unix
Unix...
Tip:
Eseguire più comandi in una sola linea
PLSQL...
Script:
Esempio funzione MOD
Shell scripting...
Script:
Debug shell program
A User Agent, like a web browser, uses HTTP to request a HTML document
Php Funzione mail()
In programming the danger of exploring the small details of coding is that you get obsessed with every line of code you write, thereby greatly reducing productivity.
In general, is not worth obsessing over code. On the other hand you should code with deliberation and intent. Steven Feurstein Oracle Magazine July /August 2004 A User Agent, like a web browser, uses HTTP to request a HTML document
|
Visual basic.net
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 ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Script ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Esercizi ![]() ![]() ![]() Comandi ![]() ![]() ![]() |
CercaAnger is creative, depression is useless.
Dyson, Freeman J. Anger is creative, depression is useless.
Dyson, Freeman J.
Oracle...
Definizioni:
Variabile bind
Shell scripting...
Script:
Pulire i file provenienti da ambieti dos/ windoes da caratteri sporchi
fishScript.Com is accessible by Mobile access technology
as mobile phones, Palm and Pocket PC .
Nicoleta e Marco Magnani tutorial, examples, courses, esempi, corsi, esercizi, appunti vari Dottoressa Nicoleta Dragu Formatrice Docente Insegnante Mediatrice Culturale Dott. Marco Magnani Universita La Sapienza Roma Master Computer Science Hunter College New York , Data Base Administrator DBA oracle System architect |