hola amigos resulta que estoy pasando u programa de visual basic 6 a visual 2008 pero he tenido muchos problemas no actualizamos el codigo a visual 2008 por se cambio la base da datos a SQL (estaba em access) lo que necesito es lo siguiente, tengo el objeto sqlConection, sqlDataAdpter DataSet
Sub PasarAActivo()
On Error Resume Next
Dim I As Integer
Dim RstSencillo As Recordset
If LstMedioNo.ListIndex <> -1 Then
SQL = "SELECT modaenable FROM MedioPleno5 WHERE
(Figuras='" & LstMedioNo.List(LstMedioNo.ListIndex) & "')"
Set RstSencillo = Base.OpenRecordset(SQL, dbOpenDynaset, dbRunAsync,
dbPessimistic)
RstSencillo.MoveFirst
RstSencillo.Edit
RstSencillo("modaenable") = True
RstSencillo.Update
CargarMedioPleno
Else
I = MsgBox("Debe seleccionar una figura de MEDIO PLENO
inactiva para activarla", vbInformation + vbOKOnly, "B
E A N O")
End If
End Subcomo hago para referirme a un campo de una tabla... creo que es con el DataSet per mas que??, DataSet.????
y tambien necesito hacer una que una varia tome el valor de ese campo
If JugandoPleno = -1 Then
MinMuerto = RstJuego("MuertaInicialPleno")
ElseIf JugandoPleno = 1 Then
MinMuerto = RstJuego("MuertaInicialMedioPleno")
Else
MinMuerto = RstJuego("MuertaInicial")
End Iflas variables RstJuego y RstSencillo utilizadas en este codigo como es visual basic 6 son de tipo RecordSet.
por favor me ayudan es un trabajo de la empresa. gracias