Hola, soy nuevo en este foro, espero y me puedan ayudar, mi problema esta en que NO puedo agregar registros a un datagrid utilizando un textbox de vb6.
Tengo una base de datos conectada con ADO, agreguè un textbox y un datagrid lo que quiero es que cuando ingrese un dato en el textbox, me muestre todo el registro en un datagrid, y vaya agregando todos los registros que yo quiera.

gracias.

Te muestro lo que tengo para llenar un MSHFlexGrid en el load:

Set rs = New ADODB.Recordset
rs.Open "select * from articulos", nc, adOpenKeyset, adLockOptimistic

Set MSHFlexGrid1.DataSource = rs

y para hacer una busqueda mediante un textbox en el evento change:

Private Sub Text1_Change()
Text1 = UCase(Text1)
Text1.SelStart = Len(Text1)

If rs.State = 1 Then rs.Close
If Len(Text1) <> 0 Then
l1 = Len(Trim(Text1))
CQ = "LEFT(codigo," + Trim(CStr(l1)) + ") = '" & Trim(Text1) & "'"
rs.Open " select * from articulos WHERE " + CQ, nc, adOpenKeyset, adLockOptimistic
Set MSHFlexGrid1.DataSource = rs
end if
end if

End Sub
en este caso busca desde la primera letra que se escribe, busca el codigo en una tabla articulos. (ojo solo el inicio de cada codigo)

Espero te ayude, Saludos!

Dlanor, Gracias por tu ayuda, ha sido muy valiosa.
ahora tengo otro problema, como agregar registros a una base de datos, utilizando el datagrid?,
tengo dos bases de datos, una llamada "stcfeb", y la otra "copia" la primera, tiene 261,000 regs. la segunda (copia) esta vacia, con los mismos campos que la primera.
lo que quiero es esto;
al teclear el campo numerico en un textbox, estaria llamando al registro que tiene este campo, y lo insertaria en el datagrid.
y asi sucesivamente hasta que yo quiera, que siga agregando todos los registros que necesite, y vayan apareciendo uno abajo del otro.
ojala y me puedas ayudar, llevo meses tratando de hacerlo y no me sale.
te mando un saludo, desde aca, Guatemala, y gracias otra vez por tu ayuda.


saludo,

Hola, lo primero es pedirte disculpa xq estoy trabajando y no he tenido tiempo. No entiendo muy bien tu pregunta. Lo que quieres hacer es tener un grid e ir agregando los registros que quieras y luego darle a un boton y te guarde esos registros en otra base de datos? o no es asi? tengo una aplicacion que hace eso, seleccionas un registro en un Datacombo y luego lo agregas al grip, al tener todos los registros que quieras, le das a otro boton y guarda el contenido del grip.

Explicame mejor que quieres hacer desde hace tiempo jejeje, yo tambien me estoy inciando en la programación pero me gusta leer y buscar soluciones, debido a eso ya tengo un sistema de inventario de un almacen, parte del codigo fue lo que te pase antes!

Saludos!

Hola, Dlanor, nuevamente agradecido por tu ayuda, mi problema es este, espero que me pueda explicar.
tengo dos bases de datos
1 - stcfeb (261,000 regs)
2 - copia (sin regs.)

lo que necesito hacer es:
con un textbox, digitar un codigo, el cual es del campo numerico de "stcfeb"
al ingresar el codigo, deberà mostrarse en el datagrid, todos los campos de ese registro.
despues, seguir digitando en el textbox, para seguir agregando los registros que yo quiera.
orden medidor nombre direccion zona
1 12345 erick 19 ca. 6
2 246810 alvarado 18-54 10

podrian ser hasta mas de 300 registros
espero que ahora si me haya explicado bien, y me puedas ayudar con esto
te estaria muy agradecido.

de antemano muchas gracias por tomar en cuenta mi ayuda.

saludo,

Buenos días, esto si llevara un poco de trabajo! En lo que te pasare debes utilizar un DataGrid, en vez de utilizar un textbox para hacer la búsqueda de registro mejor utilizas un DataCombo, y así solo deberás cargar el combo con los códigos o nombres clave de los registros, creo que seria el campo MEDIDOR.

En el modulo que utilizas copia el siguiente código:

Sub CargaCombo(CoMbO As DataCombo, RS_ As ADODB.Recordset, CoD As String, DsC As String)
Set CoMbO.RowSource = RS_
CoMbO.ListField = DsC
CoMbO.BoundColumn = CoD
End Sub

Esta es una función para cargar los datacombo y se utiliza de la siguiente manera.

