Muuuuyyyy Facil!

[pcarvajal]

Pero me tiene de cabeza porque no entiendo porque me arroja este error:
Error de Compilacion:
No se ha definido el tipo definido por el usuario


Private Sub show_grilla()

Dim id, pwd, server, basestring As String
Dim basedatos As String
Dim Coneccion As String
Screen.MousePointer = 11

usuario = "usuario"
pwd = "contrasena"
servidor = "mi_servidor"
basestring = "mi_base"

Set basedatos = New ADODB.Connection
Coneccion = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & usuario & ";Pwd=" & pwd & ";Initial Catalog=" & basestring & ";Data Source=" & servidor
basedatos.ConnectionString = Coneccion
basedatos.Open

SQL2 = "SELECT * FROM agr_seguros (NoLock) "
'Set Rs = New ADODB.Recordset: Rs.Open SQL2, basedatos, adOpenDynamic, adLockOptimistic

grilla.Rows = 0

If Not Rs.EOF Then
While Not Rs.EOF
grilla.Rows = grilla.Rows + 1
grilla.Row = grilla.Rows
grilla.Cols = 3
grilla.Col = 1
grilla.Text = RTrim(Rs.Fields("codigo_bien"))
grilla.Col = 2
grilla.Text = RTrim(Rs.Fields("nom_cia_seg"))
grilla.Col = 3
grilla.Text = RTrim(Rs.Fields("monto_poliza"))
Rs.MoveNext
Wend
End If

Set Rs = Nothing
End Sub

[jrp01]

sera esto:

Set basedatos = New ADODB.Connection

hazlo asi

Dim basedatos as New ADODB.Connection


Saludos

[pcarvajal]

lo hice así como me dijiste y no me funciona
que he ehecho mal? tengo algo de más??? o hay que configurar VB????
no entiendo


Private Sub show_grilla()

Dim id, pwd, server, basestring As String
Dim basedatos as New ADODB.Connection
Dim Coneccion As String
Screen.MousePointer = 11

usuario = "usuario"
pwd = "contrasena"
servidor = "mi_servidor"
basestring = "mi_base"

Set basedatos = New ADODB.Connection
Coneccion = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & usuario & ";Pwd=" & pwd & ";Initial Catalog=" & basestring & ";Data Source=" & servidor
basedatos.ConnectionString = Coneccion
basedatos.Open

SQL2 = "SELECT * FROM agr_seguros (NoLock) "
'Set Rs = New ADODB.Recordset: Rs.Open SQL2, basedatos, adOpenDynamic, adLockOptimistic

grilla.Rows = 0

If Not Rs.EOF Then
While Not Rs.EOF
grilla.Rows = grilla.Rows + 1
grilla.Row = grilla.Rows
grilla.Cols = 3
grilla.Col = 1
grilla.Text = RTrim(Rs.Fields("codigo_bien"))
grilla.Col = 2
grilla.Text = RTrim(Rs.Fields("nom_cia_seg"))
grilla.Col = 3
grilla.Text = RTrim(Rs.Fields("monto_poliza"))
Rs.MoveNext
Wend
End If

Set Rs = Nothing
End Sub

[lic_dahool]

Primero, a esta altura debo suponer que agregaste en las referencias al Microsoft ActiveX Data Objects 2.x Library

Segundo la sentencia debería ser como sigue:

Código:

.
.
.

Dim basedatos As Connection

.
.
.
    
Set basedatos = New ADODB.Connection

.
.
.

Saludos.

[pcarvajal]

perdona la ignorancia en el tema... pero soy un novato en VB..
Que referencias debo tener instaladas para que funcione????
Segun vi, estas son las que tengo:
VB for Applications
VB runtime objects and procedures
VB objects and procedures
OLE Automation
Microsoft DAO 2.5/3.51 Compatibility Library
Microsoft ActiveX Data Objects 2.0 Library

[lic_dahool]

Si, tienes las librerías correctas, modifica sólo debes corregir el código.

[pcarvajal]

me sigue alegando

No se encontro el metodo o el miembro de datos

Private Sub show_grilla()

Dim usuario, contrasena, servidor, basestring As String
Dim basedatos As Connection
Dim Coneccion As String
Dim Rs As Recordset

usuario = "usuario"
pwd = "contrasena"
servidor = "mi_servidor"
basestring = "mi_base"

Set basedatos = New ADODB.Connection
Coneccion = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & usuario & ";Pwd=" & pwd & ";Initial Catalog=" & basestring & ";Data Source=" & servidor
basedatos.ConnectionString = Coneccion
basedatos.Open

SQL2 = "SELECT * FROM agr_seguros (NoLock) "
'Set Rs = New ADODB.Recordset: Rs.Open SQL2, basedatos, adOpenDynamic, adLockOptimistic

grilla.Rows = 0

If Not Rs.EOF Then
While Not Rs.EOF
grilla.Rows = grilla.Rows + 1
grilla.Row = grilla.Rows
grilla.Cols = 3
grilla.Col = 1
grilla.Text = RTrim(Rs.Fields("codigo_bien"))
grilla.Col = 2
grilla.Text = RTrim(Rs.Fields("nom_cia_seg"))
grilla.Col = 3
grilla.Text = RTrim(Rs.Fields("monto_poliza"))
Rs.MoveNext
Wend
End If

Set Rs = Nothing
End Sub

[lic_dahool]

Compilé el código y no recibo ningún error. Estas seguro que es en esta sección?

[pcarvajal]

si claro, si es un proyecto en VB el que trato de hacer, es muy extraño :S

[pcarvajal]

será que no tiene solución?

[lic_dahool]

Me refiero a si estas seguro de que el error es en esta sección del código que muestras, porque yo no tengo problemas para compilarlo.

[pcarvajal]

si claro, al compilarla la marca en amarillo