Ayuda Tabla paciente
Publicado por Erick (1 intervención) el 03/03/2021 06:01:26
Hola necesito hacer una tabla (pacientes) que contenga expediente, clave de diagnostico, diagnostico , clave de descripción y descripción(los datos son obtenidos de sql).
Lo que quiero que me muestre:
Al momento de meter en expediente del paciente, se puedan elegir las demás variables: las cuales ya están descritas en la base de datos.
Además de que se pueda agregar el diagnostico su clave y demás, para que después podamos guardar los nuevos datos en sql.
Apenas llevo esto:
espero puedan ayudar, por favor
Lo que quiero que me muestre:
Al momento de meter en expediente del paciente, se puedan elegir las demás variables: las cuales ya están descritas en la base de datos.
Además de que se pueda agregar el diagnostico su clave y demás, para que después podamos guardar los nuevos datos en sql.
Apenas llevo esto:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim buscar As String = TextBox1.Text
Dim cadenaConexion As String = "Data Source=DESKTOP-KJ4U0P4\SQLEXPRESS;Initial Catalog=proyecto1;Integrated Security=True"
Dim query As String = "select *from pedidos where id = " & buscar & ""
Dim conexion As SqlConnection = New SqlConnection("Data Source=DESKTOP-KJ4U0P4\SQLEXPRESS;Initial Catalog=proyecto1;Integrated Security=True")
conexion.Open()
Dim comando As SqlCommand = New SqlCommand(query, conexion)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'' Dim query2 As String =Dim tabla As New DataTable
tabla.Columns.Add("codigo", System.Type.GetType("System.String"))
tabla.Columns.Add("producto", System.Type.GetType("System.String"))
If tabla.Rows.Count >= 0 Then
Dim fila As DataRow
fila = tabla.NewRow(0)
End If
espero puedan ayudar, por favor
Valora esta pregunta
0