PROGRAMA EN VISUAL BASIC2005 a conexion a una tabla en ACCESS
Module Module1
Public con As OleDb.OleDbConnection
Public reader As Odbc.OdbcDataReader
Public Sub conexion()
con = New OleDb.OleDbConnection()
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "C:\Documents and Settings\Administrador.ILLUSION_V2\Escritorio\tecno 3g\clinica.mdb"
Try
con.Open()
con.Close()
' MessageBox.Show("si hay conexion" & con.ToString)
Catch ex As Exception
MessageBox.Show("error" & ex.Message)
Finally
con.Dispose()

End Try
End Sub
End Module
-------------------------------------------------------------
‘todo el form1

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
conexion()
mostrar()
maximo()
End Sub
Public Sub maximo()
Dim da As New OleDb.OleDbDataAdapter("SELECT max(Id_paciente) as maxi FROM paciente", con)
Dim ds As New DataSet
Try
da.Fill(ds, "paciente")
TextBox1.DataBindings.Add("text", ds, "paciente.maxi")
TextBox1.Text = Val(TextBox1.Text) + 1
Catch mi As Exception
TextBox1.Text = Val(TextBox1.Text) + 1
MsgBox(TextBox1.Text)
End Try
End Sub
Public Sub mostrar()
Dim sql As String
Dim cm As OleDb.OleDbCommand
Dim da As OleDb.OleDbDataAdapter
Dim ds As DataSet
Dim ver As DataView
sql = "select * from paciente"
cm = New OleDb.OleDbCommand()
cm.CommandText = sql
cm.CommandType = CommandType.Text
cm.Connection = con
da = New OleDb.OleDbDataAdapter(cm)
ds = New DataSet()
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "C:\Documents and Settings\Administrador.ILLUSION_V2\Escritorio\tecno 3g\clinica.mdb"
con.Open()
da.Fill(ds)
ver = ds.Tables(0).DefaultView
DataGridView1.DataSource = ver
con.Close()
End Sub
Public Sub limpiar()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox6.Text = ""
TextBox8.Text = ""
DateTimePicker1.Text = ""
TextBox10.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox11.Text = ""
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.Close()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
con = New OleDb.OleDbConnection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "C:\Documents and Settings\Administrador.ILLUSION_V2\Escritorio\tecno 3g\clinica.mdb"
Dim sexo As String = ""
If CheckBox1.Checked = True Then
sexo = "masculino"
End If
If CheckBox2.Checked = True Then
sexo = "femenido"
End If

Dim sql As String = "INSERT INTO paciente (Id_paciente,nombre,edad,sexo,estado_civil,fecha_nacimiento,conyuge,direccion,telefono1,telefono2,otros_datos)VALUES ('" & Val(TextBox1.Text) & "','" & TextBox2.Text & "','" & Val(TextBox6.Text) & "','" & sexo & "','" & TextBox8.Text & "','" & DateTimePicker1.Text & "','" & TextBox10.Text & "','" & TextBox3.Text & "','" & Val(TextBox4.Text) & "','" & Val(TextBox5.Text) & "','" & TextBox11.Text & "')"
Dim cmd As New OleDb.OleDbCommand(sql, con)
con.Open()
Try
Dim n As Int32 = cmd.ExecuteNonQuery
con.Close()
mostrar()
MessageBox.Show("Ingreso exitoso")
DataGridView1.Visible = True
Button2.Enabled = True
Button3.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Catch ex As Exception
MessageBox.Show("error al ingresar dato vea si el codigo del paciente no esta repetido" & ex.Message)
End Try
Button5.Enabled = True

End Sub

Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
limpiar()
TextBox1.Text = DataGridView1("id_paciente", DataGridView1.CurrentRow.Index).Value.ToString()
TextBox2.Text = DataGridView1("nombre", DataGridView1.CurrentRow.Index).Value.ToString()
TextBox6.Text = DataGridView1("edad", DataGridView1.CurrentRow.Index).Value.ToString()
' TextBox7.Text = DataGridView1("sexo", DataGridView1.CurrentRow.Index).Value.ToString()
TextBox8.Text = DataGridView1("estado_civil", DataGridView1.CurrentRow.Index).Value.ToString()
'DateTimePicker1.Text = DataGridView1("fecha_nacimiento", DataGridView1.CurrentRow.Index).Value.ToString()
TextBox10.Text = DataGridView1("conyuge", DataGridView1.CurrentRow.Index).Value.ToString()
TextBox3.Text = DataGridView1("direccion", DataGridView1.CurrentRow.Index).Value.ToString()
TextBox4.Text = DataGridView1("telefono1", DataGridView1.CurrentRow.Index).Value.ToString()
TextBox5.Text = DataGridView1("telefono2", DataGridView1.CurrentRow.Index).Value.ToString()
TextBox11.Text = DataGridView1("otros_datos", DataGridView1.CurrentRow.Index).Value.ToString()
Button5.Enabled = True
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
limpiar()
maximo()
Button5.Enabled = False
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim sexo As String = ""
If CheckBox1.Checked = True Then
sexo = "masculino"
End If
If CheckBox2.Checked = True Then
sexo = "femenido"
End If
con = New OleDb.OleDbConnection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "C:\Documents and Settings\Administrador.ILLUSION_V2\Escritorio\tecno 3g\clinica.mdb"
Dim sql As String = "UPDATE paciente SET paciente.nombre= ('" & TextBox2.Text & "'), paciente.edad = ('" & Val(TextBox6.Text) & "'), paciente.sexo = ('" & sexo & "'), paciente.estado_civil = ('" & TextBox8.Text & "'), paciente.fecha_nacimiento = ('" & DateTimePicker1.Text & "'), paciente.conyuge = ('" & TextBox10.Text & "'), paciente.direccion = ('" & TextBox3.Text & "'), paciente.telefono1 = ('" & Val(TextBox4.Text) & "'),paciente.telefono2= ('" & Val(TextBox5.Text) & "'),paciente.otros_datos= ('" & TextBox11.Text & "') WHERE (((paciente.Id_paciente)=(" & CInt(TextBox1.Text) & ")))"
Dim cmd As New OleDb.OleDbCommand(sql, con)
con.Open()

Dim answer As DialogResult
answer = MessageBox.Show("¿Esta seguro que desea Modificar el registro?", _
"Confirmacion", _
MessageBoxButtons.YesNo, _
MessageBoxIcon.Question, _
MessageBoxDefaultButton.Button2)

If answer = Windows.Forms.DialogResult.Yes Then
Try
Dim n As Int32 = cmd.ExecuteNonQuery
con.Close()
mostrar()
MessageBox.Show("Modificacion exitoso")
DataGridView1.Visible = True
Catch ex As Exception
MessageBox.Show("error al modificar dato " & ex.Message)
End Try
End If
Button5.Enabled = True
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
con = New OleDb.OleDbConnection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "C:\Documents and Settings\Administrador.ILLUSION_V2\Escritorio\tecno 3g\clinica.mdb"
Dim sql As String = "delete from paciente WHERE (((paciente.Id_paciente)=(" & CInt(TextBox1.Text) & ")))"
Dim cmd As New OleDb.OleDbCommand(sql, con)
con.Open()
Dim answer As DialogResult
answer = MessageBox.Show("¿Esta seguro que desea eliminar el registro?", _
"Confirmacion", _
MessageBoxButtons.YesNo, _
MessageBoxIcon.Information, _
MessageBoxDefaultButton.Button2)

If answer = Windows.Forms.DialogResult.Yes Then
Try
Dim n As Int32 = cmd.ExecuteNonQuery
con.Close()
mostrar()
MessageBox.Show("Eliminacion exitoso")
DataGridView1.Visible = True
Catch ex As Exception
MessageBox.Show("error al eliminar dato " & ex.Message)
End Try
End If
Button5.Enabled = True
End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
CheckBox2.Checked = False
End Sub

Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
CheckBox1.Checked = False
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Form2.id = Val(TextBox1.Text)
Me.Close()
Form2.Show()
End Sub
End Class

Como conectar el programa de Visual Basic 6.0 con MySql
1. Se entra a panel de control y en herramientas de administrador en Administrador de orígenes de datos ODBC y se agrega…
2. El password es el de mysql
3. Ahora en Visual Basic 6.0 se crea un Form y se crea lo que se desea según la tabla el dataenviroment se jala de nuevos en la herramientas
4. Se crea un método y se pega el código de ADODB solo se cambia el surce o el nuevo nombre que se le puso ala dirección en herramientas del ODBC el código es el siguiente ….
Public cn As ADODB.Connection
Public qy As ADODB.Command
Public con As String

Public Sub conectar()
con = ""
Set cn = Nothing
On Error Resume Next

con = "Provider=MSDASQL.1;Persist Security Info=False;User ID=root;Data Source=julio"

Set cn = New ADODB.Connection
cn.Open con

If Err Then
MsgBox ("Error Con la Coneccion de Base de Datos")
Exit Sub
End If
End Sub
Public Sub desconectar() 'este procedimiento cierra la conexion activa
cn.Close
End Sub
Public Sub mantenimiento(ByVal sql As String) ' este es el procedimiento para ingresar querys (insert, update, delete) para hacer un select se puede usar un rcordset o este prodedimiento
Call conectar
Dim qy As New ADODB.Command
qy.ActiveConnection = cn
qy.CommandText = sql
qy.CommandType = adCmdText
qy.Execute
Call desconectar
End Sub

y solo se cambie el nombre de el ADODB…

5. Se copia la informacion de el com y se pone en las propiedades de el data emviroment en el connection 1 en connectionSourse…
6. Se pega el sigiente codigo en el form1 en el general para que corra..
Se pone el código…

Private Sub actualiza()
Dim rc As ADODB.Recordset
Set rc = Nothing
Set rc = New ADODB.Recordset
With rc
.LockType = adLockReadOnly
.CursorLocation = adUseClient
.CursorType = adOpenStatic
End With
rc.Open "select * from empleados", con, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rc
DataGrid1.Refresh
End Sub

Private Sub nuevo()
Text1 = Clear
Text2 = Clear
Text3 = Clear
Text4 = Clear
Text5 = Clear
End Sub

7. En el botón de guardar se pone el codigoo..
Que es
Call mantenimiento("insert into empleados(empleado_codigo,empleado_nombre,empleado_tel,empleado_sueldo,empleado_area) Values ('" & Text1.Text & "' ,'" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "')")
Call actualiza
Call nuevo
MsgBox "Registro Guardado", 32, "Exito"

en el de eliminar es el de

Call mantenimiento("delete from empleados where empleado_codigo=('" & Text1.Text & "')")
Call actualiza
MsgBox "Registro Eliminado", 16, "Exito"
Call nuevo

8. Y en form se pone el código para que genere las tablas automáticamente…

Private Sub Form_Load()
Call conectar
Call actualiza
End Sub

Como crear el punto ejecutable en visual basic 2005

1. Lo que se hace es que se crea un
Nuevo proyecto>Otros tipos de poryectos>Proyecto de instalacion
2. Se pone el nombre y se escoge antes el proyecto de install
Se va a carpeta de instalacion dentro del sistema de archivos, se da segundo click agregar carpeta.
3. Le damos hay en donde esta esta carpeta y le damos agragar una carpeta luego hacemos lo mismo de segundo clik pero buscamos el .exe de el que queresmos que sea el ejecutable …
Agregar>archivo..
4. Luego lo buscamos
Luego le damos en generar y generamos el prototipo o el instal y ya.
En la vara de herramientas donde esta archivos editar ver proyecto GENERAR
Y listo ;)

Conexión de visual basic2005 a mysql que tienen que llevar cada Boton……….

....esto va en el form no en el load sino que en el general propio del form

Public Sub maximo()
con.Open()
Dim cons As New MySqlCommand("SELECT max(id_proveedor) as maxi FROM proveedor ", con)
reader = cons.ExecuteReader
If reader.Read = True Then
codigo_proveedortext.Text = reader("maxi")
reader.Close()
End If
codigo_proveedortext.Text = Val(codigo_proveedortext.Text) + 1
con.Close()
End Sub

--------------------------------

Private Sub mostrar()
Dim sql As String
Dim cm As MySqlCommand
Dim da As MySqlDataAdapter
Dim ds As DataSet
Dim ver As DataView
sql = "SELECT * FROM proveedor"
cm = New MySqlCommand()
cm.CommandText = sql
cm.CommandType = CommandType.Text
cm.Connection = con
da = New MySqlDataAdapter(cm)
ds = New DataSet()
da.Fill(ds)
' la variable Dim vista as DataView es global a toda la clase
ver = ds.Tables(0).DefaultView
DataGridViewprov.DataSource = ver
End Sub


