jueves, 22 de octubre de 2015

 

Base de datos farmacia free. (Sql server 2020)


Sistema desarrollado en c# con la base datos en sql server 2020





Script de Base de datos Farmacia.
link de descarga
Link de descarga


Share:
 

consulta de datos con filtros..combobox


 VISUAL ESTUDIO 2010 & SQL SERVER 2008


·         Primeramente  crea el base de datos en sql server

·    
·         Procedimiento Almacenado


·         Diseño En Visual estudio 2010
·         Codigo Fuente
Imports System.Data.SqlClient
Public Class Form1
    Dim cn As New SqlConnection
    Dim cadena As String = "Data Source=CRISTIAN-PC\SQLEXPRESS;Initial Catalog=matriculas;Integrated Security=True"

    Private Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load
        cn.ConnectionString = cadena
        Dim cmd As New SqlCommand
        cmd.Connection = cn

        Dim da As New SqlDataAdapter
        da.SelectCommand = cmd
        Dim ds As New DataSet
        'CARGA PARA COMBOBOX
        Dim cmd1 As New SqlCommand("CODIGOS1", cn)
        With cmd1
            .CommandType = CommandType.StoredProcedure
            Dim da1 As New SqlDataAdapter(cmd1)
            Dim dt1 As New DataTable
            da1.Fill(dt1)
            ComboBox1.DataSource = dt1
            ComboBox1.DisplayMember = "COD"
        End With
    End Sub
        'CODIGO PARA COMBOBOX
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ComboBox1.SelectedIndexChanged
        Dim cmd2 As New SqlCommand("CODIGOS", cn)
        TextBox1.DataBindings.Clear()
        TextBox2.DataBindings.Clear()
        TextBox3.DataBindings.Clear()
        With cmd2
            .CommandType = CommandType.StoredProcedure
            .Parameters.Add(New SqlParameter("@xcod", ComboBox1.Text))

            Dim da2 As New SqlDataAdapter(cmd2)
            Dim dt2 As New DataTable
            da2.Fill(dt2)
            TextBox1.DataBindings.Add(New Binding("Text", dt2, "NOM"))
            TextBox3.DataBindings.Add(New Binding("Text", dt2, "APE"))
            TextBox2.DataBindings.Add(New Binding("Text", dt2, "DIR"))
        End With
    End Sub


End Class
Share:
 

Consulta con filtros. por rango de fechas en visual 2019 & sql 2019



Consulta por rango de fechas en visual estudio 2019 & sql 2019



1.    crear procedimiento almacenado
create procedure buscar
@fechaini datetime,
@fechafinal datetime
as
select*from factura where fecha between @fechaini and @fechafinal

2.     Diseñar el siguiente formulario
visual....
cadena de conexion
Public Module Conexion
    Public con As New SqlConnection("data source=CPIPRODESIGN\SQLEXPRESS;initial catalog=ventas;Integrated security=true")
End Module
codigo button buscar
si no ves bien la imagen click en ella para ver mejor.............

unete a mi pagina en facebook..para consultas o dudas...gracias
Share:
 

Como Exportar datos de Datagridview a Excel 2010 ,2013 o versiones actuales

 o versiones actuales 



Hola amigos como están espero bien en este articulo les traigo a como exporta datos de DataGridView  a Excel 2010. En Visual estudio 2010
Pues muchos de las aplicaciones que hacemos necesitan pasar a hojas de cálculos como por ejemplo a EXCEL 2010... O versiones actuales
 Programado por: Patricio Izquierdo Cristian
Para: CPIPRODESIGN

ü  Primero diseñe El siguiente Formulario
ü  Luego agregamos referencias .











 CODIGO FUENTE.
El siguiente bloque de codigos nos  sirve para cargar data aDataGridView1



Sub cargaData()

        Try

            Dim DA As New SqlDataAdapter("Select * From clientes", cn)
            Dim DS As New DataSet
            DA.Fill(DS, "clientes")
            DataGridView1.DataSource = DS.Tables("clientes")
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error Controlado")
        End Try
    End Sub

ü  
Button Exportar
Sub exportar()
        Dim dset As New DataSet
        'add table to dataset
        dset.Tables.Add()
        'agregar columnas a la tabla
        For i As Integer = 0 To DataGridView1.ColumnCount - 1
            dset.Tables(0).Columns.Add(DataGridView1.Columns(i).HeaderText)
        Next
        'agregar filas a la tabla
        Dim dr1 As DataRow
        For i As Integer = 0 To DataGridView1.RowCount - 1
            dr1 = dset.Tables(0).NewRow
            For j As Integer = 0 To DataGridView1.Columns.Count - 1
                dr1(j) = DataGridView1.Rows(i).Cells(j).Value
            Next
            dset.Tables(0).Rows.Add(dr1)
        Next
        Dim excel As New Microsoft.Office.Interop.Excel.Application
        Dim wBook As Microsoft.Office.Interop.Excel.Workbook
        Dim wSheet As Microsoft.Office.Interop.Excel.Worksheet
        wBook = excel.Workbooks.Add()
        wSheet = wBook.ActiveSheet()
        wSheet.Name = "Ejemplo"
        Dim dt As System.Data.DataTable = dset.Tables(0)
        Dim dc As System.Data.DataColumn
        Dim dr As System.Data.DataRow
        Dim colIndex As Integer = 0
        Dim rowIndex As Integer = 0
        For Each dc In dt.Columns
            colIndex = colIndex + 1
            excel.Cells(1, colIndex) = dc.ColumnName
        Next
        For Each dr In dt.Rows
            rowIndex = rowIndex + 1
            colIndex = 0
            For Each dc In dt.Columns
                colIndex = colIndex + 1
                excel.Cells(rowIndex + 1, colIndex) = dr(dc.ColumnName)
            Next
        Next
        wSheet.Columns.AutoFit()
        Dim blnFileOpen As Boolean = False
        Try
        Catch ex As Exception
            blnFileOpen = False
        End Try
        excel.Visible = True
    End Sub


ü  Prueba final(Ejecucion F5)







Bueno eso seria todo..Gracias.. espero Ayudarles.. 

consulta o dudas deja tu mensaje en los comentarios..

Share: