VB ja NetMySQL

noviisi() kirjoitti:

mikähän kun ei voi tallentaa tietokantaan seuraavalla koodilla?
ei ymmärrä... tietokanta yhteys pelaa, mutta ei suostu lisäämään tietoa




Public Class HenkiloLisays

Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.

Private Sub InitializeComponent()

Me.OdbcConnection1 = New System.Data.Odbc.OdbcConnection

Me.OdbcCommand1 = New System.Data.Odbc.OdbcCommand



Me.OdbcConnection1.ConnectionString = tässä kohdassa kaikki tietokannan salasanat yms...



Me.OdbcCommand1.CommandText = "SELECT Nimi, Katuosoite, Postinro, Paikkakunta, Puhelin FROM kk6520_myyja_taulu O" & _

"RDER BY Myyjanro"

Me.OdbcCommand1.Connection = Me.OdbcConnection1

End Sub

Protected WithEvents Button6 As System.Web.UI.WebControls.Button

Protected WithEvents Button5 As System.Web.UI.WebControls.Button

Protected WithEvents Button4 As System.Web.UI.WebControls.Button

Protected WithEvents Button3 As System.Web.UI.WebControls.Button

Protected WithEvents Button2 As System.Web.UI.WebControls.Button

Protected WithEvents Button1 As System.Web.UI.WebControls.Button

Protected WithEvents TextBox5 As System.Web.UI.WebControls.TextBox

Protected WithEvents TextBox4 As System.Web.UI.WebControls.TextBox

Protected WithEvents TextBox3 As System.Web.UI.WebControls.TextBox

Protected WithEvents TextBox2 As System.Web.UI.WebControls.TextBox

Protected WithEvents Label6 As System.Web.UI.WebControls.Label

Protected WithEvents Label5 As System.Web.UI.WebControls.Label

Protected WithEvents Label4 As System.Web.UI.WebControls.Label

Protected WithEvents Label3 As System.Web.UI.WebControls.Label

Protected WithEvents Label2 As System.Web.UI.WebControls.Label

Protected WithEvents Label1 As System.Web.UI.WebControls.Label

Protected WithEvents OdbcConnection1 As System.Data.Odbc.OdbcConnection

Protected WithEvents OdbcCommand1 As System.Data.Odbc.OdbcCommand

Protected WithEvents Lblinfo As System.Web.UI.WebControls.Label

Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox





Private designerPlaceholderDeclaration As System.Object

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init




InitializeComponent()

End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'Put user code to initialize the page here

OdbcConnection1.ConnectionString = Application("NetMySQL")

OdbcCommand1.Connection = OdbcConnection1

OdbcConnection1.Open() ' Kanta auki

End Sub

Private Sub Page_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Disposed



OdbcConnection1.Close()

End Sub



Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click


Dim Projektit as System.Data.Odbc.OdbcDataReader

Dim Myyjanro as Integer

Dim Nimi as String

Dim Katuosoite as String

Dim Postinro as String

Dim Paikkakunta as String

Dim Puhelin as String

dim SQL as String

dim apu as String

Nimi = TextBox1.Text

Katuosoite = TextBox2.Text

Postinro = TextBox3.Text

Paikkakunta = TextBox4.Text

Puhelin = TextBox4.Text



try


SQL = "Insert into kk6520_myyja_taulu (Nimi,Katuosoite,Postinro,Paikkakunta,Puhelin) values ("

SQL = SQL & Nimi & "," & Katuosoite & "," & Postinro & "," & Paikkakunta & "," & Puhelin & ")"

OdbcCommand1.CommandText = "START TRANSACTION"

OdbcCommand1.ExecuteNonQuery()

OdbcCommand1.CommandText = SQL

OdbcCommand1.ExecuteNonQuery()

OdbcCommand1.CommandText = "COMMIT"

OdbcCommand1.ExecuteNonQuery()

Lblinfo.Text = "Lisäys suoritettu"

Catch ex As Exception

OdbcCommand1.CommandText = "ROLLBACK"

OdbcCommand1.ExecuteNonQuery()

Lblinfo.Text = perseelleen meni!

End Try

End Sub
End Class

kirjoitti:

Anonyymi

Kirjoita kommentti

5000

Lähetä