Ver Mensaje Individual
  #12 (permalink)  
Antiguo 19/11/2012, 13:00
edgarherrera
 
Fecha de Ingreso: noviembre-2012
Ubicación: Caracas
Mensajes: 24
Antigüedad: 9 años, 8 meses
Puntos: 1
Respuesta: Ingresar registros a tablas diferentes relacionas. VB.Net MySQL

Saludos a todos buenas tardes!

Continuo aqui con los problemas. Logre hacer la conexión a la base de datos de esta manera:

Código vb:
Ver original
  1. Imports MySql.Data.MySqlClient
  2. Imports MySql.Data
  3.  
  4. Public Class frmOperaciones
  5.  
  6.     Private MysqlCommand As New MySqlCommand
  7.     Dim MysqlConnString As String = "server=localhost; database=sucre; user id= root ; password="" "
  8.     Public MysqlConexion As MySqlConnection = New MySqlConnection(MysqlConnString)
  9.     Dim sAccion As String
  10.     Friend sSqlOperaciones, sCodigo As String

Pero no se si refleja la solución a lo que me decía @@jhonwilliams con respecto a que estaba quemando la conexión a la BD.
Espero esta sea la manera correcta.

Ahora en el código anterior tenia otras funciones como por ejemplo Leer de la BD para saber si habían ya registros y de esta manera Habilitar textbox y otras cosas.

Algo asi:

Código vb:
Ver original
  1. Public Function LeerTabla(ByVal sSqlUsuario)
  2.         Try
  3.             Dim iNroRegistros As Integer = 0
  4.             Dim daoperaciones As New MySqlDataAdapter
  5.             Dim dtoperaciones As New DataTable
  6.             Dim dsoperaciones As New DataSet
  7.             ' Se crean los comandos para el SQL
  8.            cmdOperaciones = New MySqlCommand()            ' IR AL PRINICIPIO *OJO*
  9.            MysqlConexion.Open()
  10.             cmdOperaciones.CommandText = sSqlUsuario
  11.  
  12.             ' ejecutamos la consulta con el dataadapter
  13.            daoperaciones.SelectCommand = cmdOperaciones
  14.  
  15.             ' Llenamos el datatable con los datos obtenidos de la consulta
  16.            daoperaciones.Fill(dtoperaciones)
  17.  
  18.             ' Numero de registros encontrados
  19.            iNroRegistros = dtoperaciones.Rows.Count
  20.  
  21.             ' Ocultamos el boton buscar
  22.            btnBuscar.Visible = False
  23.  
  24.             ' VAMOS POR ESTA LINEA !!!!!!!!!!!!!!!!
  25.  
  26.             If iNroRegistros = 0 Then
  27.                 If sAccion = "I" Then
  28.                     ' Mostramos los botones grabar y cancelar
  29.                    btnCancelar.Visible = True
  30.                     btnGrabado.Visible = True
  31.                     fHabilitar_textbox(True)
  32.                     txtReferencia.Enabled = False
  33.                     txtOperacion.Enabled = False
  34.                     Return True
  35.                 Else
  36.                     ' Mostramos el boton buscar
  37.                    btnBuscar.Visible = True
  38.                     MessageBox.Show("No se encontraron registros en la tabla")
  39.                     fHabilitar_textbox(True)
  40.                     Return False
  41.                 End If
  42.             Else
  43.                 If sAccion = "I" Then
  44.                     ' Ocultamos el boton grabar
  45.                    btnGrabado.Visible = False
  46.                     ' Mostramos el boton buscar
  47.                    btnBuscar.Visible = True
  48.                     MessageBox.Show("Codigo ya registrado en la tabla")
  49.                     Return False

La pregunta sería como realizar estas operaciones de esta nueva forma q estoy implementando???