none
Ayuda con las Bases de Datos en VB 2008 Express

Respuestas

  • Imports System.Data.SqlClient 
     
    Module mdlConexion 
     
     
        Public Cn As SqlClient.SqlConnection 
        Public Cmd As SqlClient.SqlCommand 
        Public Usuario, Contraseña, Servidor, DB As String 
     
     
     
    'primero necesitas una conexion 
     
        Public Function Conectar() As Boolean 
            Usuario = "sa" 
            Contraseña = "123" 
            Servidor = "148.246.255.154" 
            DB = "Northwind" 
     
            Try 
     
                Cn = New SqlConnection("User Id='" & Usuario & "';Password='" & Contraseña & _ 
                "';DataBase='Remate_Replica';Server='" & Servidor & "'"
                Cn.Open() 
     
                Return True 
     
            Catch ex As Exception 
                MsgBox(ex.Message) 
            End Try 
        End Function 
     
     
    'asi lees una tabla en una base de datos (sql server por ejemplo) 
     
            Dim StrSql As String 
            Dim Fecha As Date 
     
            StrSql = "select * from t0003_0002_1868" 
            Dim cmd As New SqlClient.SqlCommand(StrSql, Cn) 
     
            Dim dr As SqlClient.SqlDataReader 
     
            dr = cmd.ExecuteReader 
            While dr.Read 
     
                Fecha = dr("FechaOperacion"
     
            End While 
     
            dr.Close() 
     
     
     
     
     
     
    ' para modificar una base podría ser asi 
     
    strSql = "Update Tabla_1868 set Tasa='6.3', Monto = '5000' where folio=1" 
     
    Cmd = New SqlClient.SqlCommand(strSql, CnRemate) 
     
    Cmd.ExecuteNonQuery() 
     
     

    • Marcado como respuesta DJRA sábado, 30 de enero de 2010 20:35
    martes, 24 de febrero de 2009 12:59