Set rsA = New ADODB.Recordset

rsA.Open "select * from Articulos order by codigo", nc, adOpenKeyset, adLockOptimistic

Call CargaCombo(DataCombo1, rsA, "codigo", "descripcion")

Aquí se carga en el DataCombo1 el campo Código de la tabla Artículos. Y así mismo puedes cargar información en cualquier datacombo. Recuerda que ya debes de tener la conexión a la Base de datos creada y funcionando. Bueno esto es lo que te recomiendo para hacer la búsqueda de registros. Lo que te quedaría es traer los registros de ese código así:

Friend Sub DataCombo1_Click(Area As Integer)
If Area = 2 Then
Text1.Text = valor("SELECT STOCK FROM ARTICULOS WHERE CODIGO='" + Me.DataCombo1.Text + "'", 1, nc)
Text2.Text = valor("SELECT estatus FROM ARTICULOS WHERE CODIGO='" + Me.DataCombo1.Text + "'", 1, nc)
Text3.Text = valor("SELECT CODIGO FROM ARTICULOS WHERE CODIGO='" + Me.DataCombo1.Text + "'", 1, nc)
Text4.Text = valor("SELECT Descripcion FROM ARTICULOS WHERE CODIGO='" + Me.DataCombo1.Text + "'", 1, nc)
End If
End Sub
Para lo del DataGrid: pega esto en el modulo

Function CrearTemporal() As ADODB.Recordset
Dim RStEMPORAL As New ADODB.Recordset
RStEMPORAL.Fields.Append "COD_ART", adVarChar, 15, adFldIsNullable
RStEMPORAL.Fields.Append "DESCRIPCION", adVarChar, 100, adFldIsNullable
RStEMPORAL.Fields.Append "CANTIDAD", adInteger, , adFldIsNullable
RStEMPORAL.Fields.Append "eSTADO", adVarChar, 100, adFldIsNullable
RStEMPORAL.Open
Set CrearTemporal = RStEMPORAL
End Function

Function valor(cadena_ As String, nro_campo As Integer, Cn_ As ADODB.Connection) As String
Dim RS_ As New ADODB.Recordset
RS_.Open cadena_, Cn_, adOpenStatic, adLockPessimistic
If Not (RS_.EOF And RS_.BOF) Then
valor = ISNULL_(RS_.Fields(nro_campo - 1))
Else
valor = Empty
End If
RS_.Close
End Function

Function ISNULL_(TXT)
ISNULL_ = IIf(IsNull(TXT), "", TXT)
End Function

Debes cambiar esto por los campos que tendrás en el datagrid , luego este código en el formulario

Option Explicit
Dim Rs_Detalle As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset

Private Sub Command1_Click() ‘ este botón es para agregar detalle al datagrip
' AGREGAR DETALLE
If Val(Text2) = 1 Then

If Rs_Detalle.RecordCount > 0 Then
Rs_Detalle.MoveFirst
Rs_Detalle.Find "COD_ART='" + Me.DataCombo1.BoundText + "'"
If Rs_Detalle.EOF Then
ADD_DETALLE
Else
MsgBox "Articulo ya esta en el Detalle", "Mensaje . . ."
End If
Else
ADD_DETALLE
End If
End If


End Sub

Private Sub Command2_Click() ‘ Crea la conexión del dataGrip un botón que seria Nuevo
Set Rs_Detalle = CrearTemporal()
Set Me.DataGrid1.DataSource = Rs_Detalle
End Sub

Friend Sub DataCombo1_Click(Area As Integer)
If Area = 2 Then
Text1.Text = valor("SELECT STOCK FROM ARTICULOS WHERE CODIGO='" + Me.DataCombo1.Text + "'", 1, nc)
Text2.Text = valor("SELECT estatus FROM ARTICULOS WHERE CODIGO='" + Me.DataCombo1.Text + "'", 1, nc)
Text3.Text = valor("SELECT CODIGO FROM ARTICULOS WHERE CODIGO='" + Me.DataCombo1.Text + "'", 1, nc)
Text4.Text = valor("SELECT Descripcion FROM ARTICULOS WHERE CODIGO='" + Me.DataCombo1.Text + "'", 1, nc)
End If
End Sub

Private Sub Form_Load()
Set rs2 = New ADODB.Recordset
rs2.Open "select * from Articulos order by codigo", nc, adOpenKeyset, adLockOptimistic

Call CargaCombo(DataCombo1, rs2, "Descripcion", "codigo")

End Sub

