Visual Basic - Conexion con base de datos.

Life is soft - evento anual de software empresarial
   
Vista:

Conexion con base de datos.

Publicado por Cristian (6 intervenciones) el 11/06/2010 13:59:20
Hola a tod@s, tengo el siguiente problema

Tengo creada una base de datos en acces con una tabla tipo "ingresos" (efecitvo,tarjeta,etc) y un formulario en visual basic donde en unas cajas de texto se deberian introducir los datos y mediante un Cbutton guardarlos en la base de datos, he intentando todo lo "poco" que se, todo lo que he leido por internet asi como la ayuda de varios de vosotros y no lo consigo......se que algo me dejo.....estoy usando visual basic express 2005....se que hay algun paso que me salto o hago mal pero no lo detecto....

Si alguien me pudiera explicar como hacerlo paso a paso "como si fuera un niño pequeño" porque de verdad que esto me esta volviendo loco perdido.......

Gracias a tod@s por vuestro tiempo y dedicacion.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Conexion con base de datos.

Publicado por Julio (72 intervenciones) el 11/06/2010 15:42:22
EJEMPLO DE CONEXION A SQLSERVER 2005 DESDE VISUAL VASIC 2005 EXPRESS

En un modulo

Imports System.Data.OleDb

Module Modulo

Public Conectar As OleDb.OleDbConnection
Public Ejecutar As New OleDb.OleDbCommand
Public Adaptador As New OleDb.OleDbDataAdapter
Public Objeto As New DataTable
Public Cadena As String
Public Sql As String

Sub SqlServerNet()
'*
'Cadena de Conexión:
Cadena = "Provider=SQLOLEDB; " & _
"Initial Catalog=Prueba; " & _
"Data Source=SERVIDOR; " & _
"Integrated Security=SSPI; persist security info=False;"
'*
'Asignar Cadena al Objeto OleDbConnection:
Conectar = New OleDb.OleDbConnection(Cadena)
'*
'Tratamiento de errores:
Try
Conectar.Open()
MessageBox.Show("BIENVENIDO AL SISTEMA :" & vbCrLf & vbCrLf & "CONEXION EXITOSA LA SERVIDOR.", "CONEXION AL SERVIDOR : ( SQL SERVER. )", MessageBoxButtons.OK, MessageBoxIcon.Information)
Conectar.Close()
Catch MiError As Exception
MessageBox.Show("ERROR DE CONEXION :" & " " & Err.Description, "ERROR DE CONEXION :", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
Conectar.Dispose()
End Try

End Sub
End Module

En el formulario: EJEMPLO EN UN BOTON GRABAR

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'*
If TextBox1.Text = "" Then
MessageBox.Show("INGRESE EL RUBRO.", "ATENCION USUARIO :", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
TextBox1.Focus()
Exit Sub
End If
'*
'Tratamientos de errores:
Try
'Asignar cadena de conexión al objeto OleDb.OleDbConnection:
Conectar = New OleDb.OleDbConnection(Cadena)
'*
'Abre la conexión:
Conectar.Open()
'*
'Sentencia Insert Into:
Sql = "Insert Into Rubros Values ('" + TextBox1.Text + "')"
'*
'Le pasa como parámetro la variable Sql
'al objeto OleDb.OleDbCommand
Ejecutar = New OleDb.OleDbCommand(Sql, Conectar)
'*
'Ejecuta el Insert Into:
Ejecutar.ExecuteNonQuery()
'*
TextBox1.Text = ""
TextBox1.Focus()
'*
'Si no hubo error entonces:
MessageBox.Show("LA OPERACION SE REALIZO CON EXITO.", "INFORMACION DEL SISTEMA :", MessageBoxButtons.OK, MessageBoxIcon.Information)
'*
'Cerrar:
Conectar.Close()
Adaptador = Nothing
'*
'Si hubo error entonces:
Catch MensajeError As Exception
MessageBox.Show("ERROR :" & " " & Err.Description, "ERROR :", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
Conectar.Dispose()
End Try
'*
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar