.NET + MySQL

mya_myra

Hello forumer sekalian.

Nak mintak tolong skit......nak mintak contoh source code dlm .NET utk retrieve data dr database MySQL

Kalau bole nak minta contoh utk open connection, retrieve data, edit data, save data dan delete data.

orang_letrik

Originally posted by mya_myra at 12-11-2008 08:24 PM
Hello forumer sekalian.

Nak mintak tolong skit......nak mintak contoh source code dlm .NET utk retrieve data dr database MySQL

Kalau bole nak minta contoh utk open connection, retrieve data ...

cikgu paling best: http://www.w3schools.com/

ultra78

boleh dapatkan sample di website mysql..pakai mysql .net connector

mya_myra

well...thanx 4 info.....

helps alot....

mizz_aurora

saye bdk baru belajar...

adekah microsoft c# tu same dgn .net.....?

mya_myra

Originally posted by mizz_aurora at 19-11-2008 02:41 PM
saye bdk baru belajar...

adekah microsoft c# tu same dgn .net.....?

rasanya tak la....

.net yg saya pakai ni vb.net.....

hasmal

dah settle ke problem u??
bleh ajar saya pulak tak??
confuse laa.....baru nak belajar vb.net

mizz_aurora

.Net ade byk kn..

cthnye : VB.Net, ASP.Net

c# lak = programming language same cm C, C++

myra pki language ape nk wt VB.Net tu..?

p/s: sume ni br blaja smlm, kne wt projek
br tehegeh2 nk blaja...

mya_myra

dah settle semua.....connection, add, edit & delete skalik.....

hampir nak seminggu gak cari coding utk ni, coz semua website tak bagi example yg bleh dipakai......  

neway, i'm using visual studio 2005, pakai visual basic.NET language, connect to MySql database

i'll post the example next week yer....coz coding tu semua kat opis la...hehehe....

hasmal

ok...aku dah bleh connect ke mysql,dah bleh add data dalam tu...
cuma aku problem masa nak view,edit database
kalau hang bleh tolong...aku nak tgk coding yang hang buat tu..

ok...tq

mya_myra

Source Code untuk Retrieve Data
(ni aku letak Retrieve, then aku letak dalam combo box cbConsName)

Dim mycon As New MySql.Data.MySqlClient.MySqlConnection("datasource=localhost;username=root;password=;database=testing")
Dim mycmd As MySql.Data.MySqlClient.MySqlCommand

Dim myreader As MySql.Data.MySqlClient.MySqlDataReader

mycon.ConnectionString = "datasource=localhost;username=root;password=;database=testing"
mycon.Open()
mycmd.Connection = mycon
mycmd.CommandText = "SELECT consumer_name FROM consumer"
myreader = mycmd.ExecuteReader

cbConsName.Items.Clear()
cbConsName.Text = "< Select Consumer Name >"

While (myreader.Read())
cbConsName.Items.Add(myreader.GetValue(myreader.GetOrdinal("consumer_name")))
End While

mya_myra

Source Code untuk Edit Data
(ambik value daripada txtCons.Text & lblAmt.Text untuk di-edit dalam database)


Dim mycon As New MySql.Data.MySqlClient.MySqlConnection("datasource=localhost;username=root;password=;database=testing")
Dim mycmd As New MySql.Data.MySqlClient.MySqlCommand

