Below is the list of changes that have just been committed into a local
mysqldoc repository of stefan. When stefan does a push these changes will
be propagated to the main repository and, within 24 hours after the
push, to the public repository.
For information on how to access the public repository
see http://www.mysql.com/doc/I/n/Installing_source_tree.html
ChangeSet
1.3479 05/09/05 15:56:49 stefan@stripped +4 -0
connector-net.xml:
Sync with refman
Add C# example provided by user
refman-5.1/connector-net.xml
1.6 05/09/05 15:55:57 stefan@stripped +235 -220
Sync with refman
refman-5.0/connector-net.xml
1.6 05/09/05 15:55:53 stefan@stripped +235 -220
Sync with refman
refman-4.1/connector-net.xml
1.6 05/09/05 15:55:49 stefan@stripped +235 -220
Sync with refman
refman/connector-net.xml
1.25 05/09/05 15:55:34 stefan@stripped +235 -220
Add C# example provided by user
# This is a BitKeeper patch. What follows are the unified diffs for the
# set of deltas contained in the patch. The rest of the patch, the part
# that BitKeeper cares about, is below these diffs.
# User: stefan
# Host: apollon.site
# Root: /home/stefan/bk/mysqldoc
--- 1.24/refman/connector-net.xml 2005-08-30 05:05:05 +02:00
+++ 1.25/refman/connector-net.xml 2005-09-05 15:55:34 +02:00
@@ -2312,21 +2312,21 @@
</para>
<programlisting>
- Dim conn As New MySql.Data.MySqlClient.MySqlConnection
- Dim myConnectionString as String
+Dim conn As New MySql.Data.MySqlClient.MySqlConnection
+Dim myConnectionString as String
- myConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=test;"
-
- Try
- conn.ConnectionString = myConnectionString
- conn.Open()
-
- Catch ex As MySql.Data.MySqlClient.MySqlException
- MessageBox.Show(ex.Message)
- End Try
+myConnectionString = "server=127.0.0.1;" _
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=test;"
+
+Try
+ conn.ConnectionString = myConnectionString
+ conn.Open()
+
+ Catch ex As MySql.Data.MySqlClient.MySqlException
+ MessageBox.Show(ex.Message)
+End Try
</programlisting>
<para>
@@ -2334,8 +2334,23 @@
</para>
<programlisting>
- C# EXAMPLE PENDING
- </programlisting>
+MySql.Data.MySqlClient.MySqlConnection con = new
+MySql.Data.MySqlClient.MySqlConnection();
+string constr = "server=192.168.0.2;";
+constr += "uid=mike;";
+constr += "pwd=password;";
+constr += "database=test;";
+try
+{
+ con.ConnectionString = constr;
+ con.Open();
+ MessageBox.Show("Connected Successfully");
+}
+catch(MySql.Data.MySqlClient.MySqlException ex)
+{
+ MessageBox.Show(ex.Message);
+}
+</programlisting>
<para>
You can also pass the connection string to the constructor of
@@ -2347,20 +2362,20 @@
</para>
<programlisting>
- Dim myConnectionString as String
+ Dim myConnectionString as String
- myConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=test;"
-
- Try
- Dim conn As New MySql.Data.MySqlClient.MySqlConnection(myConnectionString)
- conn.Open()
+ myConnectionString = "server=127.0.0.1;" _
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=test;"
+
+ Try
+ Dim conn As New MySql.Data.MySqlClient.MySqlConnection(myConnectionString)
+ conn.Open()
Catch ex As MySql.Data.MySqlClient.MySqlException
- MessageBox.Show(ex.Message)
- End Try
+ MessageBox.Show(ex.Message)
+ End Try
</programlisting>
<para>
@@ -2444,23 +2459,23 @@
<programlisting>
Dim myConnectionString as String
- myConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=test;"
-
- Try
- Dim conn As New MySql.Data.MySqlClient.MySqlConnection(myConnectionString)
- conn.Open()
+ myConnectionString = "server=127.0.0.1;" _
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=test;"
+
+ Try
+ Dim conn As New MySql.Data.MySqlClient.MySqlConnection(myConnectionString)
+ conn.Open()
- Catch ex As MySql.Data.MySqlClient.MySqlException
- Select Case ex.Number
- Case 0
- MessageBox.Show("Cannot connect to server. Contact administrator")
- Case 1045
- MessageBox.Show("Invalid username/password, please try again")
- End Select
- End Try
+ Catch ex As MySql.Data.MySqlClient.MySqlException
+ Select Case ex.Number
+ Case 0
+ MessageBox.Show("Cannot connect to server. Contact administrator")
+ Case 1045
+ MessageBox.Show("Invalid username/password, please try again")
+ End Select
+ End Try
</programlisting>
<para>
@@ -2552,27 +2567,27 @@
<programlisting>
Dim conn As New MySqlConnection
Dim cmd As New MySqlCommand
-
+
conn.ConnectionString = strConnection
Try
- conn.Open()
- cmd.Connection = conn
-
- cmd.CommandText = "INSERT INTO myTable VALUES(NULL, ?number, ?text)"
- cmd.Prepare()
-
- cmd.Parameters.Add("?number", 1)
- cmd.Parameters.Add("?text", "One")
-
- For i = 1 To 1000
- cmd.Parameters("?number").Value = i
- cmd.Parameters("?text").Value = "A string value"
+ conn.Open()
+ cmd.Connection = conn
+
+ cmd.CommandText = "INSERT INTO myTable VALUES(NULL, ?number, ?text)"
+ cmd.Prepare()
+
+ cmd.Parameters.Add("?number", 1)
+ cmd.Parameters.Add("?text", "One")
+
+ For i = 1 To 1000
+ cmd.Parameters("?number").Value = i
+ cmd.Parameters("?text").Value = "A string value"
- cmd.ExecuteNonQuery()
- Next
+ cmd.ExecuteNonQuery()
+ Next
Catch ex As MySqlException
- MessageBox.Show("Error " & ex.Number & " has occurred: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+ MessageBox.Show("Error " & ex.Number & " has occurred: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
</programlisting>
@@ -2691,21 +2706,21 @@
Dim cmd As New MySqlCommand
conn.ConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=test"
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=test"
Try
- conn.Open()
- cmd.Connection = conn
+ conn.Open()
+ cmd.Connection = conn
- cmd.CommandText = "CREATE PROCEDURE add_emp(" _
- & "IN fname VARCHAR(20), IN lname VARCHAR(20), IN bday DATETIME, OUT empno INT) " _
- & "BEGIN INSERT INTO emp(first_name, last_name, birthdate) " _
- & "VALUES(fname, lname, DATE(bday)); SET empno = LAST_INSERT_ID(); END"
- cmd.ExecuteNonQuery()
+ cmd.CommandText = "CREATE PROCEDURE add_emp(" _
+ & "IN fname VARCHAR(20), IN lname VARCHAR(20), IN bday DATETIME, OUT empno INT) " _
+ & "BEGIN INSERT INTO emp(first_name, last_name, birthdate) " _
+ & "VALUES(fname, lname, DATE(bday)); SET empno = LAST_INSERT_ID(); END"
+ cmd.ExecuteNonQuery()
Catch ex As MySqlException
- MessageBox.Show("Error " & ex.Number & " has occurred: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+ MessageBox.Show("Error " & ex.Number & " has occurred: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
</programlisting>
@@ -2763,34 +2778,34 @@
Dim cmd As New MySqlCommand
conn.ConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=test"
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=test"
Try
- conn.Open()
- cmd.Connection = conn
+ conn.Open()
+ cmd.Connection = conn
- cmd.CommandText = "add_emp"
- cmd.CommandType = CommandType.StoredProcedure
+ cmd.CommandText = "add_emp"
+ cmd.CommandType = CommandType.StoredProcedure
- cmd.Parameters.Add("?lname", 'Jones')
- cmd.Parameters("?lname").Direction = ParameterDirection.Input
+ cmd.Parameters.Add("?lname", 'Jones')
+ cmd.Parameters("?lname").Direction = ParameterDirection.Input
- cmd.Parameters.Add("?fname", 'Tom')
- cmd.Parameters("?fname").Direction = ParameterDirection.Input
+ cmd.Parameters.Add("?fname", 'Tom')
+ cmd.Parameters("?fname").Direction = ParameterDirection.Input
- cmd.Parameters.Add("?bday", #12/13/1977 2:17:36 PM#)
- cmd.Parameters("?bday").Direction = ParameterDirection.Input
+ cmd.Parameters.Add("?bday", #12/13/1977 2:17:36 PM#)
+ cmd.Parameters("?bday").Direction = ParameterDirection.Input
- cmd.Parameters.Add("?empno", MySqlDbType.Int32)
- cmd.Parameters("?empno").Direction = ParameterDirection.Output
+ cmd.Parameters.Add("?empno", MySqlDbType.Int32)
+ cmd.Parameters("?empno").Direction = ParameterDirection.Output
- cmd.ExecuteNonQuery()
+ cmd.ExecuteNonQuery()
- MessageBox.Show(cmd.Parameters("?empno").Value)
+ MessageBox.Show(cmd.Parameters("?empno").Value)
Catch ex As MySqlException
- MessageBox.Show("Error " & ex.Number & " has occurred: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+ MessageBox.Show("Error " & ex.Number & " has occurred: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
</programlisting>
@@ -2932,48 +2947,48 @@
<programlisting>
Dim conn As New MySqlConnection
- Dim cmd As New MySqlCommand
+ Dim cmd As New MySqlCommand
- Dim SQL As String
+ Dim SQL As String
- Dim FileSize As UInt32
- Dim rawData() As Byte
- Dim fs As FileStream
+ Dim FileSize As UInt32
+ Dim rawData() As Byte
+ Dim fs As FileStream
- conn.ConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=test"
+ conn.ConnectionString = "server=127.0.0.1;" _
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=test"
- Try
- fs = New FileStream("c:\image.png", FileMode.Open, FileAccess.Read)
- FileSize = fs.Length
+ Try
+ fs = New FileStream("c:\image.png", FileMode.Open, FileAccess.Read)
+ FileSize = fs.Length
- rawData = New Byte(FileSize) {}
- fs.Read(rawData, 0, FileSize)
- fs.Close()
+ rawData = New Byte(FileSize) {}
+ fs.Read(rawData, 0, FileSize)
+ fs.Close()
- conn.Open()
+ conn.Open()
- SQL = "INSERT INTO file VALUES(NULL, ?FileName, ?FileSize, ?File)"
+ SQL = "INSERT INTO file VALUES(NULL, ?FileName, ?FileSize, ?File)"
cmd.Connection = conn
- cmd.CommandText = SQL
- cmd.Parameters.Add("?FileName", strFileName)
- cmd.Parameters.Add("?FileSize", FileSize)
- cmd.Parameters.Add("?File", rawData)
+ cmd.CommandText = SQL
+ cmd.Parameters.Add("?FileName", strFileName)
+ cmd.Parameters.Add("?FileSize", FileSize)
+ cmd.Parameters.Add("?File", rawData)
- cmd.ExecuteNonQuery()
+ cmd.ExecuteNonQuery()
- MessageBox.Show("File Inserted into database successfully!", _
+ MessageBox.Show("File Inserted into database successfully!", _
"Success!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
-
- conn.Close()
- Catch ex As Exception
- MessageBox.Show("There was an error: " & ex.Message, "Error", _
+
+ conn.Close()
+ Catch ex As Exception
+ MessageBox.Show("There was an error: " & ex.Message, "Error", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
- End Try
- </programlisting>
+ End Try
+ </programlisting>
<para>
[C#]
@@ -3023,48 +3038,48 @@
<programlisting>
Dim conn As New MySqlConnection
- Dim cmd As New MySqlCommand
- Dim myData As MySqlDataReader
- Dim SQL As String
- Dim rawData() As Byte
- Dim FileSize As UInt32
- Dim fs As FileStream
+ Dim cmd As New MySqlCommand
+ Dim myData As MySqlDataReader
+ Dim SQL As String
+ Dim rawData() As Byte
+ Dim FileSize As UInt32
+ Dim fs As FileStream
- conn.ConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=test"
+ conn.ConnectionString = "server=127.0.0.1;" _
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=test"
- SQL = "SELECT file_name, file_size, file FROM file"
+ SQL = "SELECT file_name, file_size, file FROM file"
- Try
- conn.Open()
+ Try
+ conn.Open()
- cmd.Connection = conn
- cmd.CommandText = SQL
+ cmd.Connection = conn
+ cmd.CommandText = SQL
- myData = cmd.ExecuteReader
+ myData = cmd.ExecuteReader
- If Not myData.HasRows Then Throw New Exception("There are no BLOBs to save")
+ If Not myData.HasRows Then Throw New Exception("There are no BLOBs to save")
- myData.Read()
+ myData.Read()
- FileSize = myData.GetUInt32(myData.GetOrdinal("file_size"))
- rawData = New Byte(FileSize) {}
+ FileSize = myData.GetUInt32(myData.GetOrdinal("file_size"))
+ rawData = New Byte(FileSize) {}
- myData.GetBytes(myData.GetOrdinal("file"), 0, rawData, 0, FileSize)
+ myData.GetBytes(myData.GetOrdinal("file"), 0, rawData, 0, FileSize)
- fs = New FileStream("C:\newfile.png", FileMode.OpenOrCreate, FileAccess.Write)
- fs.Write(rawData, 0, FileSize)
- fs.Close()
-
- MessageBox.Show("File successfully written to disk!", "Success!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
+ fs = New FileStream("C:\newfile.png", FileMode.OpenOrCreate, FileAccess.Write)
+ fs.Write(rawData, 0, FileSize)
+ fs.Close()
+
+ MessageBox.Show("File successfully written to disk!", "Success!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
- myData.Close()
- conn.Close()
- Catch ex As Exception
- MessageBox.Show("There was an error: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End Try
+ myData.Close()
+ conn.Close()
+ Catch ex As Exception
+ MessageBox.Show("There was an error: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+ End Try
</programlisting>
<para>
@@ -3163,30 +3178,30 @@
</para>
<programlisting>
- Dim myData As New DataSet
- Dim conn As New MySqlConnection
- Dim cmd As New MySqlCommand
- Dim myAdapter As New MySqlDataAdapter
-
- conn.ConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=world"
-
- Try
- conn.Open()
- cmd.CommandText = "SELECT city.name AS cityName, city.population AS CityPopulation, " _
+ Dim myData As New DataSet
+ Dim conn As New MySqlConnection
+ Dim cmd As New MySqlCommand
+ Dim myAdapter As New MySqlDataAdapter
+
+ conn.ConnectionString = "server=127.0.0.1;" _
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=world"
+
+ Try
+ conn.Open()
+ cmd.CommandText = "SELECT city.name AS cityName, city.population AS CityPopulation, " _
& "country.name, country.population, country.continent " _
& "FROM country, city ORDER BY country.continent, country.name"
- cmd.Connection = conn
+ cmd.Connection = conn
- myAdapter.SelectCommand = cmd
- myAdapter.Fill(myData)
+ myAdapter.SelectCommand = cmd
+ myAdapter.Fill(myData)
- myData.WriteXml("C:\dataset.xml", XmlWriteMode.WriteSchema)
- Catch ex As Exception
- MessageBox.Show(ex.Message, "Report could not be created", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End Try
+ myData.WriteXml("C:\dataset.xml", XmlWriteMode.WriteSchema)
+ Catch ex As Exception
+ MessageBox.Show(ex.Message, "Report could not be created", MessageBoxButtons.OK, MessageBoxIcon.Error)
+ End Try
</programlisting>
<para>
@@ -3310,34 +3325,34 @@
Imports MySql.Data.MySqlClient
Dim myReport As New ReportDocument
- Dim myData As New DataSet
- Dim conn As New MySqlConnection
- Dim cmd As New MySqlCommand
- Dim myAdapter As New MySqlDataAdapter
-
- conn.ConnectionString = _
- "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=test"
+ Dim myData As New DataSet
+ Dim conn As New MySqlConnection
+ Dim cmd As New MySqlCommand
+ Dim myAdapter As New MySqlDataAdapter
- Try
- conn.Open()
+ conn.ConnectionString = _
+ "server=127.0.0.1;" _
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=test"
- cmd.CommandText = "SELECT city.name AS cityName, city.population AS CityPopulation, " _
+ Try
+ conn.Open()
+
+ cmd.CommandText = "SELECT city.name AS cityName, city.population AS CityPopulation, " _
& "country.name, country.population, country.continent " _
& "FROM country, city ORDER BY country.continent, country.name"
- cmd.Connection = conn
+ cmd.Connection = conn
- myAdapter.SelectCommand = cmd
- myAdapter.Fill(myData)
+ myAdapter.SelectCommand = cmd
+ myAdapter.Fill(myData)
- myReport.Load(".\world_report.rpt")
- myReport.SetDataSource(myData)
- myViewer.ReportSource = myReport
- Catch ex As Exception
- MessageBox.Show(ex.Message, "Report could not be created", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End Try
+ myReport.Load(".\world_report.rpt")
+ myReport.SetDataSource(myData)
+ myViewer.ReportSource = myReport
+ Catch ex As Exception
+ MessageBox.Show(ex.Message, "Report could not be created", MessageBoxButtons.OK, MessageBoxIcon.Error)
+ End Try
</programlisting>
<para>
@@ -3393,32 +3408,32 @@
Imports System.Data
Imports MySql.Data.MySqlClient
- Dim myReport As New ReportDocument
- Dim myData As New DataSet
- Dim conn As New MySqlConnection
- Dim cmd As New MySqlCommand
- Dim myAdapter As New MySqlDataAdapter
-
- conn.ConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=world"
-
- Try
- conn.Open()
- cmd.CommandText = "SELECT name, population, countrycode FROM city ORDER BY countrycode, name; SELECT name, population, code, continent FROM country ORDER BY continent, name"
- cmd.Connection = conn
-
- myAdapter.SelectCommand = cmd
- myAdapter.Fill(myData)
-
- myReport.Load(".\world_report.rpt")
- myReport.Database.Tables(0).SetDataSource(myData.Tables(0))
- myReport.Database.Tables(1).SetDataSource(myData.Tables(1))
- myViewer.ReportSource = myReport
- Catch ex As Exception
- MessageBox.Show(ex.Message, "Report could not be created", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End Try
+ Dim myReport As New ReportDocument
+ Dim myData As New DataSet
+ Dim conn As New MySqlConnection
+ Dim cmd As New MySqlCommand
+ Dim myAdapter As New MySqlDataAdapter
+
+ conn.ConnectionString = "server=127.0.0.1;" _
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=world"
+
+ Try
+ conn.Open()
+ cmd.CommandText = "SELECT name, population, countrycode FROM city ORDER BY countrycode, name; SELECT name, population, code, continent FROM country ORDER BY continent, name"
+ cmd.Connection = conn
+
+ myAdapter.SelectCommand = cmd
+ myAdapter.Fill(myData)
+
+ myReport.Load(".\world_report.rpt")
+ myReport.Database.Tables(0).SetDataSource(myData.Tables(0))
+ myReport.Database.Tables(1).SetDataSource(myData.Tables(1))
+ myViewer.ReportSource = myReport
+ Catch ex As Exception
+ MessageBox.Show(ex.Message, "Report could not be created", MessageBoxButtons.OK, MessageBoxIcon.Error)
+ End Try
</programlisting>
<para>
@@ -3625,10 +3640,10 @@
<programlisting>
If Not myReader.IsDBNull(myReader.GetOrdinal("mytime")) Then
- myTime = myReader.GetDateTime(myReader.GetOrdinal("mytime"))
- Else
- myTime = Nothing
- End If
+ myTime = myReader.GetDateTime(myReader.GetOrdinal("mytime"))
+ Else
+ myTime = Nothing
+ End If
</programlisting>
<para>
--- 1.5/refman-4.1/connector-net.xml 2005-08-30 05:05:04 +02:00
+++ 1.6/refman-4.1/connector-net.xml 2005-09-05 15:55:49 +02:00
@@ -2312,21 +2312,21 @@
</para>
<programlisting>
- Dim conn As New MySql.Data.MySqlClient.MySqlConnection
- Dim myConnectionString as String
+Dim conn As New MySql.Data.MySqlClient.MySqlConnection
+Dim myConnectionString as String
- myConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=test;"
-
- Try
- conn.ConnectionString = myConnectionString
- conn.Open()
-
- Catch ex As MySql.Data.MySqlClient.MySqlException
- MessageBox.Show(ex.Message)
- End Try
+myConnectionString = "server=127.0.0.1;" _
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=test;"
+
+Try
+ conn.ConnectionString = myConnectionString
+ conn.Open()
+
+ Catch ex As MySql.Data.MySqlClient.MySqlException
+ MessageBox.Show(ex.Message)
+End Try
</programlisting>
<para>
@@ -2334,8 +2334,23 @@
</para>
<programlisting>
- C# EXAMPLE PENDING
- </programlisting>
+MySql.Data.MySqlClient.MySqlConnection con = new
+MySql.Data.MySqlClient.MySqlConnection();
+string constr = "server=192.168.0.2;";
+constr += "uid=mike;";
+constr += "pwd=password;";
+constr += "database=test;";
+try
+{
+ con.ConnectionString = constr;
+ con.Open();
+ MessageBox.Show("Connected Successfully");
+}
+catch(MySql.Data.MySqlClient.MySqlException ex)
+{
+ MessageBox.Show(ex.Message);
+}
+</programlisting>
<para>
You can also pass the connection string to the constructor of
@@ -2347,20 +2362,20 @@
</para>
<programlisting>
- Dim myConnectionString as String
+ Dim myConnectionString as String
- myConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=test;"
-
- Try
- Dim conn As New MySql.Data.MySqlClient.MySqlConnection(myConnectionString)
- conn.Open()
+ myConnectionString = "server=127.0.0.1;" _
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=test;"
+
+ Try
+ Dim conn As New MySql.Data.MySqlClient.MySqlConnection(myConnectionString)
+ conn.Open()
Catch ex As MySql.Data.MySqlClient.MySqlException
- MessageBox.Show(ex.Message)
- End Try
+ MessageBox.Show(ex.Message)
+ End Try
</programlisting>
<para>
@@ -2444,23 +2459,23 @@
<programlisting>
Dim myConnectionString as String
- myConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=test;"
-
- Try
- Dim conn As New MySql.Data.MySqlClient.MySqlConnection(myConnectionString)
- conn.Open()
+ myConnectionString = "server=127.0.0.1;" _
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=test;"
+
+ Try
+ Dim conn As New MySql.Data.MySqlClient.MySqlConnection(myConnectionString)
+ conn.Open()
- Catch ex As MySql.Data.MySqlClient.MySqlException
- Select Case ex.Number
- Case 0
- MessageBox.Show("Cannot connect to server. Contact administrator")
- Case 1045
- MessageBox.Show("Invalid username/password, please try again")
- End Select
- End Try
+ Catch ex As MySql.Data.MySqlClient.MySqlException
+ Select Case ex.Number
+ Case 0
+ MessageBox.Show("Cannot connect to server. Contact administrator")
+ Case 1045
+ MessageBox.Show("Invalid username/password, please try again")
+ End Select
+ End Try
</programlisting>
<para>
@@ -2552,27 +2567,27 @@
<programlisting>
Dim conn As New MySqlConnection
Dim cmd As New MySqlCommand
-
+
conn.ConnectionString = strConnection
Try
- conn.Open()
- cmd.Connection = conn
-
- cmd.CommandText = "INSERT INTO myTable VALUES(NULL, ?number, ?text)"
- cmd.Prepare()
-
- cmd.Parameters.Add("?number", 1)
- cmd.Parameters.Add("?text", "One")
-
- For i = 1 To 1000
- cmd.Parameters("?number").Value = i
- cmd.Parameters("?text").Value = "A string value"
+ conn.Open()
+ cmd.Connection = conn
+
+ cmd.CommandText = "INSERT INTO myTable VALUES(NULL, ?number, ?text)"
+ cmd.Prepare()
+
+ cmd.Parameters.Add("?number", 1)
+ cmd.Parameters.Add("?text", "One")
+
+ For i = 1 To 1000
+ cmd.Parameters("?number").Value = i
+ cmd.Parameters("?text").Value = "A string value"
- cmd.ExecuteNonQuery()
- Next
+ cmd.ExecuteNonQuery()
+ Next
Catch ex As MySqlException
- MessageBox.Show("Error " & ex.Number & " has occurred: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+ MessageBox.Show("Error " & ex.Number & " has occurred: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
</programlisting>
@@ -2691,21 +2706,21 @@
Dim cmd As New MySqlCommand
conn.ConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=test"
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=test"
Try
- conn.Open()
- cmd.Connection = conn
+ conn.Open()
+ cmd.Connection = conn
- cmd.CommandText = "CREATE PROCEDURE add_emp(" _
- & "IN fname VARCHAR(20), IN lname VARCHAR(20), IN bday DATETIME, OUT empno INT) " _
- & "BEGIN INSERT INTO emp(first_name, last_name, birthdate) " _
- & "VALUES(fname, lname, DATE(bday)); SET empno = LAST_INSERT_ID(); END"
- cmd.ExecuteNonQuery()
+ cmd.CommandText = "CREATE PROCEDURE add_emp(" _
+ & "IN fname VARCHAR(20), IN lname VARCHAR(20), IN bday DATETIME, OUT empno INT) " _
+ & "BEGIN INSERT INTO emp(first_name, last_name, birthdate) " _
+ & "VALUES(fname, lname, DATE(bday)); SET empno = LAST_INSERT_ID(); END"
+ cmd.ExecuteNonQuery()
Catch ex As MySqlException
- MessageBox.Show("Error " & ex.Number & " has occurred: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+ MessageBox.Show("Error " & ex.Number & " has occurred: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
</programlisting>
@@ -2763,34 +2778,34 @@
Dim cmd As New MySqlCommand
conn.ConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=test"
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=test"
Try
- conn.Open()
- cmd.Connection = conn
+ conn.Open()
+ cmd.Connection = conn
- cmd.CommandText = "add_emp"
- cmd.CommandType = CommandType.StoredProcedure
+ cmd.CommandText = "add_emp"
+ cmd.CommandType = CommandType.StoredProcedure
- cmd.Parameters.Add("?lname", 'Jones')
- cmd.Parameters("?lname").Direction = ParameterDirection.Input
+ cmd.Parameters.Add("?lname", 'Jones')
+ cmd.Parameters("?lname").Direction = ParameterDirection.Input
- cmd.Parameters.Add("?fname", 'Tom')
- cmd.Parameters("?fname").Direction = ParameterDirection.Input
+ cmd.Parameters.Add("?fname", 'Tom')
+ cmd.Parameters("?fname").Direction = ParameterDirection.Input
- cmd.Parameters.Add("?bday", #12/13/1977 2:17:36 PM#)
- cmd.Parameters("?bday").Direction = ParameterDirection.Input
+ cmd.Parameters.Add("?bday", #12/13/1977 2:17:36 PM#)
+ cmd.Parameters("?bday").Direction = ParameterDirection.Input
- cmd.Parameters.Add("?empno", MySqlDbType.Int32)
- cmd.Parameters("?empno").Direction = ParameterDirection.Output
+ cmd.Parameters.Add("?empno", MySqlDbType.Int32)
+ cmd.Parameters("?empno").Direction = ParameterDirection.Output
- cmd.ExecuteNonQuery()
+ cmd.ExecuteNonQuery()
- MessageBox.Show(cmd.Parameters("?empno").Value)
+ MessageBox.Show(cmd.Parameters("?empno").Value)
Catch ex As MySqlException
- MessageBox.Show("Error " & ex.Number & " has occurred: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+ MessageBox.Show("Error " & ex.Number & " has occurred: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
</programlisting>
@@ -2932,48 +2947,48 @@
<programlisting>
Dim conn As New MySqlConnection
- Dim cmd As New MySqlCommand
+ Dim cmd As New MySqlCommand
- Dim SQL As String
+ Dim SQL As String
- Dim FileSize As UInt32
- Dim rawData() As Byte
- Dim fs As FileStream
+ Dim FileSize As UInt32
+ Dim rawData() As Byte
+ Dim fs As FileStream
- conn.ConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=test"
+ conn.ConnectionString = "server=127.0.0.1;" _
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=test"
- Try
- fs = New FileStream("c:\image.png", FileMode.Open, FileAccess.Read)
- FileSize = fs.Length
+ Try
+ fs = New FileStream("c:\image.png", FileMode.Open, FileAccess.Read)
+ FileSize = fs.Length
- rawData = New Byte(FileSize) {}
- fs.Read(rawData, 0, FileSize)
- fs.Close()
+ rawData = New Byte(FileSize) {}
+ fs.Read(rawData, 0, FileSize)
+ fs.Close()
- conn.Open()
+ conn.Open()
- SQL = "INSERT INTO file VALUES(NULL, ?FileName, ?FileSize, ?File)"
+ SQL = "INSERT INTO file VALUES(NULL, ?FileName, ?FileSize, ?File)"
cmd.Connection = conn
- cmd.CommandText = SQL
- cmd.Parameters.Add("?FileName", strFileName)
- cmd.Parameters.Add("?FileSize", FileSize)
- cmd.Parameters.Add("?File", rawData)
+ cmd.CommandText = SQL
+ cmd.Parameters.Add("?FileName", strFileName)
+ cmd.Parameters.Add("?FileSize", FileSize)
+ cmd.Parameters.Add("?File", rawData)
- cmd.ExecuteNonQuery()
+ cmd.ExecuteNonQuery()
- MessageBox.Show("File Inserted into database successfully!", _
+ MessageBox.Show("File Inserted into database successfully!", _
"Success!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
-
- conn.Close()
- Catch ex As Exception
- MessageBox.Show("There was an error: " & ex.Message, "Error", _
+
+ conn.Close()
+ Catch ex As Exception
+ MessageBox.Show("There was an error: " & ex.Message, "Error", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
- End Try
- </programlisting>
+ End Try
+ </programlisting>
<para>
[C#]
@@ -3023,48 +3038,48 @@
<programlisting>
Dim conn As New MySqlConnection
- Dim cmd As New MySqlCommand
- Dim myData As MySqlDataReader
- Dim SQL As String
- Dim rawData() As Byte
- Dim FileSize As UInt32
- Dim fs As FileStream
+ Dim cmd As New MySqlCommand
+ Dim myData As MySqlDataReader
+ Dim SQL As String
+ Dim rawData() As Byte
+ Dim FileSize As UInt32
+ Dim fs As FileStream
- conn.ConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=test"
+ conn.ConnectionString = "server=127.0.0.1;" _
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=test"
- SQL = "SELECT file_name, file_size, file FROM file"
+ SQL = "SELECT file_name, file_size, file FROM file"
- Try
- conn.Open()
+ Try
+ conn.Open()
- cmd.Connection = conn
- cmd.CommandText = SQL
+ cmd.Connection = conn
+ cmd.CommandText = SQL
- myData = cmd.ExecuteReader
+ myData = cmd.ExecuteReader
- If Not myData.HasRows Then Throw New Exception("There are no BLOBs to save")
+ If Not myData.HasRows Then Throw New Exception("There are no BLOBs to save")
- myData.Read()
+ myData.Read()
- FileSize = myData.GetUInt32(myData.GetOrdinal("file_size"))
- rawData = New Byte(FileSize) {}
+ FileSize = myData.GetUInt32(myData.GetOrdinal("file_size"))
+ rawData = New Byte(FileSize) {}
- myData.GetBytes(myData.GetOrdinal("file"), 0, rawData, 0, FileSize)
+ myData.GetBytes(myData.GetOrdinal("file"), 0, rawData, 0, FileSize)
- fs = New FileStream("C:\newfile.png", FileMode.OpenOrCreate, FileAccess.Write)
- fs.Write(rawData, 0, FileSize)
- fs.Close()
-
- MessageBox.Show("File successfully written to disk!", "Success!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
+ fs = New FileStream("C:\newfile.png", FileMode.OpenOrCreate, FileAccess.Write)
+ fs.Write(rawData, 0, FileSize)
+ fs.Close()
+
+ MessageBox.Show("File successfully written to disk!", "Success!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
- myData.Close()
- conn.Close()
- Catch ex As Exception
- MessageBox.Show("There was an error: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End Try
+ myData.Close()
+ conn.Close()
+ Catch ex As Exception
+ MessageBox.Show("There was an error: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+ End Try
</programlisting>
<para>
@@ -3163,30 +3178,30 @@
</para>
<programlisting>
- Dim myData As New DataSet
- Dim conn As New MySqlConnection
- Dim cmd As New MySqlCommand
- Dim myAdapter As New MySqlDataAdapter
-
- conn.ConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=world"
-
- Try
- conn.Open()
- cmd.CommandText = "SELECT city.name AS cityName, city.population AS CityPopulation, " _
+ Dim myData As New DataSet
+ Dim conn As New MySqlConnection
+ Dim cmd As New MySqlCommand
+ Dim myAdapter As New MySqlDataAdapter
+
+ conn.ConnectionString = "server=127.0.0.1;" _
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=world"
+
+ Try
+ conn.Open()
+ cmd.CommandText = "SELECT city.name AS cityName, city.population AS CityPopulation, " _
& "country.name, country.population, country.continent " _
& "FROM country, city ORDER BY country.continent, country.name"
- cmd.Connection = conn
+ cmd.Connection = conn
- myAdapter.SelectCommand = cmd
- myAdapter.Fill(myData)
+ myAdapter.SelectCommand = cmd
+ myAdapter.Fill(myData)
- myData.WriteXml("C:\dataset.xml", XmlWriteMode.WriteSchema)
- Catch ex As Exception
- MessageBox.Show(ex.Message, "Report could not be created", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End Try
+ myData.WriteXml("C:\dataset.xml", XmlWriteMode.WriteSchema)
+ Catch ex As Exception
+ MessageBox.Show(ex.Message, "Report could not be created", MessageBoxButtons.OK, MessageBoxIcon.Error)
+ End Try
</programlisting>
<para>
@@ -3310,34 +3325,34 @@
Imports MySql.Data.MySqlClient
Dim myReport As New ReportDocument
- Dim myData As New DataSet
- Dim conn As New MySqlConnection
- Dim cmd As New MySqlCommand
- Dim myAdapter As New MySqlDataAdapter
-
- conn.ConnectionString = _
- "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=test"
+ Dim myData As New DataSet
+ Dim conn As New MySqlConnection
+ Dim cmd As New MySqlCommand
+ Dim myAdapter As New MySqlDataAdapter
- Try
- conn.Open()
+ conn.ConnectionString = _
+ "server=127.0.0.1;" _
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=test"
- cmd.CommandText = "SELECT city.name AS cityName, city.population AS CityPopulation, " _
+ Try
+ conn.Open()
+
+ cmd.CommandText = "SELECT city.name AS cityName, city.population AS CityPopulation, " _
& "country.name, country.population, country.continent " _
& "FROM country, city ORDER BY country.continent, country.name"
- cmd.Connection = conn
+ cmd.Connection = conn
- myAdapter.SelectCommand = cmd
- myAdapter.Fill(myData)
+ myAdapter.SelectCommand = cmd
+ myAdapter.Fill(myData)
- myReport.Load(".\world_report.rpt")
- myReport.SetDataSource(myData)
- myViewer.ReportSource = myReport
- Catch ex As Exception
- MessageBox.Show(ex.Message, "Report could not be created", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End Try
+ myReport.Load(".\world_report.rpt")
+ myReport.SetDataSource(myData)
+ myViewer.ReportSource = myReport
+ Catch ex As Exception
+ MessageBox.Show(ex.Message, "Report could not be created", MessageBoxButtons.OK, MessageBoxIcon.Error)
+ End Try
</programlisting>
<para>
@@ -3393,32 +3408,32 @@
Imports System.Data
Imports MySql.Data.MySqlClient
- Dim myReport As New ReportDocument
- Dim myData As New DataSet
- Dim conn As New MySqlConnection
- Dim cmd As New MySqlCommand
- Dim myAdapter As New MySqlDataAdapter
-
- conn.ConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=world"
-
- Try
- conn.Open()
- cmd.CommandText = "SELECT name, population, countrycode FROM city ORDER BY countrycode, name; SELECT name, population, code, continent FROM country ORDER BY continent, name"
- cmd.Connection = conn
-
- myAdapter.SelectCommand = cmd
- myAdapter.Fill(myData)
-
- myReport.Load(".\world_report.rpt")
- myReport.Database.Tables(0).SetDataSource(myData.Tables(0))
- myReport.Database.Tables(1).SetDataSource(myData.Tables(1))
- myViewer.ReportSource = myReport
- Catch ex As Exception
- MessageBox.Show(ex.Message, "Report could not be created", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End Try
+ Dim myReport As New ReportDocument
+ Dim myData As New DataSet
+ Dim conn As New MySqlConnection
+ Dim cmd As New MySqlCommand
+ Dim myAdapter As New MySqlDataAdapter
+
+ conn.ConnectionString = "server=127.0.0.1;" _
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=world"
+
+ Try
+ conn.Open()
+ cmd.CommandText = "SELECT name, population, countrycode FROM city ORDER BY countrycode, name; SELECT name, population, code, continent FROM country ORDER BY continent, name"
+ cmd.Connection = conn
+
+ myAdapter.SelectCommand = cmd
+ myAdapter.Fill(myData)
+
+ myReport.Load(".\world_report.rpt")
+ myReport.Database.Tables(0).SetDataSource(myData.Tables(0))
+ myReport.Database.Tables(1).SetDataSource(myData.Tables(1))
+ myViewer.ReportSource = myReport
+ Catch ex As Exception
+ MessageBox.Show(ex.Message, "Report could not be created", MessageBoxButtons.OK, MessageBoxIcon.Error)
+ End Try
</programlisting>
<para>
@@ -3625,10 +3640,10 @@
<programlisting>
If Not myReader.IsDBNull(myReader.GetOrdinal("mytime")) Then
- myTime = myReader.GetDateTime(myReader.GetOrdinal("mytime"))
- Else
- myTime = Nothing
- End If
+ myTime = myReader.GetDateTime(myReader.GetOrdinal("mytime"))
+ Else
+ myTime = Nothing
+ End If
</programlisting>
<para>
--- 1.5/refman-5.0/connector-net.xml 2005-08-30 05:05:05 +02:00
+++ 1.6/refman-5.0/connector-net.xml 2005-09-05 15:55:53 +02:00
@@ -2312,21 +2312,21 @@
</para>
<programlisting>
- Dim conn As New MySql.Data.MySqlClient.MySqlConnection
- Dim myConnectionString as String
+Dim conn As New MySql.Data.MySqlClient.MySqlConnection
+Dim myConnectionString as String
- myConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=test;"
-
- Try
- conn.ConnectionString = myConnectionString
- conn.Open()
-
- Catch ex As MySql.Data.MySqlClient.MySqlException
- MessageBox.Show(ex.Message)
- End Try
+myConnectionString = "server=127.0.0.1;" _
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=test;"
+
+Try
+ conn.ConnectionString = myConnectionString
+ conn.Open()
+
+ Catch ex As MySql.Data.MySqlClient.MySqlException
+ MessageBox.Show(ex.Message)
+End Try
</programlisting>
<para>
@@ -2334,8 +2334,23 @@
</para>
<programlisting>
- C# EXAMPLE PENDING
- </programlisting>
+MySql.Data.MySqlClient.MySqlConnection con = new
+MySql.Data.MySqlClient.MySqlConnection();
+string constr = "server=192.168.0.2;";
+constr += "uid=mike;";
+constr += "pwd=password;";
+constr += "database=test;";
+try
+{
+ con.ConnectionString = constr;
+ con.Open();
+ MessageBox.Show("Connected Successfully");
+}
+catch(MySql.Data.MySqlClient.MySqlException ex)
+{
+ MessageBox.Show(ex.Message);
+}
+</programlisting>
<para>
You can also pass the connection string to the constructor of
@@ -2347,20 +2362,20 @@
</para>
<programlisting>
- Dim myConnectionString as String
+ Dim myConnectionString as String
- myConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=test;"
-
- Try
- Dim conn As New MySql.Data.MySqlClient.MySqlConnection(myConnectionString)
- conn.Open()
+ myConnectionString = "server=127.0.0.1;" _
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=test;"
+
+ Try
+ Dim conn As New MySql.Data.MySqlClient.MySqlConnection(myConnectionString)
+ conn.Open()
Catch ex As MySql.Data.MySqlClient.MySqlException
- MessageBox.Show(ex.Message)
- End Try
+ MessageBox.Show(ex.Message)
+ End Try
</programlisting>
<para>
@@ -2444,23 +2459,23 @@
<programlisting>
Dim myConnectionString as String
- myConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=test;"
-
- Try
- Dim conn As New MySql.Data.MySqlClient.MySqlConnection(myConnectionString)
- conn.Open()
+ myConnectionString = "server=127.0.0.1;" _
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=test;"
+
+ Try
+ Dim conn As New MySql.Data.MySqlClient.MySqlConnection(myConnectionString)
+ conn.Open()
- Catch ex As MySql.Data.MySqlClient.MySqlException
- Select Case ex.Number
- Case 0
- MessageBox.Show("Cannot connect to server. Contact administrator")
- Case 1045
- MessageBox.Show("Invalid username/password, please try again")
- End Select
- End Try
+ Catch ex As MySql.Data.MySqlClient.MySqlException
+ Select Case ex.Number
+ Case 0
+ MessageBox.Show("Cannot connect to server. Contact administrator")
+ Case 1045
+ MessageBox.Show("Invalid username/password, please try again")
+ End Select
+ End Try
</programlisting>
<para>
@@ -2552,27 +2567,27 @@
<programlisting>
Dim conn As New MySqlConnection
Dim cmd As New MySqlCommand
-
+
conn.ConnectionString = strConnection
Try
- conn.Open()
- cmd.Connection = conn
-
- cmd.CommandText = "INSERT INTO myTable VALUES(NULL, ?number, ?text)"
- cmd.Prepare()
-
- cmd.Parameters.Add("?number", 1)
- cmd.Parameters.Add("?text", "One")
-
- For i = 1 To 1000
- cmd.Parameters("?number").Value = i
- cmd.Parameters("?text").Value = "A string value"
+ conn.Open()
+ cmd.Connection = conn
+
+ cmd.CommandText = "INSERT INTO myTable VALUES(NULL, ?number, ?text)"
+ cmd.Prepare()
+
+ cmd.Parameters.Add("?number", 1)
+ cmd.Parameters.Add("?text", "One")
+
+ For i = 1 To 1000
+ cmd.Parameters("?number").Value = i
+ cmd.Parameters("?text").Value = "A string value"
- cmd.ExecuteNonQuery()
- Next
+ cmd.ExecuteNonQuery()
+ Next
Catch ex As MySqlException
- MessageBox.Show("Error " & ex.Number & " has occurred: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+ MessageBox.Show("Error " & ex.Number & " has occurred: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
</programlisting>
@@ -2691,21 +2706,21 @@
Dim cmd As New MySqlCommand
conn.ConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=test"
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=test"
Try
- conn.Open()
- cmd.Connection = conn
+ conn.Open()
+ cmd.Connection = conn
- cmd.CommandText = "CREATE PROCEDURE add_emp(" _
- & "IN fname VARCHAR(20), IN lname VARCHAR(20), IN bday DATETIME, OUT empno INT) " _
- & "BEGIN INSERT INTO emp(first_name, last_name, birthdate) " _
- & "VALUES(fname, lname, DATE(bday)); SET empno = LAST_INSERT_ID(); END"
- cmd.ExecuteNonQuery()
+ cmd.CommandText = "CREATE PROCEDURE add_emp(" _
+ & "IN fname VARCHAR(20), IN lname VARCHAR(20), IN bday DATETIME, OUT empno INT) " _
+ & "BEGIN INSERT INTO emp(first_name, last_name, birthdate) " _
+ & "VALUES(fname, lname, DATE(bday)); SET empno = LAST_INSERT_ID(); END"
+ cmd.ExecuteNonQuery()
Catch ex As MySqlException
- MessageBox.Show("Error " & ex.Number & " has occurred: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+ MessageBox.Show("Error " & ex.Number & " has occurred: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
</programlisting>
@@ -2763,34 +2778,34 @@
Dim cmd As New MySqlCommand
conn.ConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=test"
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=test"
Try
- conn.Open()
- cmd.Connection = conn
+ conn.Open()
+ cmd.Connection = conn
- cmd.CommandText = "add_emp"
- cmd.CommandType = CommandType.StoredProcedure
+ cmd.CommandText = "add_emp"
+ cmd.CommandType = CommandType.StoredProcedure
- cmd.Parameters.Add("?lname", 'Jones')
- cmd.Parameters("?lname").Direction = ParameterDirection.Input
+ cmd.Parameters.Add("?lname", 'Jones')
+ cmd.Parameters("?lname").Direction = ParameterDirection.Input
- cmd.Parameters.Add("?fname", 'Tom')
- cmd.Parameters("?fname").Direction = ParameterDirection.Input
+ cmd.Parameters.Add("?fname", 'Tom')
+ cmd.Parameters("?fname").Direction = ParameterDirection.Input
- cmd.Parameters.Add("?bday", #12/13/1977 2:17:36 PM#)
- cmd.Parameters("?bday").Direction = ParameterDirection.Input
+ cmd.Parameters.Add("?bday", #12/13/1977 2:17:36 PM#)
+ cmd.Parameters("?bday").Direction = ParameterDirection.Input
- cmd.Parameters.Add("?empno", MySqlDbType.Int32)
- cmd.Parameters("?empno").Direction = ParameterDirection.Output
+ cmd.Parameters.Add("?empno", MySqlDbType.Int32)
+ cmd.Parameters("?empno").Direction = ParameterDirection.Output
- cmd.ExecuteNonQuery()
+ cmd.ExecuteNonQuery()
- MessageBox.Show(cmd.Parameters("?empno").Value)
+ MessageBox.Show(cmd.Parameters("?empno").Value)
Catch ex As MySqlException
- MessageBox.Show("Error " & ex.Number & " has occurred: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+ MessageBox.Show("Error " & ex.Number & " has occurred: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
</programlisting>
@@ -2932,48 +2947,48 @@
<programlisting>
Dim conn As New MySqlConnection
- Dim cmd As New MySqlCommand
+ Dim cmd As New MySqlCommand
- Dim SQL As String
+ Dim SQL As String
- Dim FileSize As UInt32
- Dim rawData() As Byte
- Dim fs As FileStream
+ Dim FileSize As UInt32
+ Dim rawData() As Byte
+ Dim fs As FileStream
- conn.ConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=test"
+ conn.ConnectionString = "server=127.0.0.1;" _
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=test"
- Try
- fs = New FileStream("c:\image.png", FileMode.Open, FileAccess.Read)
- FileSize = fs.Length
+ Try
+ fs = New FileStream("c:\image.png", FileMode.Open, FileAccess.Read)
+ FileSize = fs.Length
- rawData = New Byte(FileSize) {}
- fs.Read(rawData, 0, FileSize)
- fs.Close()
+ rawData = New Byte(FileSize) {}
+ fs.Read(rawData, 0, FileSize)
+ fs.Close()
- conn.Open()
+ conn.Open()
- SQL = "INSERT INTO file VALUES(NULL, ?FileName, ?FileSize, ?File)"
+ SQL = "INSERT INTO file VALUES(NULL, ?FileName, ?FileSize, ?File)"
cmd.Connection = conn
- cmd.CommandText = SQL
- cmd.Parameters.Add("?FileName", strFileName)
- cmd.Parameters.Add("?FileSize", FileSize)
- cmd.Parameters.Add("?File", rawData)
+ cmd.CommandText = SQL
+ cmd.Parameters.Add("?FileName", strFileName)
+ cmd.Parameters.Add("?FileSize", FileSize)
+ cmd.Parameters.Add("?File", rawData)
- cmd.ExecuteNonQuery()
+ cmd.ExecuteNonQuery()
- MessageBox.Show("File Inserted into database successfully!", _
+ MessageBox.Show("File Inserted into database successfully!", _
"Success!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
-
- conn.Close()
- Catch ex As Exception
- MessageBox.Show("There was an error: " & ex.Message, "Error", _
+
+ conn.Close()
+ Catch ex As Exception
+ MessageBox.Show("There was an error: " & ex.Message, "Error", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
- End Try
- </programlisting>
+ End Try
+ </programlisting>
<para>
[C#]
@@ -3023,48 +3038,48 @@
<programlisting>
Dim conn As New MySqlConnection
- Dim cmd As New MySqlCommand
- Dim myData As MySqlDataReader
- Dim SQL As String
- Dim rawData() As Byte
- Dim FileSize As UInt32
- Dim fs As FileStream
+ Dim cmd As New MySqlCommand
+ Dim myData As MySqlDataReader
+ Dim SQL As String
+ Dim rawData() As Byte
+ Dim FileSize As UInt32
+ Dim fs As FileStream
- conn.ConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=test"
+ conn.ConnectionString = "server=127.0.0.1;" _
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=test"
- SQL = "SELECT file_name, file_size, file FROM file"
+ SQL = "SELECT file_name, file_size, file FROM file"
- Try
- conn.Open()
+ Try
+ conn.Open()
- cmd.Connection = conn
- cmd.CommandText = SQL
+ cmd.Connection = conn
+ cmd.CommandText = SQL
- myData = cmd.ExecuteReader
+ myData = cmd.ExecuteReader
- If Not myData.HasRows Then Throw New Exception("There are no BLOBs to save")
+ If Not myData.HasRows Then Throw New Exception("There are no BLOBs to save")
- myData.Read()
+ myData.Read()
- FileSize = myData.GetUInt32(myData.GetOrdinal("file_size"))
- rawData = New Byte(FileSize) {}
+ FileSize = myData.GetUInt32(myData.GetOrdinal("file_size"))
+ rawData = New Byte(FileSize) {}
- myData.GetBytes(myData.GetOrdinal("file"), 0, rawData, 0, FileSize)
+ myData.GetBytes(myData.GetOrdinal("file"), 0, rawData, 0, FileSize)
- fs = New FileStream("C:\newfile.png", FileMode.OpenOrCreate, FileAccess.Write)
- fs.Write(rawData, 0, FileSize)
- fs.Close()
-
- MessageBox.Show("File successfully written to disk!", "Success!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
+ fs = New FileStream("C:\newfile.png", FileMode.OpenOrCreate, FileAccess.Write)
+ fs.Write(rawData, 0, FileSize)
+ fs.Close()
+
+ MessageBox.Show("File successfully written to disk!", "Success!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
- myData.Close()
- conn.Close()
- Catch ex As Exception
- MessageBox.Show("There was an error: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End Try
+ myData.Close()
+ conn.Close()
+ Catch ex As Exception
+ MessageBox.Show("There was an error: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+ End Try
</programlisting>
<para>
@@ -3163,30 +3178,30 @@
</para>
<programlisting>
- Dim myData As New DataSet
- Dim conn As New MySqlConnection
- Dim cmd As New MySqlCommand
- Dim myAdapter As New MySqlDataAdapter
-
- conn.ConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=world"
-
- Try
- conn.Open()
- cmd.CommandText = "SELECT city.name AS cityName, city.population AS CityPopulation, " _
+ Dim myData As New DataSet
+ Dim conn As New MySqlConnection
+ Dim cmd As New MySqlCommand
+ Dim myAdapter As New MySqlDataAdapter
+
+ conn.ConnectionString = "server=127.0.0.1;" _
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=world"
+
+ Try
+ conn.Open()
+ cmd.CommandText = "SELECT city.name AS cityName, city.population AS CityPopulation, " _
& "country.name, country.population, country.continent " _
& "FROM country, city ORDER BY country.continent, country.name"
- cmd.Connection = conn
+ cmd.Connection = conn
- myAdapter.SelectCommand = cmd
- myAdapter.Fill(myData)
+ myAdapter.SelectCommand = cmd
+ myAdapter.Fill(myData)
- myData.WriteXml("C:\dataset.xml", XmlWriteMode.WriteSchema)
- Catch ex As Exception
- MessageBox.Show(ex.Message, "Report could not be created", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End Try
+ myData.WriteXml("C:\dataset.xml", XmlWriteMode.WriteSchema)
+ Catch ex As Exception
+ MessageBox.Show(ex.Message, "Report could not be created", MessageBoxButtons.OK, MessageBoxIcon.Error)
+ End Try
</programlisting>
<para>
@@ -3310,34 +3325,34 @@
Imports MySql.Data.MySqlClient
Dim myReport As New ReportDocument
- Dim myData As New DataSet
- Dim conn As New MySqlConnection
- Dim cmd As New MySqlCommand
- Dim myAdapter As New MySqlDataAdapter
-
- conn.ConnectionString = _
- "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=test"
+ Dim myData As New DataSet
+ Dim conn As New MySqlConnection
+ Dim cmd As New MySqlCommand
+ Dim myAdapter As New MySqlDataAdapter
- Try
- conn.Open()
+ conn.ConnectionString = _
+ "server=127.0.0.1;" _
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=test"
- cmd.CommandText = "SELECT city.name AS cityName, city.population AS CityPopulation, " _
+ Try
+ conn.Open()
+
+ cmd.CommandText = "SELECT city.name AS cityName, city.population AS CityPopulation, " _
& "country.name, country.population, country.continent " _
& "FROM country, city ORDER BY country.continent, country.name"
- cmd.Connection = conn
+ cmd.Connection = conn
- myAdapter.SelectCommand = cmd
- myAdapter.Fill(myData)
+ myAdapter.SelectCommand = cmd
+ myAdapter.Fill(myData)
- myReport.Load(".\world_report.rpt")
- myReport.SetDataSource(myData)
- myViewer.ReportSource = myReport
- Catch ex As Exception
- MessageBox.Show(ex.Message, "Report could not be created", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End Try
+ myReport.Load(".\world_report.rpt")
+ myReport.SetDataSource(myData)
+ myViewer.ReportSource = myReport
+ Catch ex As Exception
+ MessageBox.Show(ex.Message, "Report could not be created", MessageBoxButtons.OK, MessageBoxIcon.Error)
+ End Try
</programlisting>
<para>
@@ -3393,32 +3408,32 @@
Imports System.Data
Imports MySql.Data.MySqlClient
- Dim myReport As New ReportDocument
- Dim myData As New DataSet
- Dim conn As New MySqlConnection
- Dim cmd As New MySqlCommand
- Dim myAdapter As New MySqlDataAdapter
-
- conn.ConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=world"
-
- Try
- conn.Open()
- cmd.CommandText = "SELECT name, population, countrycode FROM city ORDER BY countrycode, name; SELECT name, population, code, continent FROM country ORDER BY continent, name"
- cmd.Connection = conn
-
- myAdapter.SelectCommand = cmd
- myAdapter.Fill(myData)
-
- myReport.Load(".\world_report.rpt")
- myReport.Database.Tables(0).SetDataSource(myData.Tables(0))
- myReport.Database.Tables(1).SetDataSource(myData.Tables(1))
- myViewer.ReportSource = myReport
- Catch ex As Exception
- MessageBox.Show(ex.Message, "Report could not be created", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End Try
+ Dim myReport As New ReportDocument
+ Dim myData As New DataSet
+ Dim conn As New MySqlConnection
+ Dim cmd As New MySqlCommand
+ Dim myAdapter As New MySqlDataAdapter
+
+ conn.ConnectionString = "server=127.0.0.1;" _
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=world"
+
+ Try
+ conn.Open()
+ cmd.CommandText = "SELECT name, population, countrycode FROM city ORDER BY countrycode, name; SELECT name, population, code, continent FROM country ORDER BY continent, name"
+ cmd.Connection = conn
+
+ myAdapter.SelectCommand = cmd
+ myAdapter.Fill(myData)
+
+ myReport.Load(".\world_report.rpt")
+ myReport.Database.Tables(0).SetDataSource(myData.Tables(0))
+ myReport.Database.Tables(1).SetDataSource(myData.Tables(1))
+ myViewer.ReportSource = myReport
+ Catch ex As Exception
+ MessageBox.Show(ex.Message, "Report could not be created", MessageBoxButtons.OK, MessageBoxIcon.Error)
+ End Try
</programlisting>
<para>
@@ -3625,10 +3640,10 @@
<programlisting>
If Not myReader.IsDBNull(myReader.GetOrdinal("mytime")) Then
- myTime = myReader.GetDateTime(myReader.GetOrdinal("mytime"))
- Else
- myTime = Nothing
- End If
+ myTime = myReader.GetDateTime(myReader.GetOrdinal("mytime"))
+ Else
+ myTime = Nothing
+ End If
</programlisting>
<para>
--- 1.5/refman-5.1/connector-net.xml 2005-08-30 05:05:05 +02:00
+++ 1.6/refman-5.1/connector-net.xml 2005-09-05 15:55:57 +02:00
@@ -2312,21 +2312,21 @@
</para>
<programlisting>
- Dim conn As New MySql.Data.MySqlClient.MySqlConnection
- Dim myConnectionString as String
+Dim conn As New MySql.Data.MySqlClient.MySqlConnection
+Dim myConnectionString as String
- myConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=test;"
-
- Try
- conn.ConnectionString = myConnectionString
- conn.Open()
-
- Catch ex As MySql.Data.MySqlClient.MySqlException
- MessageBox.Show(ex.Message)
- End Try
+myConnectionString = "server=127.0.0.1;" _
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=test;"
+
+Try
+ conn.ConnectionString = myConnectionString
+ conn.Open()
+
+ Catch ex As MySql.Data.MySqlClient.MySqlException
+ MessageBox.Show(ex.Message)
+End Try
</programlisting>
<para>
@@ -2334,8 +2334,23 @@
</para>
<programlisting>
- C# EXAMPLE PENDING
- </programlisting>
+MySql.Data.MySqlClient.MySqlConnection con = new
+MySql.Data.MySqlClient.MySqlConnection();
+string constr = "server=192.168.0.2;";
+constr += "uid=mike;";
+constr += "pwd=password;";
+constr += "database=test;";
+try
+{
+ con.ConnectionString = constr;
+ con.Open();
+ MessageBox.Show("Connected Successfully");
+}
+catch(MySql.Data.MySqlClient.MySqlException ex)
+{
+ MessageBox.Show(ex.Message);
+}
+</programlisting>
<para>
You can also pass the connection string to the constructor of
@@ -2347,20 +2362,20 @@
</para>
<programlisting>
- Dim myConnectionString as String
+ Dim myConnectionString as String
- myConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=test;"
-
- Try
- Dim conn As New MySql.Data.MySqlClient.MySqlConnection(myConnectionString)
- conn.Open()
+ myConnectionString = "server=127.0.0.1;" _
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=test;"
+
+ Try
+ Dim conn As New MySql.Data.MySqlClient.MySqlConnection(myConnectionString)
+ conn.Open()
Catch ex As MySql.Data.MySqlClient.MySqlException
- MessageBox.Show(ex.Message)
- End Try
+ MessageBox.Show(ex.Message)
+ End Try
</programlisting>
<para>
@@ -2444,23 +2459,23 @@
<programlisting>
Dim myConnectionString as String
- myConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=test;"
-
- Try
- Dim conn As New MySql.Data.MySqlClient.MySqlConnection(myConnectionString)
- conn.Open()
+ myConnectionString = "server=127.0.0.1;" _
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=test;"
+
+ Try
+ Dim conn As New MySql.Data.MySqlClient.MySqlConnection(myConnectionString)
+ conn.Open()
- Catch ex As MySql.Data.MySqlClient.MySqlException
- Select Case ex.Number
- Case 0
- MessageBox.Show("Cannot connect to server. Contact administrator")
- Case 1045
- MessageBox.Show("Invalid username/password, please try again")
- End Select
- End Try
+ Catch ex As MySql.Data.MySqlClient.MySqlException
+ Select Case ex.Number
+ Case 0
+ MessageBox.Show("Cannot connect to server. Contact administrator")
+ Case 1045
+ MessageBox.Show("Invalid username/password, please try again")
+ End Select
+ End Try
</programlisting>
<para>
@@ -2552,27 +2567,27 @@
<programlisting>
Dim conn As New MySqlConnection
Dim cmd As New MySqlCommand
-
+
conn.ConnectionString = strConnection
Try
- conn.Open()
- cmd.Connection = conn
-
- cmd.CommandText = "INSERT INTO myTable VALUES(NULL, ?number, ?text)"
- cmd.Prepare()
-
- cmd.Parameters.Add("?number", 1)
- cmd.Parameters.Add("?text", "One")
-
- For i = 1 To 1000
- cmd.Parameters("?number").Value = i
- cmd.Parameters("?text").Value = "A string value"
+ conn.Open()
+ cmd.Connection = conn
+
+ cmd.CommandText = "INSERT INTO myTable VALUES(NULL, ?number, ?text)"
+ cmd.Prepare()
+
+ cmd.Parameters.Add("?number", 1)
+ cmd.Parameters.Add("?text", "One")
+
+ For i = 1 To 1000
+ cmd.Parameters("?number").Value = i
+ cmd.Parameters("?text").Value = "A string value"
- cmd.ExecuteNonQuery()
- Next
+ cmd.ExecuteNonQuery()
+ Next
Catch ex As MySqlException
- MessageBox.Show("Error " & ex.Number & " has occurred: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+ MessageBox.Show("Error " & ex.Number & " has occurred: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
</programlisting>
@@ -2691,21 +2706,21 @@
Dim cmd As New MySqlCommand
conn.ConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=test"
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=test"
Try
- conn.Open()
- cmd.Connection = conn
+ conn.Open()
+ cmd.Connection = conn
- cmd.CommandText = "CREATE PROCEDURE add_emp(" _
- & "IN fname VARCHAR(20), IN lname VARCHAR(20), IN bday DATETIME, OUT empno INT) " _
- & "BEGIN INSERT INTO emp(first_name, last_name, birthdate) " _
- & "VALUES(fname, lname, DATE(bday)); SET empno = LAST_INSERT_ID(); END"
- cmd.ExecuteNonQuery()
+ cmd.CommandText = "CREATE PROCEDURE add_emp(" _
+ & "IN fname VARCHAR(20), IN lname VARCHAR(20), IN bday DATETIME, OUT empno INT) " _
+ & "BEGIN INSERT INTO emp(first_name, last_name, birthdate) " _
+ & "VALUES(fname, lname, DATE(bday)); SET empno = LAST_INSERT_ID(); END"
+ cmd.ExecuteNonQuery()
Catch ex As MySqlException
- MessageBox.Show("Error " & ex.Number & " has occurred: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+ MessageBox.Show("Error " & ex.Number & " has occurred: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
</programlisting>
@@ -2763,34 +2778,34 @@
Dim cmd As New MySqlCommand
conn.ConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=test"
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=test"
Try
- conn.Open()
- cmd.Connection = conn
+ conn.Open()
+ cmd.Connection = conn
- cmd.CommandText = "add_emp"
- cmd.CommandType = CommandType.StoredProcedure
+ cmd.CommandText = "add_emp"
+ cmd.CommandType = CommandType.StoredProcedure
- cmd.Parameters.Add("?lname", 'Jones')
- cmd.Parameters("?lname").Direction = ParameterDirection.Input
+ cmd.Parameters.Add("?lname", 'Jones')
+ cmd.Parameters("?lname").Direction = ParameterDirection.Input
- cmd.Parameters.Add("?fname", 'Tom')
- cmd.Parameters("?fname").Direction = ParameterDirection.Input
+ cmd.Parameters.Add("?fname", 'Tom')
+ cmd.Parameters("?fname").Direction = ParameterDirection.Input
- cmd.Parameters.Add("?bday", #12/13/1977 2:17:36 PM#)
- cmd.Parameters("?bday").Direction = ParameterDirection.Input
+ cmd.Parameters.Add("?bday", #12/13/1977 2:17:36 PM#)
+ cmd.Parameters("?bday").Direction = ParameterDirection.Input
- cmd.Parameters.Add("?empno", MySqlDbType.Int32)
- cmd.Parameters("?empno").Direction = ParameterDirection.Output
+ cmd.Parameters.Add("?empno", MySqlDbType.Int32)
+ cmd.Parameters("?empno").Direction = ParameterDirection.Output
- cmd.ExecuteNonQuery()
+ cmd.ExecuteNonQuery()
- MessageBox.Show(cmd.Parameters("?empno").Value)
+ MessageBox.Show(cmd.Parameters("?empno").Value)
Catch ex As MySqlException
- MessageBox.Show("Error " & ex.Number & " has occurred: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+ MessageBox.Show("Error " & ex.Number & " has occurred: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
</programlisting>
@@ -2932,48 +2947,48 @@
<programlisting>
Dim conn As New MySqlConnection
- Dim cmd As New MySqlCommand
+ Dim cmd As New MySqlCommand
- Dim SQL As String
+ Dim SQL As String
- Dim FileSize As UInt32
- Dim rawData() As Byte
- Dim fs As FileStream
+ Dim FileSize As UInt32
+ Dim rawData() As Byte
+ Dim fs As FileStream
- conn.ConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=test"
+ conn.ConnectionString = "server=127.0.0.1;" _
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=test"
- Try
- fs = New FileStream("c:\image.png", FileMode.Open, FileAccess.Read)
- FileSize = fs.Length
+ Try
+ fs = New FileStream("c:\image.png", FileMode.Open, FileAccess.Read)
+ FileSize = fs.Length
- rawData = New Byte(FileSize) {}
- fs.Read(rawData, 0, FileSize)
- fs.Close()
+ rawData = New Byte(FileSize) {}
+ fs.Read(rawData, 0, FileSize)
+ fs.Close()
- conn.Open()
+ conn.Open()
- SQL = "INSERT INTO file VALUES(NULL, ?FileName, ?FileSize, ?File)"
+ SQL = "INSERT INTO file VALUES(NULL, ?FileName, ?FileSize, ?File)"
cmd.Connection = conn
- cmd.CommandText = SQL
- cmd.Parameters.Add("?FileName", strFileName)
- cmd.Parameters.Add("?FileSize", FileSize)
- cmd.Parameters.Add("?File", rawData)
+ cmd.CommandText = SQL
+ cmd.Parameters.Add("?FileName", strFileName)
+ cmd.Parameters.Add("?FileSize", FileSize)
+ cmd.Parameters.Add("?File", rawData)
- cmd.ExecuteNonQuery()
+ cmd.ExecuteNonQuery()
- MessageBox.Show("File Inserted into database successfully!", _
+ MessageBox.Show("File Inserted into database successfully!", _
"Success!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
-
- conn.Close()
- Catch ex As Exception
- MessageBox.Show("There was an error: " & ex.Message, "Error", _
+
+ conn.Close()
+ Catch ex As Exception
+ MessageBox.Show("There was an error: " & ex.Message, "Error", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
- End Try
- </programlisting>
+ End Try
+ </programlisting>
<para>
[C#]
@@ -3023,48 +3038,48 @@
<programlisting>
Dim conn As New MySqlConnection
- Dim cmd As New MySqlCommand
- Dim myData As MySqlDataReader
- Dim SQL As String
- Dim rawData() As Byte
- Dim FileSize As UInt32
- Dim fs As FileStream
+ Dim cmd As New MySqlCommand
+ Dim myData As MySqlDataReader
+ Dim SQL As String
+ Dim rawData() As Byte
+ Dim FileSize As UInt32
+ Dim fs As FileStream
- conn.ConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=test"
+ conn.ConnectionString = "server=127.0.0.1;" _
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=test"
- SQL = "SELECT file_name, file_size, file FROM file"
+ SQL = "SELECT file_name, file_size, file FROM file"
- Try
- conn.Open()
+ Try
+ conn.Open()
- cmd.Connection = conn
- cmd.CommandText = SQL
+ cmd.Connection = conn
+ cmd.CommandText = SQL
- myData = cmd.ExecuteReader
+ myData = cmd.ExecuteReader
- If Not myData.HasRows Then Throw New Exception("There are no BLOBs to save")
+ If Not myData.HasRows Then Throw New Exception("There are no BLOBs to save")
- myData.Read()
+ myData.Read()
- FileSize = myData.GetUInt32(myData.GetOrdinal("file_size"))
- rawData = New Byte(FileSize) {}
+ FileSize = myData.GetUInt32(myData.GetOrdinal("file_size"))
+ rawData = New Byte(FileSize) {}
- myData.GetBytes(myData.GetOrdinal("file"), 0, rawData, 0, FileSize)
+ myData.GetBytes(myData.GetOrdinal("file"), 0, rawData, 0, FileSize)
- fs = New FileStream("C:\newfile.png", FileMode.OpenOrCreate, FileAccess.Write)
- fs.Write(rawData, 0, FileSize)
- fs.Close()
-
- MessageBox.Show("File successfully written to disk!", "Success!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
+ fs = New FileStream("C:\newfile.png", FileMode.OpenOrCreate, FileAccess.Write)
+ fs.Write(rawData, 0, FileSize)
+ fs.Close()
+
+ MessageBox.Show("File successfully written to disk!", "Success!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
- myData.Close()
- conn.Close()
- Catch ex As Exception
- MessageBox.Show("There was an error: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End Try
+ myData.Close()
+ conn.Close()
+ Catch ex As Exception
+ MessageBox.Show("There was an error: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+ End Try
</programlisting>
<para>
@@ -3163,30 +3178,30 @@
</para>
<programlisting>
- Dim myData As New DataSet
- Dim conn As New MySqlConnection
- Dim cmd As New MySqlCommand
- Dim myAdapter As New MySqlDataAdapter
-
- conn.ConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=world"
-
- Try
- conn.Open()
- cmd.CommandText = "SELECT city.name AS cityName, city.population AS CityPopulation, " _
+ Dim myData As New DataSet
+ Dim conn As New MySqlConnection
+ Dim cmd As New MySqlCommand
+ Dim myAdapter As New MySqlDataAdapter
+
+ conn.ConnectionString = "server=127.0.0.1;" _
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=world"
+
+ Try
+ conn.Open()
+ cmd.CommandText = "SELECT city.name AS cityName, city.population AS CityPopulation, " _
& "country.name, country.population, country.continent " _
& "FROM country, city ORDER BY country.continent, country.name"
- cmd.Connection = conn
+ cmd.Connection = conn
- myAdapter.SelectCommand = cmd
- myAdapter.Fill(myData)
+ myAdapter.SelectCommand = cmd
+ myAdapter.Fill(myData)
- myData.WriteXml("C:\dataset.xml", XmlWriteMode.WriteSchema)
- Catch ex As Exception
- MessageBox.Show(ex.Message, "Report could not be created", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End Try
+ myData.WriteXml("C:\dataset.xml", XmlWriteMode.WriteSchema)
+ Catch ex As Exception
+ MessageBox.Show(ex.Message, "Report could not be created", MessageBoxButtons.OK, MessageBoxIcon.Error)
+ End Try
</programlisting>
<para>
@@ -3310,34 +3325,34 @@
Imports MySql.Data.MySqlClient
Dim myReport As New ReportDocument
- Dim myData As New DataSet
- Dim conn As New MySqlConnection
- Dim cmd As New MySqlCommand
- Dim myAdapter As New MySqlDataAdapter
-
- conn.ConnectionString = _
- "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=test"
+ Dim myData As New DataSet
+ Dim conn As New MySqlConnection
+ Dim cmd As New MySqlCommand
+ Dim myAdapter As New MySqlDataAdapter
- Try
- conn.Open()
+ conn.ConnectionString = _
+ "server=127.0.0.1;" _
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=test"
- cmd.CommandText = "SELECT city.name AS cityName, city.population AS CityPopulation, " _
+ Try
+ conn.Open()
+
+ cmd.CommandText = "SELECT city.name AS cityName, city.population AS CityPopulation, " _
& "country.name, country.population, country.continent " _
& "FROM country, city ORDER BY country.continent, country.name"
- cmd.Connection = conn
+ cmd.Connection = conn
- myAdapter.SelectCommand = cmd
- myAdapter.Fill(myData)
+ myAdapter.SelectCommand = cmd
+ myAdapter.Fill(myData)
- myReport.Load(".\world_report.rpt")
- myReport.SetDataSource(myData)
- myViewer.ReportSource = myReport
- Catch ex As Exception
- MessageBox.Show(ex.Message, "Report could not be created", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End Try
+ myReport.Load(".\world_report.rpt")
+ myReport.SetDataSource(myData)
+ myViewer.ReportSource = myReport
+ Catch ex As Exception
+ MessageBox.Show(ex.Message, "Report could not be created", MessageBoxButtons.OK, MessageBoxIcon.Error)
+ End Try
</programlisting>
<para>
@@ -3393,32 +3408,32 @@
Imports System.Data
Imports MySql.Data.MySqlClient
- Dim myReport As New ReportDocument
- Dim myData As New DataSet
- Dim conn As New MySqlConnection
- Dim cmd As New MySqlCommand
- Dim myAdapter As New MySqlDataAdapter
-
- conn.ConnectionString = "server=127.0.0.1;" _
- & "uid=root;" _
- & "pwd=12345;" _
- & "database=world"
-
- Try
- conn.Open()
- cmd.CommandText = "SELECT name, population, countrycode FROM city ORDER BY countrycode, name; SELECT name, population, code, continent FROM country ORDER BY continent, name"
- cmd.Connection = conn
-
- myAdapter.SelectCommand = cmd
- myAdapter.Fill(myData)
-
- myReport.Load(".\world_report.rpt")
- myReport.Database.Tables(0).SetDataSource(myData.Tables(0))
- myReport.Database.Tables(1).SetDataSource(myData.Tables(1))
- myViewer.ReportSource = myReport
- Catch ex As Exception
- MessageBox.Show(ex.Message, "Report could not be created", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End Try
+ Dim myReport As New ReportDocument
+ Dim myData As New DataSet
+ Dim conn As New MySqlConnection
+ Dim cmd As New MySqlCommand
+ Dim myAdapter As New MySqlDataAdapter
+
+ conn.ConnectionString = "server=127.0.0.1;" _
+ & "uid=root;" _
+ & "pwd=12345;" _
+ & "database=world"
+
+ Try
+ conn.Open()
+ cmd.CommandText = "SELECT name, population, countrycode FROM city ORDER BY countrycode, name; SELECT name, population, code, continent FROM country ORDER BY continent, name"
+ cmd.Connection = conn
+
+ myAdapter.SelectCommand = cmd
+ myAdapter.Fill(myData)
+
+ myReport.Load(".\world_report.rpt")
+ myReport.Database.Tables(0).SetDataSource(myData.Tables(0))
+ myReport.Database.Tables(1).SetDataSource(myData.Tables(1))
+ myViewer.ReportSource = myReport
+ Catch ex As Exception
+ MessageBox.Show(ex.Message, "Report could not be created", MessageBoxButtons.OK, MessageBoxIcon.Error)
+ End Try
</programlisting>
<para>
@@ -3625,10 +3640,10 @@
<programlisting>
If Not myReader.IsDBNull(myReader.GetOrdinal("mytime")) Then
- myTime = myReader.GetDateTime(myReader.GetOrdinal("mytime"))
- Else
- myTime = Nothing
- End If
+ myTime = myReader.GetDateTime(myReader.GetOrdinal("mytime"))
+ Else
+ myTime = Nothing
+ End If
</programlisting>
<para>
| Thread |
|---|
| • bk commit - mysqldoc@docsrva tree (stefan:1.3479) | stefan | 5 Sep |
