Visual Basic - consulta en vb6 para bd Access

Life is soft - evento anual de software empresarial
   
Vista:

consulta en vb6 para bd Access

Publicado por Pedrito (16 intervenciones) el 17/02/2010 11:47:28
Hola a todos,

Necesitaría saber donde tengo el error, el error es Invalid property value. Esto es lo que tengo puesto:

Option Explicit

Private daoDB36 As Database
Private rs As DAO.Recordset
Private rs1 As DAO.Recordset
Dim sPath As String

Private Sub Form_Load()

sPath = "G:/COMUN/MEDIO AMBIENTE/clientes.mdb"
Set daoDB36 = DBEngine(0).OpenDatabase(sPath)
Set rs = daoDB36.OpenRecordset("Empresas", dbOpenDynaset)
Set Data1.Recordset = rs
Set rs1 = daoDB36.OpenRecordset("Fabrica", dbOpenDynaset)
Set Data2.Recordset = rs1
frmClientes.Frame2.Enabled = False
frmClientes.Frame3.Enabled = False
frmClientes.Frame4.Enabled = False
SSTab1.Caption = ""
Dim buscar1 As String
Dim contador As Single
contador = 1
rs1.MoveFirst
buscar1 = txtCIF = Data2.Recordset.CIF
frmClientes.Data2.Recordset.FindFirst (buscar1)
SSTab1.TabCaption(contador - 1) = Data2.Recordset.Nombre_Fabri
Do While Not rs1.EOF
frmClientes.Data2.Recordset.FindNext (buscar1)
contador = contador + 1
SSTab1.Tabs = contador (Aqui sale el error)
SSTab1.TabCaption(contador - 1) = Data2.Recordset.Nombre_Fabri
Loop



End Sub

Lo que quiero hacer es que cuando cargue el programa salga la primera empresas con sus fabricas, cada fabrica en un Tabbed.
Agredecería vuestra ayuda.

Un saludo,
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- Despertador
- Alarma
- Mails anónimos

RE:consulta en vb6 para bd Access

Publicado por Pedro Luis (878 intervenciones) el 19/02/2010 08:27:24
Data1.DataBaseName , esto te falta y después
Data1.RecordSource , la tabla .
El Recordset se usa para consultar un campo
Data1.Recorset!Campo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar