Consulta con el listview
Hola tengo una pequeña duda tengo un listview en el cual quiero hacer una consulta igual a esta "select * from empresas where empresa like ' " agrosur " '" pero al parecer no esta bienporque no hace nada como puedo solucionarlo.
muchas cracias.
muchas cracias.
1 Respuesta
Respuesta de jarpsoft
1
Aqui te mando un pequeño ejemplo de una listview con base de datos. Me avisas si te funciono.
Option Explicit
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
Dim sql As String
Dim fd As Field
Dim j As Integer
'//Objetos para trabajar ListView
Dim clm As ColumnHeader
Dim itm As ListItem
cn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=localhost;" _
& "DATABASE=prueba;" _
& "UID=root; PWD=; OPTION=3"
cn.Open
sql = "SELECT * FROM paises where continente like 'America'"
rs.CursorLocation = adUseServer
rs.Open sql, cn
rs.MoveFirst
For Each fd In rs.Fields
Set clm = ListView1.ColumnHeaders.Add(, , fd.Name, 2 * TextWidth(fd.Name))
Next fd
'//Llena lista
Do While Not rs.EOF
Set itm = ListView1.ListItems.Add(, , "" & rs(0))
For j = 1 To rs.Fields.Count - 1
itm.SubItems(j) = "" & rs(j)
Next
rs.MoveNext
Loop
rs.Close
cn.Close
End Sub
Private Sub Form_Load()
With ListView1
.BorderStyle = ccNone
'//Vista en lista de campos
.View = lvwReport
End With
End Sub
Option Explicit
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
Dim sql As String
Dim fd As Field
Dim j As Integer
'//Objetos para trabajar ListView
Dim clm As ColumnHeader
Dim itm As ListItem
cn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=localhost;" _
& "DATABASE=prueba;" _
& "UID=root; PWD=; OPTION=3"
cn.Open
sql = "SELECT * FROM paises where continente like 'America'"
rs.CursorLocation = adUseServer
rs.Open sql, cn
rs.MoveFirst
For Each fd In rs.Fields
Set clm = ListView1.ColumnHeaders.Add(, , fd.Name, 2 * TextWidth(fd.Name))
Next fd
'//Llena lista
Do While Not rs.EOF
Set itm = ListView1.ListItems.Add(, , "" & rs(0))
For j = 1 To rs.Fields.Count - 1
itm.SubItems(j) = "" & rs(j)
Next
rs.MoveNext
Loop
rs.Close
cn.Close
End Sub
Private Sub Form_Load()
With ListView1
.BorderStyle = ccNone
'//Vista en lista de campos
.View = lvwReport
End With
End Sub
