Visual Basic - Cargar Datagrid

Life is soft - evento anual de software empresarial
   
Vista:

Cargar Datagrid

Publicado por Matias (135 intervenciones) el 26/10/2007 16:24:40
buenas bueno aqui manda un consulta
resulta que intento grabar en un datagrid los elementos de una consulta y en el movefirst es como si cambiara el valor de rs.eof, lo pone en verdadero y no graba los datos

este es mi codigo si pueden ayudarme estare agradecido
gracias chau chau


Dim strsql As String
strsql = "select * from ventas, vendedores, clientes where ventas.codven = vendedores.codven and clientes.codcli = ventas.codcli and ventas.codcli=" & Val(clientesver.DataGrid1.Columns(0).Text)
strsql = strsql & " order by ventas.fecha desc"
Set rs = New ADODB.Recordset
rs.ActiveConnection = db
rs.Open (strsql), db, adOpenDynamic, adLockOptimistic
If rs.BOF = True And rs.EOF = True Then
mensaje = "No hay ventas cargadas"
If MsgBox(mensaje, vbInformation + vbOKOnly, "No hay ventas") = vbOK Then
var.Control = "SALTAR"
Exit Sub
End If
Dim c As Integer
End If
rs.MoveFirst

Set rs = New ADODB.Recordset
' Define tres campos de tipo string
With rs.Fields
.Append "Codigo Venta", adBSTR, 5
.Append "Codigo Cliente", adBSTR, 5
.Append "Fecha", adBSTR, 35
.Append "Tipo de Venta", adBSTR, 8
.Append "Cliente", adBSTR, 35
.Append "Importe", adBSTR, 35
.Append "Vendedor", adBSTR, 35
.Append "Porcentaje", adBSTR, 35
End With


' Abre el recordset desconectado
rs.Open

While rs.EOF = False

With ventasver.DataGrid1
rs.AddNew _
Array("Codigo Venta", "Codigo Cliente", "Fecha", "Tipo de Venta", "Cliente", "Importe", "Vendedor", "Porcentaje"), _
Array(rs.Fields("ventas.codven"), rs.Fields("ventas.codcli"), rs!fecha, rs!tipo, rs.Fields("clientes.nombre") & ", " & rs!apellido, rs!importetotal, "$ ", rs.Fields("vendedores.nombre"), rs!descuento & " %")

End With
rs.MoveNext
wend









Set DataGrid1.DataSource = rs
With DataGrid1
.Columns(0).Width = 700
.Columns(1).Width = 2000
.Columns(2).Width = 2000
.Columns(3).Width = 3000
.Columns(4).Width = 1500
.Columns(5).Width = 2000
.Columns(6).Width = 1200
End With
rs.MoveFirst
end sub
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
- Control OCX para IRC
- Navegador
- Popurri