If MessageBox.Show("Are you sure you want to save this data?", "Question", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.Yes Then

mycmd.Connection = mycon
mycmd.CommandText = "UPDATE consumer SET consumption = ?consumption, elct_amt = ?elct_amt " & _
"WHERE consumer_name = '" & cbConsName.SelectedItem & "'"

Dim myadapter As New MySql.Data.MySqlClient.MySqlDataAdapter("SELECT * FROM consumer", mycon)
myadapter.UpdateCommand = mycmd
myadapter.UpdateCommand.Parameters.Add("?consumption", MySql.Data.MySqlClient.MySqlDbType.Int64, 15, "consumption")
myadapter.UpdateCommand.Parameters.Add("?elct_amt", MySql.Data.MySqlClient.MySqlDbType.Float, 15, "elct_amt")

Dim myparm As MySql.Data.MySqlClient.MySqlParameter
myparm = myadapter.UpdateCommand.Parameters.Add("?consumer_name", MySql.Data.MySqlClient.MySqlDbType.Text)
myparm.SourceColumn = "consumer_name"
myparm.SourceVersion = DataRowVersion.Original

Dim testingTable As New DataTable
myadapter.Fill(testingTable)

'ambik value dari txtCons.Text & lblAmt.Text dan store kat dalam database
Dim testingRow As DataRow = testingTable.Rows(0)
testingRow("consumption") = txtCons.Text
testingRow("elct_amt") = lblAmt.Text
myadapter.Update(testingTable)
Console.WriteLine("Rows after update.")

Dim row As DataRow
For Each row In testingTable.Rows
Console.WriteLine("{0}: {1}", row(0), row(1))
Next
mycon.Close()

Else

MsgBox("Cancel saving data",  MsgBoxStyle.OkOnly, "Cancel")

End If

mya_myra

Source Code untuk Delete Data


If MessageBox.Show("Are you sure you want to delete this record?", "Question", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.Yes Then

Dim mycon As New MySql.Data.MySqlClient.MySqlConnection("datasource=localhost;username=root;password=;database=testing")
Dim mycmd As MySql.Data.MySqlClient.MySqlCommand
Dim myadapter As New MySql.Data.MySqlClient.MySqlDataAdapter

mycmd = New MySql.Data.MySqlClient.MySqlCommand
mycmd.CommandText = "DELETE FROM consumer WHERE consumer_name ='" & cbConsName.Text & "' ; "
mycmd.Connection = mycon

mycon.Open()
myadapter.UpdateCommand = mycmd
myadapter.UpdateCommand.ExecuteNonQuery()
mycon.Close()


Else

MsgBox("Cancel deleting data",  MsgBoxStyle.OkOnly, "Cancel Delete")

End If

mya_myra

Source Code untuk Add Record


Dim mycon As New MySql.Data.MySqlClient.MySqlConnection("datasource=localhost;username=root;password=;database=testing")
Dim mycmd As New MySql.Data.MySqlClient.MySqlCommand

mycon.Open()

Dim myadapter As New MySql.Data.MySqlClient.MySqlDataAdapter
myadapter = New MySql.Data.MySqlClient.MySqlDataAdapter("SELECT * FROM consumer", mycon)

Dim ds As New DataSet()
myadapter.Fill(ds, "consumer")

Dim cb As New MySql.Data.MySqlClient.MySqlCommandBuilder(myadapter)

Dim dsNewRow As DataRow
dsNewRow = ds.Tables("consumer").NewRow()
dsNewRow.Item("consumer_name") = txtConsName.Text
dsNewRow.Item("consumption") = 0
dsNewRow.Item("elct_amt") = 0
ds.Tables("consumer").Rows.Add(dsNewRow)

myadapter.Update(ds, "consumer")
ds.AcceptChanges()

mycon.Close()

MsgBox("Data successfully saved", MsgBoxStyle.Information, "Data saved")

mya_myra

Source Code untuk Refresh Data dalam DataGrid


Dim mycon As MySql.Data.MySqlClient.MySqlConnection
Dim myadp As MySql.Data.MySqlClient.MySqlDataAdapter
Dim myds As DataSet

mycon = New MySql.Data.MySqlClient.MySqlConnection("datasource=localhost;username=root;password=;database=testing")
myadp = New MySql.Data.MySqlClient.MySqlDataAdapter("Select * from consumer", mycon)
myds = New DataSet()

mycon.Open()

myadp.Fill(myds, "consumer")
DataGridView1.DataSource = myds.Tables.Item("consumer")

mycon.Close()

mya_myra

k la guys/girls.....harap source code ni dapat membantu......

hasmal

alamak...details tuu
tq yang teramat utk u

sayaaanggg u