...esto es un metodo diferente:
Imports MySql.Data.MySqlClient
Module Globales
Public cont As Integer
Public cm As MySqlCommand
Public dr As MySqlDataReader
Public glob As String
Public ver As DataView
Public sd As DataSet
End Module

1. Este es el codigo de el modulo donde esta la conexión y asi se llama………


Imports MySql.Data.MySqlClient
Module conexion
Public con As MySqlConnection
Public reader As MySqlDataReader
Public Sub conectar()
con = New MySqlConnection()
con.ConnectionString = "server= localhost ;" _
& "user id= root ;" _
& "password= 123 ;" _
& "database=finfin"
Try
con.Open()
con.Close()
Catch mierror As MySqlException
MessageBox.Show("No se puede conectar al servidor de Base de Datos: " & mierror.Message)
Finally
con.Dispose()
End Try
End Sub
Public Sub transaccion(ByVal sSql As String)
Try
Dim cmd As New MySqlCommand
cmd.Connection = con
cmd.CommandText = sSql
cmd.CommandType = CommandType.Text
con.Open()
cmd.ExecuteNonQuery()
con.Close()
Catch MyEx As MySqlException
MessageBox.Show("Error en la conexion")
End Try
End Sub
End Module

2. Este es un modulo que crea y despliega en los datagridview y se llama procedimiento……

Imports MySql.Data.MySqlClient
Module procedimientos
Public Sub rellenar()
Dim sql As String
Dim cm As MySqlCommand
Dim da As MySqlDataAdapter
sql = "SELECT * FROM proveedor"
cm = New MySqlCommand()
cm.CommandText = sql
cm.CommandType = CommandType.Text
cm.Connection = con
da = New MySqlDataAdapter(cm)
sd = New DataSet()
da.Fill(sd)
'la variable Dim vista as DataView es global a toda la clase
ver = sd.Tables(0).DefaultView
'grid_empleados.DataSource = vista