Sub ADD_DETALLE()
With Rs_Detalle
.AddNew
.Fields("COD_ART") = DataCombo1.Text
.Fields("DESCRIPCION") = DataCombo1.BoundText
.Fields("CANTIDAD") = Val(Text1)
.Fields("ESTADO") = Text2.Text
.Update
End With

End Sub

Prueba con esto y me avisas, a mi me funciona perfectamente, tienes que acoplar todo a tu sistema por supuesto, los códigos que están en rojo, son los que agregan la información al datagrid.

Saludos desde Venezuela!!!

Gracias Dlanor, por tu ayuda, voy a probar lo que me has enseñado, ojala y pueda hacerlo, parece ser un poco complicado, pero sabes que en esta vida, no todo es facil, te agradezco muchisimo el ayudarme con esto, he pasado bastante tiempo tratando de ver que puedo hacer, pero nada, con lo que me estas ayudando es enorme.
Una consulta, no lo podriamos hacer sin necesidad de un textbox o un datacombo?, sino directamente desde el datagrid?

un abrazo desde Guatemala,

Pienso que es mejor utilizando el datacombo, ya que en el codigo que te envie el mismo trae todos los datos del registro seleccionado y luego lo agregas para evitar errores y complicaciones, de esa manera solo cuando tengas todos los registros que quieras le das a un boton para que te los guarde en la otra db. Ah la vez pasada me falto colorear jejeje!

Saludos!

Dlanor, te agradezco tu tiempo, estoy tratando de descifrar, como le hago para utilizar tu programa con la base de datos que tengo.
disculpa mi ignorancia, con el DataCombo que dices, es a el ComboBox que te refieres?

Buenas te explico, en lo que te mostre debes utilizar un DataGrip, activas el componente Microsoft DataGrip Control 6.0 (OLEDB), y cuando me refiero al DataCombo es xq debes activar el componete Microsoft DataList Controls 6.0 (OLEDB).

No es combobox es Datacombo (ojo con eso).

Saludos!

Tengo un pequeño gran problema, no puedo agregar mas registros a una tabla utilizando otra tabla, por medio de un datagrid.
tabla 1 tiene 265,000 registros
tabla 2 tiene 000000 registros,
lo que necesito es, digitando el codigo de un campo numerico en un textbox, me muestre toda la informacion de ese registro de la tabla 1, la muestra del registro lo debe de hacer en un datagrid.
debe de quedar en el datagrid el registro encontrado y seguir con otro y otro, hasta un maximo de 300 regitros.
estos registros cuando acepte que todo esta bien, que los traslade a la tabla2
espero haberme explicado bien, ya me estoy rindiendo tratando de hacerlo de un monton de formas y no lo puede hacer, por favor, ayudenmeeeeeeeee.

La verdad es que con el codigo que te pase, lo estoy haciendo en mi sistema, en una misma base de datos pogamosle DBnumero1, teniendo la tabla 1 y la tabla 2, consulto los registros de la tabla 1 y los agrego en el Grid, y luego los paso a la tabla2. Envia el tipo de coneccion que utilizas? las tablas y campos que tienes? mientras estare tratando de hacerte unn programita de prueba que solo pase datos de la tabla 1 a la tabla 2 mediante un grid para que te ayudes con eso, cuando tenga tiempo lo hago, envia la informacion.

Saludos!

Dlanor, disculpa, tanta molestia, es que la verdad, no me sale nada, hasta dolor de cabeza me ha dado, porque no se por donde entrarle, te voy a mandar lo que yo tengo, disculpa el abuso, me dás tu correo para que te lo pueda mandar.
te voy a mandar la base de datos que tengo, bueno las dos, y lo que necesito hacer.
De verdad, disculpame, yo se que tienes muchas otras cosas que hacer, pero, no me sale nada, ahorita estoy documentandome con Recordset, y otro monton de ejemplos para ver si puedo llegar a algo.
Te agradezco mil veces tu ayuda.

Es mejor que coloques el codigo que tienes o que has estado utilizando aqui para que todos podamos ayudarte, asi los demas tambien daran sus opiniones y podran corregirnos en cualquier error que se nos escape. De igual manera mi correo es ronald20777@gmail.com, enviame lo que tienes y explicame lo que quieres hacer.

Saludos!

Dlanor, ya te lo envié a tu correo, gracias por la ayuda y disculpa el abuso.
voy a colocar el codigo como tú lo dices para ver si hay alguien mas que nos pueda ayudar,




saludos,

Aqui te copio todo el código que tengo.

Dim Cn As Connection
Dim Rs As Recordset
Dim WithEvents temp As Recordset
Dim consulta As String, cod As Double



