30/12/2004, 13:08
|
| | | Fecha de Ingreso: agosto-2003
Mensajes: 398
Antigüedad: 21 años, 5 meses Puntos: 0 | |
| Hola, ya he conseguido que se me conecte a una base de datos Mysql Remotamente y lo que no consigo es que me cargue en un Treeview los datos que he metido en un Recordset: Aqui os dejo el Código
Public Sub RefreshTables()
Dim pRs As dbnet.MYSQL_RS
Dim nodX As TreeNode
If Not gCnn.State = dbnet.MYSQL_CONNECTION_STATE.MY_CONN_OPEN Then Exit Sub
Me.tvTables.Nodes.Clear()
nodX = Me.tvTables.Nodes.Add("Tables")
Me.txtSQL.Text = ""
Me.lstData.Items.Clear()
Me.lstData.Columns.Clear()
pRs = New dbnet.MYSQL_RS
pRs = gCnn.Show(dbnet.MYSQL_SHOWTYPE.MY_SHOW_TABLES)
pRs.MoveFirst()
Do While Not pRs.EOF
'Aqui es donde me da el Problema ya que no me carga Nada
nodX = Me.tvTables.Nodes.Add(pRs.fields(0))
pRs.MoveNext()
Loop
pRs.CloseRecordset()
pRs = Nothing
nodX.EnsureVisible()
End Sub
Quiero que me emta todas las tablas en el trreview, pero no lo consigo, aunque si me carga las 71 tablas que hay pero no me pone el nombre de la tabla
Un Saludo |