Hola

suponiendo que tengamos una tabla "usuarios" con estos campos, usuario,sucursal

esta seria la programacion en el boton buscar para llenar el datagrid

Private Sub Command1_Click()
Adodc1.CursorLocation = adUseClient
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & App.Path & "\prueba.mdb"
Adodc1.RecordSource = "select * from usuarios where usuario='" & Text1.Text & "' and sucursal='" & Text2.Text & "'"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub

espero te sirva, sino me comentas

saludos..

Excelente mi estimado!! me funcionó a la perfección!
muchas gracias doctor.

Hola, buen dia.

Espero puedan orientarme, gracias a este ejemplo he podido filtrar por medio de textbox en un datagrid, solo que no he encontrado como exportarlo ya con los datos filtrados a excel o a un archivo .txt

Serian tan amables de orientarme, de antemano gracias...

Hola amigo, ya revisaste el video 28 del taller de programacion.

alli esta lo que quieres

Saludos..

Hola Jose, si he visto el video, ya he conseguido exportarlo a un archivo txt, ahora el problema que tengo y no se como resolverlo es que al momento de exportar mi base de dato no me trae los títulos de cada columna, me trae todo el contenido a excepción de los encabezados de cada columna, ejemplo:

asi es como me gustaria exportarlo:

columna1 columna2 columna3
contenido contenido contenido

sin embargo lo exporta de la siguiente manera:

contenido contenido contenido

este es el codigo que estoy usando, espero puedan ayudarme, de antemano muchas gracias.

Public Sub exportar()
Dim strLine As String
Dim i As Integer
With RsDatos
If .BOF Or .EOF Then MsgBox "No hay datos para exportar.", vbExclamation, "Aviso!!!": Exit Sub
Screen.MousePointer = vbHourglass
Open "C:\sample.txt" For Output As #1
MoveFirst
Do While Not .EOF
strLine = ""
For i = 0 To .Fields.Count - 1
strLine = strLine & "" & .Fields(i).Value
If i < .Fields.Count - 1 Then
strLine = strLine & vbTab
End If
Next i
Print #1, strLine
.MoveNext
Loop
.MoveFirst
End With
Close #1
Screen.MousePointer = vbDefault
MsgBox "Datos exportados con exito.", vbInformation, "Aviso!!!"
Shell "notepad.exe C:\sample.txt", vbMaximizedFocus
End Sub

Hola amigo en el video 28 Ronald exporta a excel los datos de un datagrid junto con el nombre de sus columnas.

aparte tambien hay otro video que exporta a un txt como tu lo estas haciendo.

ahora te pongo un ejemplo que compartí tiempo atras con la modificacion para pasar a excel tomando como base un recordset(como tu lo haces) no el datagrid.

analizando las dos opciones:

Exportar desde un datagrid:
Exporta como encabezado el nombre que se le ponga al datagrid si se hace la estructura que quieres mostrar y si solo lo llenas
con todos los datos pondrá los nombres que traiga el recordset.

Como lo menciona Ronald con este método si ocultas columnas que no son necesarias mostrar al usuario en el datagrid no se
exportaran a excel.

Exportar desde un recordset:
segun comentarios en internet es mas rapido(no lo he comprobado)

si quieres mostrar encabezados no tan tecnicos debes modificar los alias de los campos al llenar el recordset ej.
"select IdCliente as 'Codigo cliente' from clientes"

si utilizas el mismo recordset para llenar dos datagrid cuando exportes te va a llevar todos los datos(en cambio la otra opción por
datagrid lo haces por cada uno)

Bueno en fin las dos opciones están muy buenas.

Saludos..

Jose Ramirez
Guatemala..

Hola amigo, acá esta el ejemplo de pasar el datagrid a excel, lo programe en un botón

si quieres usar un archivo mira de nuevo el vídeo, yo lo hice para que creara uno nuevo


Saludos....