Visual Basic - DataGrid, MSFlexGrid

Life is soft - evento anual de software empresarial
 
Vista:

DataGrid, MSFlexGrid

Publicado por josefello (38 intervenciones) el 28/04/2005 09:37:41
Hola
necesito introducir los registros de una base de datos access en una tabla de un formulario, pero no se que control utilizar si DataGrid o MSFlexGrid. Tampoco se como introducir los valores en las celdas de la tabla, es decir una vez que voy recuperando los campos como los introduzco en su celda correspondiente de la tabla. Si podeis enviar un trozito de codigo de introducción de datos en la tabla me sería de gran ayuda. GRACIAS
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

RE:DataGrid, MSFlexGrid

Publicado por Christian Chileno (10 intervenciones) el 28/04/2005 16:48:50
ESPERO QUE TE SIRVA

Public Sub Carga(Grid As MSFlexGrid, tabla As String)
Dim rs As New ADODB.Recordset
Dim constring1 As String
Dim i As Integer
Dim Ssql As String

' DsnNameBD=nombre odbc de la base de datos

constring1 = "Provider=MSDASQL.1;" & _
"Persist Security Info=False;Data Source="& DsnNameBD

Set rs = New ADODB.Recordset
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic

Grid.Clear
Grid.Rows = 1
Grid.Cols = 5
Grid.Row = 0
For i = 1 To 3 '* Recorrer las columnas
Grid.col = i
'* Establecer el título
Grid.Text = Choose(i, "Codigo", "Nombre", "Rut", "", "", "", "", "")
Grid.ColWidth(i) = 1000
Grid.ColAlignment(i) = vbCenter
Grid.FixedAlignment(i) = vbCenter
Next
Grid.Row = 0
rs.Open "select * from " & tabla , constring1
If rs.BOF = True Then
Else
rs.MoveFirst
Do While Not rs.EOF
Ssql = " " & vbTab & rs("codigo") & vbTab & rs("nombre") & vbTab & rs("Rut")

Grid.AddItem Ssql
rs.MoveNext
Loop
End If
rs.Close
End Sub
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