Hola a todos !!!!
Estoy haciendo una aplicacion de escritorio en vb.net 2005; en donde he decidido importar una bd sql server 2005 a sqlite; debido a que la aplicación la voy a distribuir en cd; por lo tanto necesito mandarle la bd al usuario.----
En la app utilizo un treeview para mostrar los datos, del lado derecho de ese treeview pongo un cuadro de texto personalizado, en donde recupero el campo de tipo charvar(en MS server es text) cuando el usuario selecciona un nodo y mando a llamar el evento treeview.AfterSelect, es en este momento cuando tarda aproximadamente 10 minutos en mostrar los datos de ese nodo seleccionado--He probado el mismo evento pero cambiando el valor a recuperar en el cuadro de texto es decir le digo esto txtcontenido.InnerHtml = treeview.slectednode.text.
Eh observado que ejecuta el query como sino respetara los parametros que le indico, es decir como si me llenara el dataset con los datos de esa tabla que son alrededor de 20,000 registros, no se si hago mal el query---
para que se den una idea del query aquí se los pongo:
Código:
Private Sub treeview_AfterSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles treeview.AfterSelect
If Not treeview.SelectedNode Is Nothing Then
txtley.Text = treeview.SelectedNode.Text
'txtcontenido.InnerHtml = treeleyes.SelectedNode.Text
Dim my_SQLite_Connection As New SQLiteConnection
Dim cmd As New SQLiteCommand
Try
Dim cad As String = "C:\Documents and Settings\Miguel-in\Mis documentos\Visual Studio 2005\Projects\Controles\Controles\bin\mydatabase.db"
my_SQLite_Connection.ConnectionString = "Data Source=" + cad
my_SQLite_Connection.Open()
Catch ex As SQLiteException
MessageBox.Show(ex.Message)
End Try
With cmd
.Connection = my_SQLite_Connection
.CommandType = CommandType.Text
End With
Dim sSQL As String
sSQL = " select a_id,t_id,l_id,l_o,l_nombre,l_contenido from mytabla where a_id = " & IIf(cba.SelectedIndex < 0, "0", cba.SelectedValue)
sSQL &= " and t_id = " & IIf(cbt.SelectedIndex < 0, "0", cbt.SelectedValue)
sSQL &= " and l_id = " & treeview.SelectedNode.Tag
cmd.CommandText = sSQL
Dim my_SQLite_DataAdapter As New System.Data.SQLite.SQLiteDataAdapter
Dim my_SQLite_DataSet As New DataSet
my_SQLite_DataAdapter.SelectCommand = cmd
my_SQLite_DataAdapter.Fill(my_SQLite_DataSet, "mytable")
Dim dr As DataRow
For Each dr In my_SQLite_DataSet.Tables("mytable").Rows
txtcontenido.InnerHtml = dr("l_contenido")
Next
my_SQLite_Connection.Close()
End If
End Sub
se alenta nada mas cuando intento recuperar cualquier campo de una tabla, y dicha tabla contiene un tipo varchar(text en MS server), que contiene elementos html!!!.-----
cualquier sugerencia se acepta--- gracias anticipadamente
Bitss--Miguel--in----