End Sub
Private Sub mostrar()
'llenar un combobox o un listbox
'Dim Sql As String
con.Open()
'Sql = "SELECT * FROM empleados"
cm = New MySqlCommand()
cm.CommandText = glob
cm.CommandType = CommandType.Text
cm.Connection = con
dr = cm.ExecuteReader()
While dr.Read()
' nombre del control que se va a llenar
'estatus.Items.Add(dr(0))
End While
dr.Close()
End Sub
End Module
3. En el load de los Form1 va este codigo que nos ingresa al datagridview los datos…
Private Sub proveedores_Load(98ij89778
conectar()
mostrar()
Dim da As New MySqlDataAdapter("SELECT max(id_proveedor) as maxi FROM proveedor", con)
Dim ds As New DataSet
Try
da.Fill(ds, "proveedor")
codigo_proveedortext.DataBindings.Add("text", ds, "proveedor.maxi")
codigo_proveedortext.Text = Val(codigo_proveedortext.Text) + 1
'MsgBox(codigo_proveedortext.Text)
Catch mi As Exception
codigo_proveedortext.Text = Val(codigo_proveedortext.Text) + 1
MsgBox(codigo_proveedortext.Text)

End Try
End Sub
4. En el boton de Guardar va este codigo…..
conectar()
glob = ("Insert into proveedor(id_proveedor,nombre_prov,nit_prov,tel_prov,direc_prov,fecha_credito,fecha_credito_vencido,num_pagos_credito,mora_pago_atrasado,status_prov) values ('" & codigo_proveedortext.Text & "' ,'" & nombreproveedortext.Text & "','" & nitproveedortext.Text & "','" & numeroteltext.Text & "' ,'" & direproveedortext.Text & "','" & fechacreditotext.Text & "','" & fechacreditoventext.Text & "' ,'" & numeropagocreditotext.Text & "','" & moratext.Text & "','" & statusprovetext.Text & "' )")
'total_abono,total_deuda
transaccion(glob)
'limpiar()
Call procedimientos.rellenar()
glob = "SELECT * FROM proveedor"
ver = sd.Tables(0).DefaultView
DataGridViewprov.DataSource = ver
5. En el dataGridview va este codigo …….
codigo_proveedortext.Text = DataGridViewprov("id_proveedor", DataGridViewprov.CurrentRow.Index).Value.ToString()
nombreproveedortext.Text = DataGridViewprov("nombre_prov", DataGridViewprov.CurrentRow.Index).Value.ToString()
nitproveedortext.Text = DataGridViewprov("nit_prov", DataGridViewprov.CurrentRow.Index).Value.ToString()
numeroteltext.Text = DataGridViewprov("tel_prov", DataGridViewprov.CurrentRow.Index).Value.ToString()
direproveedortext.Text = DataGridViewprov("direc_prov", DataGridViewprov.CurrentRow.Index).Value.ToString()
' fechacreditotext.Text = DataGridViewprov("fecha_credito", DataGridViewprov.CurrentRow.Index).Value.ToString()
'fechacreditoventext.Text = DataGridViewprov("fecha_credito_vencido", DataGridViewprov.CurrentRow.Index).Value.ToString()
numeropagocreditotext.Text = DataGridViewprov("num_pagos_credito", DataGridViewprov.CurrentRow.Index).Value.ToString()
moratext.Text = DataGridViewprov("mora_pago_atrasado", DataGridViewprov.CurrentRow.Index).Value.ToString()
totalabonotext.Text = DataGridViewprov("total_abono", DataGridViewprov.CurrentRow.Index).Value.ToString()
totaldeudatext.Text = DataGridViewprov("total_deuda", DataGridViewprov.CurrentRow.Index).Value.ToString()
statusprovetext.Text = DataGridViewprov("status_prov", DataGridViewprov.CurrentRow.Index).Value.ToString()
6. En el de actualizar va este codigo…..
transaccion("Update proveedor Set nombre_prov=('" & nombreproveedortext.Text & "'), nit_prov=('" & nitproveedortext.Text & "'), tel_prov=('" & numeroteltext.Text & "'), direc_prov=('" & direproveedortext.Text & "'), fecha_credito=('" & fechacreditotext.Text & "'), fecha_credito_vencido= ('" & fechacreditoventext.Text & "'), num_pagos_credito= ('" & numeropagocreditotext.Text & "'), mora_pago_atrasado= ('" & moratext.Text & "'), status_prov= ('" & statusprovetext.Text & "') where id_proveedor= ('" & codigo_proveedortext.Text & "')")
mostrar()
7. En el de eliminar va este codigo….

glob = ("delete from proveedor where id_proveedor = ('" & codigo_proveedortext.Text & "' )")
transaccion(glob)
'limpiar()
Call procedimientos.rellenar()
glob = "SELECT * FROM proveedor"
ver = sd.Tables(0).DefaultView
DataGridViewprov.DataSource = ver

si deceas realizar una conecion en VIsual Basic 2005 con sql solo el servidor ....


Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Data.SqlClient
Imports System.Data

_
_
_
Public Class Service
Inherits System.Web.Services.WebService
Public Const Conection As String = "data source = 192.168.1.4; initial catalog=email;" & _
"user = root; password = 123"
Public Cnn As MySqlConnection
Public Cmd As MySqlCommand

_
Public Function Conexion() As Boolean
Try
Cnn = New MySqlConnection
Cnn.ConnectionString = Conection
Return True
Catch ex As Exception
Throw
End Try
End Function

_
Public Function Inst1(ByVal ISQL As String) As Boolean
Try
Conexion()
Cnn.Open()
Cmd = New MySqlCommand(ISQL, Cnn)
Cmd.CommandType = Data.CommandType.Text
Cmd.ExecuteNonQuery()
Cerrar()
Return True
Catch ex As Exception
Throw
End Try
End Function

_
Public Function Cerrar() As Boolean
Try
Cnn.Close()
Return True
Catch ex As Exception
Throw
End Try
End Function

_
Public Function Desconectar() As Boolean
Try
Cnn.Close()
Cnn.ConnectionString = Nothing
Return True
Catch ex As Exception
Throw
End Try
End Function

_
Public Function Consulta(ByVal ISQL As String, ByVal Tabla As String) As DataSet
Try
Conexion()
Cnn.Open()
Dim DT As New DataSet
Dim DA As New MySqlDataAdapter(ISQL, Cnn)
DA.Fill(DT, Tabla)
Return DT
Catch ex As Exception
Throw
End Try
End Function

End Class