RE:¿session?. Gracias Yamil Por contestar
Yo tengo algo como esto, para que te des cuenta la cantidad de veces que abro la conexion:
Dim tipo As String
Dim empleado_ As String
Dim user As String
user = Request.QueryString("usuario")
Dim cn121 As New OleDbConnection("Provider=SQLOLEDB.1;Initial Catalog=mabe_web;Data Source=servidor2;User Id=lithomedia;password=lithomedia2003;")
cn121.Open()
Dim cmd211 As New OleDbCommand("SELECT TBL_USERS.EMPLEADO,TBL_TPUSER.TIPOUSER,TBL_USERS.ID_USER,TBL_USERS.ID_TIPOUSER FROM TBL_USERS, TBL_TPUSER WHERE TBL_USERS.ID_TIPOUSER = TBL_TPUSER.ID_TIPOUSER AND TBL_USERS.USER_NOMBRE = '" & user & "'", cn121)
Dim dr4 As OleDbDataReader
dr4 = cmd211.ExecuteReader
Do While dr4.Read
tipo = dr4.Item("id_tipouser")
empleado_ = Trim(dr4.Item("empleado"))
Loop
If tipo = 5 Then
Dim cn12 As New OleDbConnection("Provider=SQLOLEDB.1;Initial Catalog=mabe_web;Data Source=servidor2;User Id=lithomedia;password=lithomedia2003;")
cn12.Open()
Dim cmd12 As New OleDbCommand("Select nombre_empleado from tccom001 where empleado='" & empleado_ & "' ", cn12)
Dim dr12 As OleDbDataReader = cmd12.ExecuteReader
dpdven.DataSource = dr12
dpdven.DataTextField = "nombre_empleado"
dpdven.DataBind()
dpdven.Items.Insert(0, "Seleccione")
Dim sql22 As String
Dim cn122 As New OleDbConnection("Provider=SQLOLEDB.1;Initial Catalog=mabe_web;Data Source=servidor2;User Id=lithomedia;password=lithomedia2003;")
cn122.Open()
Dim cmd212 As New OleDbCommand("SELECT * FROM temporalbus1 ", cn122)
sql22 = "delete from temporalbus1"
cmd212.Connection = cn122
cmd212.CommandText = sql22
cmd212.ExecuteNonQuery()
'fech_sol.Text = Now.Today
Dim cn11 As New OleDbConnection("Provider=SQLOLEDB.1;Initial Catalog=mabe_web;Data Source=servidor2;User Id=lithomedia;password=lithomedia2003;")
cn11.Open()
Dim cmd11 As New OleDbCommand("Select * from tbl_accesorios_faltantes", cn11)
Dim dr11 As OleDbDataReader = cmd11.ExecuteReader
Dim cn2 As New OleDbConnection("Provider=SQLOLEDB.1;Initial Catalog=mabe_web;Data Source=servidor2;User Id=lithomedia;password=lithomedia2003;")
cn2.Open()
Dim cmd2 As New OleDbCommand("Select desc_obj from tscfg010", cn2)
Dim dr2 As OleDbDataReader = cmd2.ExecuteReader
dpdart.DataSource = dr2
dpdart.DataTextField = "desc_obj"
dpdart.DataBind()
dpdart.Items.Insert(0, "Seleccione")
End If
If tipo = 1 Then
Dim cn12 As New OleDbConnection("Provider=SQLOLEDB.1;Initial Catalog=mabe_web;Data Source=servidor2;User Id=lithomedia;password=lithomedia2003;")
cn12.Open()
Dim cmd12 As New OleDbCommand("Select tccom001.nombre_empleado from tccom001, tbl_vendedor where tccom001.empleado=tbl_vendedor.cod_vendedor ", cn12)
Dim dr12 As OleDbDataReader = cmd12.ExecuteReader
dpdven.DataSource = dr12
dpdven.DataTextField = "nombre_empleado"
dpdven.DataBind()
dpdven.Items.Insert(0, "Seleccione")
Dim sql22 As String
Dim cn122 As New OleDbConnection("Provider=SQLOLEDB.1;Initial Catalog=mabe_web;Data Source=servidor2;User Id=lithomedia;password=lithomedia2003;")
cn122.Open()
Dim cmd212 As New OleDbCommand("SELECT * FROM temporalbus1 ", cn122)
sql22 = "delete from temporalbus1"
cmd212.Connection = cn122
cmd212.CommandText = sql22
cmd212.ExecuteNonQuery()
fech_sol.Text = Now
Dim cn11 As New OleDbConnection("Provider=SQLOLEDB.1;Initial Catalog=mabe_web;Data Source=servidor2;User Id=lithomedia;password=lithomedia2003;")
cn11.Open()
Dim cmd11 As New OleDbCommand("Select * from tbl_accesorios_faltantes", cn11)
Dim dr11 As OleDbDataReader = cmd11.ExecuteReader
Dim cn2 As New OleDbConnection("Provider=SQLOLEDB.1;Initial Catalog=mabe_web;Data Source=servidor2;User Id=lithomedia;password=lithomedia2003;")
cn2.Open()
Dim cmd2 As New OleDbCommand("Select desc_obj from tscfg010", cn2)
Dim dr2 As OleDbDataReader = cmd2.ExecuteReader
dpdart.DataSource = dr2
dpdart.DataTextField = "desc_obj"
dpdart.DataBind()
dpdart.Items.Insert(0, "Seleccione")
End If
Si coloco una conexion a dos oledbcommands aparece el siguiente error:
"There is already an open DataReader associated with this Connection which must be closed first. "
Yamil me entra un alivio que alguien sepa como hacer eso
Gracias