Programación de bases de datos con Visual Basic .NET
Listado 4.17
El código generado
por Visual Studio .NET al crear la nueva instancia del adaptador de datos con
la interfaz visual.
'Crea
instancias del DataAdapter y de los comandos a utilizar
Me.SqlDataAdapter1
= New System.Data.SqlClient.SqlDataAdapter()
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
'SqlDataAdapter1
Me.SqlDataAdapter1.DeleteCommand =
Me.SqlDeleteCommand1
Me.SqlDataAdapter1.InsertCommand =
Me.SqlInsertCommand1
Me.SqlDataAdapter1.SelectCommand =
Me.SqlSelectCommand1
'Asigna
las tablas y las columnas de los registros devueltos por el comando SELECT
Me.SqlDataAdapter1.TableMappings.AddRange(New " & _
"System.Data.Common.DataTableMapping()
{New " & _
"System.Data.Common.DataTableMapping("Table",
"publishers", New " & _
"System.Data.Common.DataColumnMapping()
{New " & _
"System.Data.Common.DataColumnMapping("pub_id",
"pub_id"), New " & _
"System.Data.Common.DataColumnMapping("pub_name",
"pub_name"), " & _
"New "
& _
"System.Data.Common.DataColumnMapping("city",
"city"), New " & _
"System.Data.Common.DataColumnMapping("state",
"state"), New " & _
"System.Data.Common.DataColumnMapping("country",
"country")})})
Me.SqlDataAdapter1.UpdateCommand =
Me.SqlUpdateCommand1
'
'SqlSelectCommand1
'
Me.SqlSelectCommand1.CommandText =
"SELECT pub_id, pub_name, " & _
"city,
state, country FROM publishers"
Me.SqlSelectCommand1.Connection =
Me.SqlConnection1
'
'SqlInsertCommand1
'
Me.SqlInsertCommand1.CommandText =
"INSERT INTO publishers(pub_id, pub_name, city,
state, country) VALUES (@pub_id, @" & _
"pub_name, @city, @state,
@country); SELECT pub_id, pub_name, " & _
"city,
state, country FROM publishers WHERE (pub_id = @pub_id)"
Me.SqlInsertCommand1.Connection =
Me.SqlConnection1
"Me.SqlInsertCommand1.Parameters.Add(New
" & _
"System.Data.SqlClient.SqlParameter("@pub_id",
" & _
"System.Data.SqlDbType.VarChar,
4, "pub_id")) " & _
Me.SqlInsertCommand1.Parameters.Add(New " & _
"System.Data.SqlClient.SqlParameter("@pub_name",
" & _
"System.Data.SqlDbType.VarChar,
40, "pub_name"))
Me.SqlInsertCommand1.Parameters.Add(New " & _
"System.Data.SqlClient.SqlParameter("@city",
" & _
"System.Data.SqlDbType.VarChar,
20, "city"))
Me.SqlInsertCommand1.Parameters.Add(New " & _
"System.Data.SqlClient.SqlParameter("@state",
" & _
"System.Data.SqlDbType.VarChar,
2, "state"))
Me.SqlInsertCommand1.Parameters.Add(New " & _
"System.Data.SqlClient.SqlParameter("@country",
" & _
"System.Data.SqlDbType.VarChar,
30, "country"))