Have you used Microsoft's ADO.NET DataAdapter Builder?

E

evint

Has anyone tried using Microsoft's ADO.NET DataAdapter Builder? This
tool is included on the companion CD to the book Microsoft ADO.NET Core
Reference (Microsoft Press, David Sceppa, ISBN 0-7356-1423-7).

I used it to generate the DataAdapter code for my app but I am not sure
what to do with the code it generated. This may be a very useful
(unsupported) tool, but the jury is still out. I cut and pasted the
generated code into my app but I am getting an 'Error 8 Overload
resolution failed because no accessible 'New' can be called without a
narrowing conversion' message for each cmd.Parameters.Add line. Setting
Option Strict Off has no effect. Any suggestions on implementing it?

Thanks,
Vint


<DATAADAPTER BUILDER CODE>
Imports System.Data
Imports System.Data.OleDb

Private Function CreateDataAdapter() As OleDbDataAdapter
Dim da As New OleDbDataAdapter("SELECT [Batch.Batch Key],
[Batch.Comments], [Batch.Is Active], [Batch.Is Pre Entered] FROM BATCH
where [Batch.Batch Key] = 4643", _
"Provider=Microsoft.Jet.OLEDB.4.0;
Data Source=C:\gfpc\resin\gfpc.mdb")

Dim dtm As Common.DataTableMapping
dtm = da.TableMappings.Add("Table", "BATCH")
dtm.ColumnMappings.Add("Batch.Batch Key", "Batch.Batch Key")
dtm.ColumnMappings.Add("Batch.Comments", "Batch.Comments")
dtm.ColumnMappings.Add("Batch.Is Active", "Batch.Is Active")
dtm.ColumnMappings.Add("Batch.Is Pre Entered", "Batch.Is Pre
Entered")

Dim cmd As OleDbCommand
da.UpdateCommand = da.SelectCommand.Connection.CreateCommand()
cmd = da.UpdateCommand
cmd.UpdatedRowSource = UpdateRowSource.None
cmd.CommandText = "UPDATE `BATCH` SET `Comments` = ?, `Is Active` =
?, `Is Pre Entered` = ? WHERE `Batch Key` = ? AND (`Is Active` = ? OR
((`Is Active` IS NULL) AND (? IS NULL))) AND (`Is Pre Entered` = ? OR
((`Is Pre Entered` IS NULL) AND (? IS NULL)))"
cmd.Parameters.Add(New OleDbParameter("@CommentsCurrent",
OleDbType.LongVarWChar, 536870910, ParameterDirection.Input, True, 0,
0, "Batch.Comments", DataRowVersion.Current, Nothing))
cmd.Parameters.Add(New OleDbParameter("@Is ActiveCurrent",
OleDbType.Boolean, 2, ParameterDirection.Input, True, 0, 0, "Batch.Is
Active", DataRowVersion.Current, Nothing))
cmd.Parameters.Add(New OleDbParameter("@Is Pre EnteredCurrent",
OleDbType.Boolean, 2, ParameterDirection.Input, True, 0, 0, "Batch.Is
Pre Entered", DataRowVersion.Current, Nothing))
cmd.Parameters.Add(New OleDbParameter("@Batch KeyOriginal",
OleDbType.Integer, 4, ParameterDirection.Input, False, 10, 0,
"Batch.Batch Key", DataRowVersion.Original, Nothing))
cmd.Parameters.Add(New OleDbParameter("@Is ActiveOriginal",
OleDbType.Boolean, 2, ParameterDirection.Input, True, 0, 0, "Batch.Is
Active", DataRowVersion.Original, Nothing))
cmd.Parameters.Add(New OleDbParameter("@Is ActiveNullCheck",
OleDbType.Boolean, 2, ParameterDirection.Input, True, 0, 0, "Batch.Is
Active", DataRowVersion.Original, Nothing))
cmd.Parameters.Add(New OleDbParameter("@Is Pre EnteredOriginal",
OleDbType.Boolean, 2, ParameterDirection.Input, True, 0, 0, "Batch.Is
Pre Entered", DataRowVersion.Original, Nothing))
cmd.Parameters.Add(New OleDbParameter("@Is Pre EnteredNullCheck",
OleDbType.Boolean, 2, ParameterDirection.Input, True, 0, 0, "Batch.Is
Pre Entered", DataRowVersion.Original, Nothing))

da.InsertCommand = da.SelectCommand.Connection.CreateCommand()
cmd = da.InsertCommand
cmd.UpdatedRowSource = UpdateRowSource.None
cmd.CommandText = "INSERT INTO `BATCH` (`Comments`, `Is Active`,
`Is Pre Entered`) VALUES (?, ?, ?)"
cmd.Parameters.Add(New OleDbParameter("@CommentsCurrent",
OleDbType.LongVarWChar, 536870910, ParameterDirection.Input, True, 0,
0, "Batch.Comments", DataRowVersion.Current, Nothing))
cmd.Parameters.Add(New OleDbParameter("@Is ActiveCurrent",
OleDbType.Boolean, 2, ParameterDirection.Input, True, 0, 0, "Batch.Is
Active", DataRowVersion.Current, Nothing))
cmd.Parameters.Add(New OleDbParameter("@Is Pre EnteredCurrent",
OleDbType.Boolean, 2, ParameterDirection.Input, True, 0, 0, "Batch.Is
Pre Entered", DataRowVersion.Current, Nothing))

da.DeleteCommand = da.SelectCommand.Connection.CreateCommand()
cmd = da.DeleteCommand
cmd.UpdatedRowSource = UpdateRowSource.None
cmd.CommandText = "DELETE FROM `BATCH` WHERE `Batch Key` = ? AND
(`Is Active` = ? OR ((`Is Active` IS NULL) AND (? IS NULL))) AND (`Is
Pre Entered` = ? OR ((`Is Pre Entered` IS NULL) AND (? IS NULL)))"
cmd.Parameters.Add(New OleDbParameter("@Batch KeyOriginal",
OleDbType.Integer, 4, ParameterDirection.Input, False, 10, 0,
"Batch.Batch Key", DataRowVersion.Original, Nothing))
cmd.Parameters.Add(New OleDbParameter("@Is ActiveOriginal",
OleDbType.Boolean, 2, ParameterDirection.Input, True, 0, 0, "Batch.Is
Active", DataRowVersion.Original, Nothing))
cmd.Parameters.Add(New OleDbParameter("@Is ActiveNullCheck",
OleDbType.Boolean, 2, ParameterDirection.Input, True, 0, 0, "Batch.Is
Active", DataRowVersion.Original, Nothing))
cmd.Parameters.Add(New OleDbParameter("@Is Pre EnteredOriginal",
OleDbType.Boolean, 2, ParameterDirection.Input, True, 0, 0, "Batch.Is
Pre Entered", DataRowVersion.Original, Nothing))
cmd.Parameters.Add(New OleDbParameter("@Is Pre EnteredNullCheck",
OleDbType.Boolean, 2, ParameterDirection.Input, True, 0, 0, "Batch.Is
Pre Entered", DataRowVersion.Original, Nothing))

Return da
End Function

</DATAADAPTER BUILDER CODE>
 
D

Dave Sexton

Hi,

If you're using VS.NET 2005 then I recommend creating a strong-typed DataSet and to use the table adapters for each DataTable
(designer support is provided). It appears that the code you have supplied provides the same functionality as table adapters but
without designer support, and therefore without automation.

As for the error, the VB.NET docs on MSDN did recommend setting Option Strict Off as a fix, but you say that it didn't work for you.
What you need to do is explicitly cast two of the arguments to System.Byte. (RTM to find the correct parameters.)

I don't recommend using this tool in production code.

--
Dave Sexton

evint said:
Has anyone tried using Microsoft's ADO.NET DataAdapter Builder? This
tool is included on the companion CD to the book Microsoft ADO.NET Core
Reference (Microsoft Press, David Sceppa, ISBN 0-7356-1423-7).

I used it to generate the DataAdapter code for my app but I am not sure
what to do with the code it generated. This may be a very useful
(unsupported) tool, but the jury is still out. I cut and pasted the
generated code into my app but I am getting an 'Error 8 Overload
resolution failed because no accessible 'New' can be called without a
narrowing conversion' message for each cmd.Parameters.Add line. Setting
Option Strict Off has no effect. Any suggestions on implementing it?

Thanks,
Vint


<DATAADAPTER BUILDER CODE>
Imports System.Data
Imports System.Data.OleDb

Private Function CreateDataAdapter() As OleDbDataAdapter
Dim da As New OleDbDataAdapter("SELECT [Batch.Batch Key],
[Batch.Comments], [Batch.Is Active], [Batch.Is Pre Entered] FROM BATCH
where [Batch.Batch Key] = 4643", _
"Provider=Microsoft.Jet.OLEDB.4.0;
Data Source=C:\gfpc\resin\gfpc.mdb")

Dim dtm As Common.DataTableMapping
dtm = da.TableMappings.Add("Table", "BATCH")
dtm.ColumnMappings.Add("Batch.Batch Key", "Batch.Batch Key")
dtm.ColumnMappings.Add("Batch.Comments", "Batch.Comments")
dtm.ColumnMappings.Add("Batch.Is Active", "Batch.Is Active")
dtm.ColumnMappings.Add("Batch.Is Pre Entered", "Batch.Is Pre
Entered")

Dim cmd As OleDbCommand
da.UpdateCommand = da.SelectCommand.Connection.CreateCommand()
cmd = da.UpdateCommand
cmd.UpdatedRowSource = UpdateRowSource.None
cmd.CommandText = "UPDATE `BATCH` SET `Comments` = ?, `Is Active` =
?, `Is Pre Entered` = ? WHERE `Batch Key` = ? AND (`Is Active` = ? OR
((`Is Active` IS NULL) AND (? IS NULL))) AND (`Is Pre Entered` = ? OR
((`Is Pre Entered` IS NULL) AND (? IS NULL)))"
cmd.Parameters.Add(New OleDbParameter("@CommentsCurrent",
OleDbType.LongVarWChar, 536870910, ParameterDirection.Input, True, 0,
0, "Batch.Comments", DataRowVersion.Current, Nothing))
cmd.Parameters.Add(New OleDbParameter("@Is ActiveCurrent",
OleDbType.Boolean, 2, ParameterDirection.Input, True, 0, 0, "Batch.Is
Active", DataRowVersion.Current, Nothing))
cmd.Parameters.Add(New OleDbParameter("@Is Pre EnteredCurrent",
OleDbType.Boolean, 2, ParameterDirection.Input, True, 0, 0, "Batch.Is
Pre Entered", DataRowVersion.Current, Nothing))
cmd.Parameters.Add(New OleDbParameter("@Batch KeyOriginal",
OleDbType.Integer, 4, ParameterDirection.Input, False, 10, 0,
"Batch.Batch Key", DataRowVersion.Original, Nothing))
cmd.Parameters.Add(New OleDbParameter("@Is ActiveOriginal",
OleDbType.Boolean, 2, ParameterDirection.Input, True, 0, 0, "Batch.Is
Active", DataRowVersion.Original, Nothing))
cmd.Parameters.Add(New OleDbParameter("@Is ActiveNullCheck",
OleDbType.Boolean, 2, ParameterDirection.Input, True, 0, 0, "Batch.Is
Active", DataRowVersion.Original, Nothing))
cmd.Parameters.Add(New OleDbParameter("@Is Pre EnteredOriginal",
OleDbType.Boolean, 2, ParameterDirection.Input, True, 0, 0, "Batch.Is
Pre Entered", DataRowVersion.Original, Nothing))
cmd.Parameters.Add(New OleDbParameter("@Is Pre EnteredNullCheck",
OleDbType.Boolean, 2, ParameterDirection.Input, True, 0, 0, "Batch.Is
Pre Entered", DataRowVersion.Original, Nothing))

da.InsertCommand = da.SelectCommand.Connection.CreateCommand()
cmd = da.InsertCommand
cmd.UpdatedRowSource = UpdateRowSource.None
cmd.CommandText = "INSERT INTO `BATCH` (`Comments`, `Is Active`,
`Is Pre Entered`) VALUES (?, ?, ?)"
cmd.Parameters.Add(New OleDbParameter("@CommentsCurrent",
OleDbType.LongVarWChar, 536870910, ParameterDirection.Input, True, 0,
0, "Batch.Comments", DataRowVersion.Current, Nothing))
cmd.Parameters.Add(New OleDbParameter("@Is ActiveCurrent",
OleDbType.Boolean, 2, ParameterDirection.Input, True, 0, 0, "Batch.Is
Active", DataRowVersion.Current, Nothing))
cmd.Parameters.Add(New OleDbParameter("@Is Pre EnteredCurrent",
OleDbType.Boolean, 2, ParameterDirection.Input, True, 0, 0, "Batch.Is
Pre Entered", DataRowVersion.Current, Nothing))

da.DeleteCommand = da.SelectCommand.Connection.CreateCommand()
cmd = da.DeleteCommand
cmd.UpdatedRowSource = UpdateRowSource.None
cmd.CommandText = "DELETE FROM `BATCH` WHERE `Batch Key` = ? AND
(`Is Active` = ? OR ((`Is Active` IS NULL) AND (? IS NULL))) AND (`Is
Pre Entered` = ? OR ((`Is Pre Entered` IS NULL) AND (? IS NULL)))"
cmd.Parameters.Add(New OleDbParameter("@Batch KeyOriginal",
OleDbType.Integer, 4, ParameterDirection.Input, False, 10, 0,
"Batch.Batch Key", DataRowVersion.Original, Nothing))
cmd.Parameters.Add(New OleDbParameter("@Is ActiveOriginal",
OleDbType.Boolean, 2, ParameterDirection.Input, True, 0, 0, "Batch.Is
Active", DataRowVersion.Original, Nothing))
cmd.Parameters.Add(New OleDbParameter("@Is ActiveNullCheck",
OleDbType.Boolean, 2, ParameterDirection.Input, True, 0, 0, "Batch.Is
Active", DataRowVersion.Original, Nothing))
cmd.Parameters.Add(New OleDbParameter("@Is Pre EnteredOriginal",
OleDbType.Boolean, 2, ParameterDirection.Input, True, 0, 0, "Batch.Is
Pre Entered", DataRowVersion.Original, Nothing))
cmd.Parameters.Add(New OleDbParameter("@Is Pre EnteredNullCheck",
OleDbType.Boolean, 2, ParameterDirection.Input, True, 0, 0, "Batch.Is
Pre Entered", DataRowVersion.Original, Nothing))

Return da
End Function

</DATAADAPTER BUILDER CODE>
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

DataAdapter Fails to Update Access 2002 database 5
ORA-01008 not all variables bound. 2
dataadapter insert command MSAccess 97 stored procedure - data truncated 2
No Results 1
BUG-Access 97 db insert via Jet 4.0 using stored procedure fails - any help? 2
Cannot Update data via DatagridView 1
Error: Argument 'Prompt' cannot be converted to type 'String' 1
sourcecode for reginal settings problem oledb jet 3

Top