Guten Abend ,
I try to update a table with fbdataadapter. I dont get any errors but the data
are not commited to the table in firebird database.
The selectcommand is ok. But if i try to update nothings happens. No error and
no update.
Public Class FBHomepageEntry
Dim i As New FirebirdConnection.FBHomepageEntries
Dim ds As New DataSet
Public Sub New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf
hinzu.
i.FbDataAdapter.Fill(ds)
Me.cmb_entry.DataSource = ds.Tables("Table")
Me.cmb_entry.DisplayMember = "TITLE"
Me.cmb_entry.ValueMember = "ENTRY_ID"
Me.cmb_entry.SelectedIndex = -1
End Sub
Private Sub cmb_entry_DropDown(ByVal sender As Object, ByVal e As
System.EventArgs)
ds.Clear()
i.FbDataAdapter.Fill(ds)
End Sub
Private Sub BushButton ....
i.UpdateFromDS(ds)
End Sub
End Class
Public Class FBHomepageEntries
Inherits ArrayList
Private FBDAdapter As FbDataAdapter
Public adapttrans As FbTransaction
Public Sub New()
CheckReopen()
End Sub
Public ReadOnly Property FbDataAdapter() As FbDataAdapter
Get
CheckReopen()
If FBDAdapter Is Nothing Then
FBDAdapter = New FbDataAdapter
'SelectCommand
FBDAdapter.SelectCommand = New FbCommand("SELECT * FROM
HOMEPAGE_ENTRYS", Con)
'UpdateCommand
FBDAdapter.UpdateCommand = New
FbCommand("SP_UPDATE_HOMEPAGEENTRIES", Con)
FBDAdapter.UpdateCommand.CommandType =
CommandType.StoredProcedure
With FBDAdapter.UpdateCommand.Parameters
Dim param1 As FbParameter = .Add("@ENTRY_ID",
FbDbType.Integer)
param1.SourceColumn = "ENTRY_ID"
.Add("@TITLE", FbDbType.VarChar, 200, "TITLE")
Dim param2 As FbParameter = .Add("@IMAGETYPE",
FbDbType.SmallInt)
param2.SourceColumn = "IMAGETYPE"
.Add("@IMAGEID", FbDbType.Integer, 0, "IMAGEID")
.Add("@IMAGEDATA", FbDbType.Binary, 0, "IMAGEDATA")
.Add("@IMAGELINK", FbDbType.VarChar, 254, "IMAGELINK")
.Add("@IMAGEPOSITION", FbDbType.SmallInt, 0,
"IMAGEPOSITION")
.Add("@IMAGEWIDTH", FbDbType.Integer, 0, "IMAGEWIDTH")
.Add("@LINKTYPE", FbDbType.SmallInt, 0, "LINKTYPE")
.Add("@LINKARTIKEL", FbDbType.Integer, 0, "LINKARTIKEL")
.Add("@LINKKATEGORIE", FbDbType.Integer, 0, "LINKKATEGORIE")
.Add("@LINKEXTERN", FbDbType.VarChar, 254, "LINKEXTERN")
.Add("@BACKGROUND", FbDbType.VarChar, 10, "BACKGROUND")
.Add("@ADDDATE", FbDbType.Date, 0, "ADDDATE")
.Add("@TEXT", FbDbType.Text, 0, "TEXT")
End With
FBDAdapter.UpdateCommand.UpdatedRowSource = UpdateRowSource.Both
'InsertCommand
FBDAdapter.InsertCommand = New
FbCommand("SP_INSERT_HOMEPAGEENTRIES", Con)
FBDAdapter.InsertCommand.CommandType =
CommandType.StoredProcedure
With FBDAdapter.InsertCommand.Parameters
.Add("TITLE", FbDbType.VarChar, 200, "TITLE")
.Add("IMAGETYPE", FbDbType.SmallInt, 4, "IMAGETYPE")
.Add("@IMAGEID", FbDbType.Integer, 0, "IMAGEID")
.Add("@IMAGEDATA", FbDbType.Binary, 0, "IMAGEDATA")
.Add("@IMAGELINK", FbDbType.VarChar, 254, "IMAGELINK")
.Add("@IMAGEPOSITION", FbDbType.SmallInt, 0,
"IMAGEPOSITION")
.Add("@IMAGEWIDTH", FbDbType.Integer, 0, "IMAGEWIDTH")
.Add("@LINKTYPE", FbDbType.SmallInt, 0, "LINKTYPE")
.Add("@LINKARTIKEL", FbDbType.Integer, 0, "LINKARTIKEL")
.Add("@LINKKATEGORIE", FbDbType.Integer, 0, "LINKKATEGORIE")
.Add("@LINKEXTERN", FbDbType.VarChar, 254, "LINKEXTERN")
.Add("@BACKGROUND", FbDbType.VarChar, 10, "BACKGROUND")
.Add("@ADDDATE", FbDbType.Date, 0, "ADDDATE")
.Add("@TEXT", FbDbType.Text, 0, "TEXT")
End With
FBDAdapter.InsertCommand.UpdatedRowSource = UpdateRowSource.Both
End If
Return FBDAdapter
End Get
End Property
Public Sub UpdateFromDS(ByVal ds As DataSet)
adapttrans = Con.BeginTransaction
Me.FBDAdapter.UpdateCommand.Transaction = adapttrans
Me.FBDAdapter.Update(ds)
adapttrans.Commit()
End Sub
End Class
CREATE PROCEDURE SP_INESRT_HOMEPAGEENTRIES (
TITLE VARCHAR(200),
IMAGETYPE SMALLINT,
IMAGEID INTEGER,
IMAGEDATA BLOB SUB_TYPE 0 SEGMENT SIZE 0,
IMAGELINK VARCHAR(254),
IMAGEPOSITION SMALLINT,
IMAGEWIDTH INTEGER,
LINKTYPE SMALLINT,
LINKARTIKEL INTEGER,
LINKKATEGORIE INTEGER,
LINKEXTERN VARCHAR(254),
BACKGROUND VARCHAR(10),
ADDDATE DATE,
TEXT BLOB SUB_TYPE 1 SEGMENT SIZE 0)
RETURNS (
ID INTEGER)
AS
begin
ID = GEN_ID(GEN_HOMEPAGE_ENTRYS_ID, 1);
INSERT INTO HOMEPAGE_ENTRYS (HOMEPAGE_ENTRYS.entry_id,
HOMEPAGE_ENTRYS.title,HOMEPAGE_ENTRYS.imagetype, HOMEPAGE_ENTRYS.imageid,
HOMEPAGE_ENTRYS.imagedata, HOMEPAGE_ENTRYS.imagelink,
HOMEPAGE_ENTRYS.imageposition, HOMEPAGE_ENTRYS.imagewidth,
HOMEPAGE_ENTRYS.linktype, HOMEPAGE_ENTRYS.linkartikel,
HOMEPAGE_ENTRYS.linkkategorie, HOMEPAGE_ENTRYS.linkextern,
HOMEPAGE_ENTRYS.background, HOMEPAGE_ENTRYS.adddate, HOMEPAGE_ENTRYS.text)
values (:ID, :title, :imagetype,:imageid, :imagedata, :imagelink,
:imageposition, :imagewidth, :linktype, :linkartikel, :linkkategorie,
:linkextern, :background, :adddate, :text);
suspend;
end
CREATE PROCEDURE SP_UPDATE_HOMEPAGEENTRIES (
ENTRY_ID INTEGER,
TITLE VARCHAR(200),
IMAGETYPE SMALLINT,
IMAGEID INTEGER,
IMAGEDATA BLOB SUB_TYPE 0 SEGMENT SIZE 80,
IMAGELINK VARCHAR(254),
IMAGEPOSITION SMALLINT,
IMAGEWIDTH INTEGER,
LINKTYPE SMALLINT,
LINKARTIKEL INTEGER,
LINKKATEGORIE INTEGER,
LINKEXTERN VARCHAR(254),
BACKGROUND VARCHAR(10),
ADDDATE DATE,
TEXT BLOB SUB_TYPE 1 SEGMENT SIZE 80)
AS
begin
UPDATE HOMEPAGE_ENTRYS SET HOMEPAGE_ENTRYS.title = :title, IMAGETYPE =
:imagetype, IMAGEID = :imageid, IMAGEDATA = :imagedata, IMAGELINK = :imagelink,
IMAGEPOSITION = :imageposition, IMAGEWIDTH = :imagewidth, LINKTYPE = :linktype,
LINKARTIKEL = :linkartikel, LINKKATEGORIE = :linkkategorie, LINKEXTERN =
:linkextern, BACKGROUND = :background, ADDDATE= :adddate, TEXT = :text WHERE
ENTRY_ID = :entry_id;
suspend;
end
Mit herzlichen Grüßen
Michael Berg
FamBerg
Tel. (034291) 33083
www.famberg.de
.> Hits der 37. Woche 2006!
.> Brandheiß Entsafter Power Juicer aus der TV-Werbung für nur 87,90 Euro
.> neu eingetroffen: moderne nostalgische Telefone
.> Dampfbügelstationen von Solac jetzt schon ab 64,90 Euro
.> elektrische Kartoffelschälmaschine exklusiv für nur 48,90 Euro
alle Preise verstehen sich inklusive Mwst zuzüglich Versandkosten
am Dienstag, 12. September 2006 um 18:08 schrieben Sie:
-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________
Firebird-net-provider mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/firebird-net-provider