Private Sub Command1_Click()

temp.Close

Set DataGrid1.DataSource = Nothing
cod = Val(Text1.Text)

consulta = "select* from stcfeb where medidor = " & cod
temp.Open consulta, Cn, adOpenKeyset, adLockBatchOptimistic


With temp
If .BOF And .EOF Then
MsgBox "NO EXISTE", vbExclamation, "AVISO"
Else
.MoveFirst
End If

End With

Set DataGrid1.DataSource = temp
DataGrid1.AllowUpdate = True

Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{TAB}"
KeyAscii = 0
End If

End Sub

Private Sub Form_Load()
Set Cn = New Connection
Set Rs = New Recordset
Set temp = New Recordset

Cn.Open "DSN=BASE"
temp.Open "stcfeb", Cn, adOpenDynamic, adLockOptimistic
Rs.Open "stcfeb", Cn, adOpenDynamic, adLockOptimistic

Adodc1.Visible = False

End Sub

Lo primero que he notado en tu codigo es que no has utilizado nada de lo que te dicho jejejeje, y bueno ya modifique tu codigo por el mio, y te envie la informacion a tu correo, luego que confirmes que funciona, seria bueno que lo colocaras aqui y lo explicaras, asi sabre que estas entendiendo el codigo que te envie, y tambien para cerrar el tema dado el caso que te funcione el sistema claro jeje.

Saludos!

Dlanor, te agradezco, toda la ayuda que me has dado, acabo de recibir tu correo. Ya corrí tu programa, pero me muestra un mensaje que dice "la operacion no esta permitida si el objeto esta cerrado", y lo marca en esta parte :


Private Sub Command1_Click() ' este botón es para agregar detalle al datagrip
' AGREGAR DETALLE
If Text1.Text <> "" Then

If Rs_Detalle.RecordCount > 0 Then
Rs_Detalle.MoveFirst
Rs_Detalle.Find "MEDIDOR='" + Me.DataCombo1.Text + "'"
If Rs_Detalle.EOF Then
ADD_DETALLE

End If
Else
ADD_DETALLE
End If
End If


End Sub

Primero debes darle al boton Nuevo, para evitar ese error!

Dlanor, hola como estas?, ya utilicè tu programa y anda correctamente con la instruccion que me dijistes, de presionar primero el boton "nuevo".
Ahora te molesto con unas dudas que tengo, espero no quitarte mucho tiempo,
primero, estoy viendo que no utilizastes el componente "ADO", solo veo que en el mòdulo creastes la conexion, pero como te repito, no utilizastes el componente;
en varias partes de tu programa, hay cosas que ni siquiera sabia que existian, mucho menos como usarlas.
por ejemplo tienes un "while", que no lo abres, bueno eso creo,
Loop While Not Rs_Detalle.EOF, en mi vida habia visto eso, apenas si sabia como crear un contador con "Do while".
todo el mòdulo, nuevo para mi.
el programa que empieza con "Friend sub DataCombo1", tampoco sabia de eso.
en fin, gracias por tu ayuda en verdad fue muy valiosa, me has sacado de un gran problema.Te estarè eternamente agradecido.

No lo utilizo fisicamente jeje, todo esta declarado en codigo, y sobre las cosas que dices no conocer utiliza al amigo GOOGLE y encontraras informacion de todo eso. No te quedes solo con ese codigo trata de mejorarlo, por ejemplo: Luego de guardar los datos en la tabla copia intenta limpiar todo, el datagrid, el datacombo y los text. Tambien podrias hacer una consulta de datos a la tabla copia para verificar que los mismos existan, y por ultimo y creo que lo mas importante es agregarle el campo de la fecha, para que sepas cuando ingresaste esos datos a la tabla copia y de esa manera poder consultarlos por la fecha.

Saludos, creo que este tema quedaria cerrado Erick?

Hola Dlanor, gracias por tu tiempo, por lo que me dices, si estoy tratando de ver unas cosas, tratar de crearle otras cosas, como imprimir lo que voy a digitar, esto me va a ayudar muchisimo, porque va a evitarme que teclear, todos los campos, por ejemplo, la direccion el nombre y todo lo demas, con tan solo buscar el medidor, ya la hice para lo demas.
seguiré tus consejos de agregarle mas cosas, "si es que puedo"; solo me decis donde debo de cerrar el tema.
Te agradezco mucho lo que me enseñastes, recibe un cordial apreton de manos y un saludo a la distancia, y espero estar en contacto una vez mas.

saludos cordiales,