david2266

Espero me entiendan: En la siguienta tabla describo lo que vamos a necesitar: Herramienta Clave Valor TextBox -----------------------(Name)----------------txtdestino ReadOnly------------True Button--------------------------(Name)----------------BTNAEXAMINAR Button--------------------------(Name)----------------btnrespaldar Button--------------------------(Name)----------------btnsalir he aqui el código: Imports System.Data.SqlClient Imports System.Data.Sql Imports System.Data Public Class Form1 'Aquí tu conexción del servidor Dim CN As New SqlConnection("Data Source=SERVIDORSIGEPOSQL2008R2;Initial Catalog=DISTRIBUIDORALM;Persist Security Info=True;User ID=DAVID3;Password=1234" Private Sub btnrespaldar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnrespaldar.Click Try If txtdestino.Text = "" Then MsgBox("Escoja la ubicación para guardar la copia de seguridad" CN.Close() Else Dim DESTINO As String = txtdestino.Text 'Este Query se encarga de hacer el backup en la ruta que escojiste Dim cmd As New SqlCommand("BACKUP DATABASE DISTRIBUIDORALM TO DISK = '" & DESTINO & "BACKUP.bak'", CN) CN.Open() cmd.ExecuteNonQuery() CN.Close() MsgBox("Cerrando el Sistema para completar el Backup" End End If Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical, AcceptButton) CN.Close() End Try End Sub Private Sub BTNAEXAMINAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNAEXAMINAR.Click Dim dlgDestino As New FolderBrowserDialog With dlgDestino .Description = "Seleccione el directorio de destino, trate de no escojer uno en donde se encuentre el sistema operativo:" If .ShowDialog = Windows.Forms.DialogResult.OK Then Dim strDestino As String = .SelectedPath.ToString If Not strDestino.EndsWith("" Then strDestino = strDestino & "" End If Me.txtdestino.Text = strDestino End If End With End Sub Private Sub btnsalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsalir.Click Close() End Sub End Class Es todo, alguna duda escribanme.

En muchas ocaciones nos hemos topado con este tema, en esta ocacion les traigo algo que los podria sacar de un apuro. vamos a crear un autonumerador desde vb.net 2010. al grano!! lo que necesitamos: 1---TextBox (donde vamos a generar el nuevo número, tambien siver un ComboBox o Label) 1---DataGridView1 1---Button EN EL DATAGRID DESACTIVEN ESTA FUNCIONES aquí eL código : Imports System.Data.SqlClient Public Class Form1 Dim CN As New SqlConnection("Data Source=SERVIDORsigepo Sql2008r2;Initial Catalog=DISTRIBUIDORALM;Persist Security Info=True;User ID=DAVID3;Password=1234" 'CREAMOS UN PROCEDIMIENTO MOSTRAR DONDE SE CARGARÁ LA TABLA SQL AL DATAGRID 'LA TABLA SQL DEBE TENER UN CAMPO DE TIPO "numeric(18, 0)" 'EN MI CASO LA TABLA SE LLAMA "NOTADEVENTA" EL CAMPO "numeric(18, 0)" ES NUMERO 'ES CASUAL QUE SQL DESORDENE LOS REGISTROS AL MOMENTO DE INGRESARLOS 'ES POR ESO QUE SELECCIONAMOS DATOS ORDENADOS MEDIENTE EL "ORDER BY" Y EL CAPOR A ORDENAR Sub MOSTRAR() Dim DA As New SqlDataAdapter("SELECT * FROM NOTADEVENTA ORDER BY NUMERO", CN) Dim DS As New DataSet DA.Fill(DS, "NOTADEVENTA" DataGridView1.DataSource = DS.Tables("NOTADEVENTA" End Sub 'LLAMO ESTE PROCEDIMIENTO AL CARGAR EL FORMULARIO Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load MOSTRAR() End Sub 'GENERO EL NUEVO NUMERO A CONTINUACION Sub AUTONUMERAR() MOSTRAR() Me.DataGridView1.ClearSelection() Me.DataGridView1.CurrentCell = Me.DataGridView1.Rows(Me.DataGridView1.RowCount - 1).Cells(0) Me.DataGridView1.Refresh() Me.TextBox1.Text = Convert.ToString(Me.DataGridView1.Item("NUMERO", Me.DataGridView1.CurrentCell.RowIndex).Value).ToString + 1 End Sub 'CARGA EL PROCEDIMIENTO Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click AUTONUMERAR() End Sub End Class espero me hayan entendido, cualquier duda consultenme.