consulta

[banrey]

hola muchachos estoy haciendo una consulta a mi bd en myslq desde visula soy muy nobato en visual les muestro lo que tengo y les explico que quiero hacer para que me hagan el favor de ayudarme

Public BD As ADODB.Connection
Public RecSQL As ADODB.Recordset
Dim busca As String

Private Sub Command1_Click()
Set RecSQL = New ADODB.Recordset
RecSQL.Open "SELECT * FROM pacientes WHERE numerodehistoria='" & busca & "'", BD, adOpenStatic, adLockOptimistic
If RecSQL.EOF Then
MsgBox "No coincide ningún registro, modifique lo ingresado para la busqueda", vbExclamation
Else
RecSQL.MoveFirst
Do Until RecSQL.EOF
List1.AddItem
End If
End Sub

Private Sub Command2_Click()
On Error GoTo Ver
Set BD = New ADODB.Connection
BD.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=practica; User=root;Password=123456;Option=3"
BD.Open
MsgBox "Conexión establecida!!!", vbExclamation, "Conexión"
Exit Sub
Ver:
MsgBox "Nº de error: " & Err.Number & " | " & Err.Description, vbCritical, "Control de errores"
Err.Clear
End Sub

fiejnse quiero hacer esa consulta pero que la misma se muestre en los distintos campos asignados a nombre, apellido, cedula, etc.. me sale un error en el command1 diciendome q no esta completo, me pueden ayudar por favor

[Avellaneda]

Hola, solo una consulta:

El campo numerodehistoria, de qué tipo es, es de texto, es numérico...?

[banrey]

el campo char, pero ese no es el problema el problema que no tengo idea alguna como mostrar los resultados de la consulta en cada campo o text asignado para cada variable (nombre,apellido,cedula, etc..)

[Avellaneda]

Iniciado por banrey

If RecSQL.EOF Then
MsgBox "No coincide ningún registro, modifique lo ingresado para la busqueda", vbExclamation
Else
RecSQL.MoveFirst
Do Until RecSQL.EOF
List1.AddItem
End If

¿Y qué debe añadir en "List1.AddItem" algún campo?
¿Y dónde termina el bucle "Do Until RecSQL.EOF", es decir donde está el Loop?

[banrey]

ya lo resolvi muchas gracias por tu ayuda

ayudame una ves mas con algo por favor
quiero mostrar todos los datos que hay en una tabla estoy haciendolo asi pero me da un erro seguro tu sabes como hacerlo bien


Private Sub Command6_Click()
Set RecSQL = New ADODB.Recordset
RecSQL.Open "SELECT * FROM pacientes "
If RecSQL.EOF Then
MsgBox "No coincide ningún registro, modifique lo ingresado para la busqueda", vbExclamation
Else
RecSQL.MoveFirst
Text7 = (RecSQL.Fields(1))

End If
End Sub

quiero mostrar todos los registros de la bd de esa tabla y mostrarlos en un text

[vbx3m]

Private Sub Command6_Click()
Set RecSQL = New ADODB.Recordset
RecSQL.Open "SELECT * FROM pacientes "
If RecSQL.EOF Then
MsgBox "No coincide ningún registro, modifique lo ingresado para la busqueda", vbExclamation
Else
RecSQL.MoveFirst
Text7 = (RecSQL.Fields(1))

End If
End Sub

Asi llenas los text con los campos de la tabla:

Código:

Set RecSQL = New ADODB.Recordset
RecSQL.Open "SELECT * FROM pacientes"
If RecSQL.EOF Then
   MsgBox "No coincide ningún registro, modifique lo ingresado para la busqueda", vbExclamation
Else
   RecSQL.MoveFirst
   Text1.Text= RecSQL!campo1
   Text2.Text= RecSQL!campo2
   Text3.Text= RecSQL!campo3
   Text4.Text= RecSQL!campo4
   ....
   .....   
 End If
End Sub

No te daba error al abrir el Recordset? ya que te falto esto:

Código:

RecSQL.Open "SELECT * FROM pacientes", BD, adOpenStatic, adLockOptimistic, adCmdText

[banrey]

si tienes toda la razon ya lo habia acomodado lo que quiero es evitar colocar esto

RecSQL.MoveFirst
Text2 = (RecSQL.Fields(1))
Text3 = (RecSQL.Fields(2))
Text4 = (RecSQL.Fields(3))
Text5 = (RecSQL.Fields(5))
Text6 = (RecSQL.Fields(6))

y hacer un for pero lo hago de esta forma y me sale solo el ultimo dato

for a=0 to 6
Text2 = (RecSQL.Fields(a))
next

y disculpame el abuso pero tambien quiero preguntarte como puedo hacer para q salgan todos los registros en un text de una vez ose asi:

lo estoy tratando de hacer asi pero solo me sale en primer nombre y los demas registros del mismo paciente no me salen:

Set RecSQL = New ADODB.Recordset
RecSQL.Open "SELECT * FROM pacientes ", BD, adOpenStatic, adLockOptimistic
If RecSQL.EOF Then
MsgBox "No coincide ningún registro, modifique lo ingresado para la busqueda", vbExclamation
Else
RecSQL.MoveFirst
Text7 = (RecSQL.Fields(1))


jose jose masculino 24
antonio andres masculino 22
andrea martinez femenino 24

entonces tengo que hacer dos cosa primero variar los text y segundo variar el campo como hago eso amigo

[vbx3m]

y hacer un for pero lo hago de esta forma y me sale solo el ultimo dato

for a=0 to 6
Text2 = (RecSQL.Fields(a))
next

Te recorre pero siempre te va a mostrar el ultimo dato... Puedes crear una matriz de controles del Text y usas el for...

Código:

For i=0 to 6
  text1(i).text =  RecSQL.Fields(i)
next

Si quieres que se muestre todo en un solo Text:

Código:

For i=0 to 6
  text1.text = text1.text & chr(10) + chr(13) &  RecSQL.Fields(i)
next

[banrey]

saben estoy realizando el codigo asi:

For i = 1 To 6
Text(i).Text = RecSQL.Fields(i)
Next

me sale q la variable text no esta definida, ahora si le coloco text2 q es el nombre donde quiero q salga la info me sale el siguiente error tambien

For i = 1 To 6
Text2(i).Text = RecSQL.Fields(i)
Next

wrong number of argumento or invalid property assignment

alguna idea q me ayude por favor

[Avellaneda]

Text2.. ¿es un array de controles?

Si es así, cual es el índice del primer y último elemento?
Es decir, la propiedad Index de ellos.

[banrey]

ya lo acomode gracias por la contestar

pero ayudame con otra cosita ahora:

resolvi todo con un list1 alli se mustran los resultados de la consulta

pero quiero sacar los resultados de forma ascendente y descendente lo hago asi :

Private Sub Command4_Click()
Set RecSQL = New ADODB.Recordset
RecSQL.Open "SELECT nombre,apellido,cedula,edad,sexo From pacientes group by nombre asc", BD, adOpenStatic, adLockOptimistic
If RecSQL.EOF Then
MsgBox "No hay ningún registro en la base de datos", vbExclamation
Else
RecSQL.MoveFirst
Do Until RecSQL.EOF
campo2 = ""
campo2 = campo2 & " " & RecSQL.Fields(0) & " " & RecSQL.Fields(1) & " " & RecSQL.Fields(2) & " " & RecSQL.Fields(3) & " " & RecSQL.Fields(4)
List1.AddItem campo2
RecSQL.MoveNext
Loop
End If
End Sub

trabaja bien pero quiero que al hacer click en este boton q llame ascendete me limpie los la pantalla para poder mostrarme los datos solamente por que el problema que tengo es que me muestra los resultados debajo de otros que anteriormente consulto

[banrey]

ya lo resolvi de nuevo

gracias por la ayuda

[banrey]

muchachos vuelvo con otra pregunta como hago un insert lo estoy haciendo asi pero me da un error en la sintasis

Private Sub Command7_Click()
Set RecSQL = New ADODB.Recordset
SQL_INSERT = " INSERT INTO pacientes (nombre,apellido,cedula,numerodehistoria,edad,sexo ) VALUES (" & Text2 & ",'" & Text3 & ",'" & Text4 & ",'" & Text1 & ",'" & Text5 & ",'" & Text6 & ",');"
BD.Execute SQL_INSERT
MsgBox "LOS DATOS FUERON INSERTADOS", vbExclamation
End Sub

ahora si no tengo idea de como hacerlo

[vbx3m]

muchachos vuelvo con otra pregunta como hago un insert lo estoy haciendo asi pero me da un error en la sintasis

Private Sub Command7_Click()
Set RecSQL = New ADODB.Recordset
SQL_INSERT = " INSERT INTO pacientes (nombre,apellido,cedula,numerodehistoria,edad,sexo ) VALUES (" & Text2 & ",'" & Text3 & ",'" & Text4 & ",'" & Text1 & ",'" & Text5 & ",'" & Text6 & ",');"
BD.Execute SQL_INSERT
MsgBox "LOS DATOS FUERON INSERTADOS", vbExclamation
End Sub

ahora si no tengo idea de como hacerlo

A primera vista tienes una coma de mas y te faltan cerrar algunas comillas simples, y la actualizacion de la BD con BD.Update...

[banrey]

ya lo volvi a resolver muchas gracias denuevo