Lo he copiado todo un poco rápido.
Cadena de conexión:
Pero seguro que lo puedes mejorar, que es de hace mucho
Saludos.
Cadena de conexión:
Código [Seleccionar]
'Para dar valores a la cadena de conexión:
Public Sub ms_cadena_conexion()
str_ConexionBD = "server=" & str_bd_servidor & ";"
If str_bd_usuario <> "" And str_bd_usuario <> " " Then
str_ConexionBD = str_ConexionBD & "user id=" & str_bd_usuario & ";"
End If
If str_bd_password <> "" And str_bd_password <> " " Then
str_ConexionBD = str_ConexionBD & "password=" & str_bd_password & ";"
End If
str_ConexionBD = str_ConexionBD & "port=" & str_bd_puerto & ";" & _
"database=" & str_bd_basedatos & "; Persist Security Info=True;"
End Sub
Código [Seleccionar]
Imports System
Imports MySql.Data.MySqlClient
Imports MySql.Data.MySqlClient.MySqlConnection
Imports MySql.Data.MySqlClient.MySqlCommand
Imports MySql.Data.MySqlClient.MySqlDataReader
Código [Seleccionar]
Public Sub ms_modifiDocumento()
Dim str_sql As String = ""
str_sql = "Update documentos Set " & _
"doc_titulo = '" & str_doc_titulo & "'," & _
"doc_fchAlta = '" & dat_doc_fchAlta & "'," & _
"doc_importancia = '" & str_doc_importancia & "'," & _
"doc_dirDocumento = '" & str_doc_dirDocumento & "' " & _
"Where PK_doc_idDoc = " & PK_doc_idDoc & ""
cls_conexion.ms_modificar(str_sql)
ms_limpiar()
End Sub
Código [Seleccionar]
Public Sub ms_modificar(ByVal str_sql As String)
Try
InicializadorDataAdapterDataSet()
ConexionConBD.ConnectionString = str_ConexionBD
ConexionConBD.Open()
Orden = New MySql.Data.MySqlClient.MySqlCommand(str_sql, ConexionConBD)
Orden.ExecuteNonQuery()
FinInicializadorDataAdapterDataSet()
ConexionConBD.Close()
Orden = Nothing
Catch ex As Exception
End Try
End Sub
Public Sub InicializadorDataAdapterDataSet()
Try
AdaptadorDeDatos = New MySql.Data.MySqlClient.MySqlDataAdapter
MySqlSelectCommand1 = New MySql.Data.MySqlClient.MySqlCommand
MySqlInsertCommand1 = New MySql.Data.MySqlClient.MySqlCommand
MySqlUpdateCommand1 = New MySql.Data.MySqlClient.MySqlCommand
MySqlDeleteCommand1 = New MySql.Data.MySqlClient.MySqlCommand
AdaptadorDeDatos.SelectCommand = MySqlSelectCommand1
AdaptadorDeDatos.InsertCommand = MySqlInsertCommand1
AdaptadorDeDatos.UpdateCommand = MySqlUpdateCommand1
AdaptadorDeDatos.DeleteCommand = MySqlDeleteCommand1
DataSet1 = New DataSet
ConexionConBD = New MySqlConnection()
Catch ex As Exception
End Try
End Sub
Public Sub FinInicializadorDataAdapterDataSet()
Try
AdaptadorDeDatos = Nothing
MySqlSelectCommand1 = Nothing
MySqlInsertCommand1 = Nothing
MySqlUpdateCommand1 = Nothing
MySqlDeleteCommand1 = Nothing
DataSet1 = Nothing
Catch ex As Exception
End Try
End Sub
Pero seguro que lo puedes mejorar, que es de hace mucho
