|
61
|
Programación / .NET (C#, VB.NET, ASP) / Re: Conectar a un Servidor por Internet
|
en: 8 Noviembre 2010, 18:22 pm
|
Ola esto es mi otra conexion que hago ya y quiero ver si con esta conexion funciona nota : me olvide decirle que mi gestor de base de datso era el sql Imports System.Data.OleDb Imports System.Security.Cryptography Imports System.Data.SqlClient Public Class clsConexion Public cadenaconexion As New SqlConnection Public Function Abrir(ByVal server As String, ByVal DB As String, ByVal usuario As String, ByVal clave As String) As Boolean Try cadenaconexion.ConnectionString = "Data Source=(local);Initial Catalog=PLANILLA;integrated security=true" cadenaconexion.Close() Catch ex As Exception MessageBox.Show(ex.Message.ToString()) End Try End Function Public Function AbrirSql(ByVal sentenciaSQL As String) As DataTable cadenaconexion.Open() Dim consulta As New SqlCommand(sentenciaSQL, cadenaconexion) Dim daBD As New SqlDataAdapter(consulta) Dim dtBD As New DataTable daBD.Fill(dtBD) AbrirSql = dtBD cadenaconexion.Close() End Function Public Sub Cerrarconexion() cadenaconexion.Close() End Sub End Class
|
|
|
62
|
Programación / .NET (C#, VB.NET, ASP) / Conectar a un Servidor por Internet
|
en: 8 Noviembre 2010, 16:15 pm
|
Hola a todos yo trabajo realizando aplicaciones con conexiones locales mediante el siguiente codigo. ahora quiero ver si se puede conectar por internet una aplicacion y ver si puedo seguir usando la siguiente forma de conectarse.. me estoy rompiendo la cabeza en intentar conectar mediante internet pero no tengo ni idea.. me gustaria si me pudieran dar algunas pautas o si tuvieran ejemplos seria mucho mejor. me dijeron que busque DNS pero tuve buscando pero no encuentro ejemplos claros haber si me hechan una mano. Imports System.Data.OleDb Imports System.Security.Cryptography Public Class Cls_Conexion Public Conexion As New OleDb.OleDbConnection Dim ControlError As String Public Function Abrir(ByVal Servidor As String, ByVal BaseDatos As String, ByVal Usuario As String, ByVal Password As String) As Boolean Try Conexion.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= c:\trabajito; Extended Properties= ""Excel 12.0;HDR=YES;""") Conexion.Close() Conexion.Open() Conexion.Close() Abrir = True Catch ex As Exception Abrir = False MsgBox("Acceso no Permitido", vbCritical, "Módulo de Registro Civil") End Try End Function Public Function AbrirSql(ByVal Sql As String) As DataTable On Error GoTo ControlError Dim ObjDataSet As New DataSet Conexion.Open() Dim ConsultaSql As New OleDb.OleDbCommand(Sql, Conexion) 'ConsultaSql.CommandType = CommandType.StoredProcedure Dim ObjDataAdapter As New OleDb.OleDbDataAdapter(ConsultaSql) Dim ObjDataTable As New DataTable ObjDataAdapter.Fill(ObjDataTable) AbrirSql = ObjDataTable Conexion.Close() Exit Function ControlError: MsgBox(Err. Description & " No se Puede Realizar esa Operación", MsgBoxStyle. Critical, "Módulo Registro Civil") Conexion.Close() End Function Public Function EjecutarSqlOLEDB(ByVal cComando As OleDbCommand) As Boolean Dim transaction As OleDbTransaction Conexion.Open() transaction = Conexion.BeginTransaction() Try cComando.Transaction = transaction cComando.Connection = Conexion cComando.ExecuteNonQuery() transaction.Commit() Conexion.Close() EjecutarSqlOLEDB = True Catch ex As Exception transaction.Rollback() Conexion.Close() EjecutarSqlOLEDB = False MsgBox(Err. Description & " No se Puede Realizar esa Operación", MsgBoxStyle. Critical, "Módulo Registro Civil") 'MessageBox.Show("No se puede realizar la conexion a la Base de Datos... Contáctese con el Administrador del Sistema", "SIGAF - ESCALAFON", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Function End Class
|
|
|
63
|
Programación / .NET (C#, VB.NET, ASP) / Re: Error con mi codigo
|
en: 5 Noviembre 2010, 02:10 am
|
gracias [D4N93R] pero lo que sucede es que el archivo si existe pero cuando el algoritmo esta en plena busqueda sin antes encontrar el archivo me bota el error "Acceso denegado a la ruta de acceso 'G:\System Volume Information\'." como podria evitar dicho error gracias de antemano el error aparece en este lugar del codigo: For Each b As String In My.Computer.FileSystem.GetFiles("G:\", FileIO.SearchOption.SearchAllSubDirectories, a)
|
|
|
64
|
Programación / .NET (C#, VB.NET, ASP) / Error con mi codigo
|
en: 5 Noviembre 2010, 01:12 am
|
Como hago para obiar el error "Acceso denegado a la ruta de acceso 'G:\System Volume Information\'.", si deseo buscar un archivo que se encuentra en la unidad "G:\" Try If rdbuscar.Checked = True Then a = InputBox("Escriba el nombre del archivo a buscar", "Ingrese Datos") My.Forms.buscando.Show() For Each b As String In My.Computer.FileSystem.GetFiles("G:\", FileIO.SearchOption.SearchAllSubDirectories, a) TextBox1.Text = b acu = b If rdbfilestream.Checked = True Then filestren() My.Forms.buscando.Close() Exit For End If If rdbstreamreader.Checked = True Then streanreader() My.Forms.buscando.Close() Exit For End If Next End If If rdlistar.Checked = True Then opc.ShowDialog() TextBox1.Text = opc.FileName acu = opc.FileName If rdbfilestream.Checked = True Then filestren() End If If rdbstreamreader.Checked = True Then streanreader() End If End If Catch ex As Exception End Try
|
|
|
65
|
Foros Generales / Foro Libre / el Programador = k una P..(parodia)
|
en: 12 Octubre 2010, 01:58 am
|
Como las putas
- Generalmente trabajas hasta tarde. ¡Como las putas! - Generalmente eres más productivo por la noche. ¡Como las putas! - Te pagan para mantener al cliente feliz. ¡Como las putas! - Cobras por hora pero tu tiempo se extiende hasta que termines. ¡Como las putas! - Si eres bueno, nunca estás orgulloso de lo que haces. ¡Como las putas! - Te recompensan por satisfacer las fantasías de tus clientes. ¡Como las putas! - Es difícil tener y mantener una familia. ¡Como las putas! - Cuando te preguntan en qué trabajas no lo puedes explicar. ¡Como las putas! - Tus amigos se distancian de ti y tú solo andas con otros iguales que tú. ¡Como las putas! - El cliente paga tu cuenta del hotel y por horas trabajadas. ¡Como las putas! - Evalúan tu “capacidad” con horribles pruebas. ¡Como las putas! - El cliente siempre quiere pagar menos y encima quiere que hagas maravillas. ¡Como las putas! - Cada día al levantarte dices “¡NO VOY A HACER ESTO TODA MI VIDA!”. ¡Como las putas! - Sin conocer nada de su problema los clientes esperan que les des el consejo que necesitan. ¡Como las putas! - Si las cosas salen mal es siempre culpa tuya. ¡Como las putas! - Tienes que brindarle servicios gratis a tu jefe, a tus amigos y familiares. ¡Como las putas!
La única diferencia es que como p**a ganaría mucho más (no se dejen engañar por las apariencias, con ropa pierdo mucho).
|
|
|
67
|
Programación / .NET (C#, VB.NET, ASP) / consulta base de datos
|
en: 9 Mayo 2010, 05:56 am
|
hola amigos taba resolviendo unas consultas y no entiendo una masomenos me que aca mirenlo:
Select I.nombre from Investigador I,Asignacion A,Proyecto P where A.tipo_participacion <> 'principal' and I.departamento = 'tumbes' and
La Consulta es lo Siguiente: 19.-Obtener el nombre de los investigadores que viven en tumbes y que no sean investigadores principales de proyectos en los cuales participen investigadores de cusco.
PROGRAMA(cod_programa,nombre,entidad_financiera) INVESTIGADOR(dni_investigador,nombre,departamento,telefono) PROYECTO(cod_proyecto,cod_programa,nombre,fecha_inicio,fecha_fin,presupuesto) ASIGNACION(dni_investigador,cod_proyecto,fechainicio,fecha_fin,tipo_participacion)
y haber si me dan una mano con la siguiente consulta: 11.-Obtener el nombre de los investigadores que nunca han participado en proyecto que pertenezcan al programa de codigo "AGUA".
yo esta haciendo asi
Select I.nombre from investigador I where I.Dni_investigador <> (Select A.Dni_investigador from Asignacion A where A.Cod_proyecto = (Select P.cod_proyecto from proyecto p where P.cod_Programa="AGUA"))
|
|
|
68
|
Programación / .NET (C#, VB.NET, ASP) / restaurar base de datos
|
en: 1 Mayo 2010, 06:35 am
|
hola ah todos miren taba restaurando mi base de datos desde mi aplicacion VB2005 y me genera un Error que no puedo Solucionarlo el Error es: No se pudo obtener acceso exlusivo porque la base de datos esta en uso Fin anomalo de RESTORE DATABASE
mostrare una parte de mi aplicacion lo que toy haciendo lo que si no tengo problema es al guardar el backu pero para restaurar ahi ta el chongo :
mi clase clsconexion
Imports System.Data.SqlClient Public Class clsConexion Public cadenaconexion As New SqlConnection Public Function conectar(ByVal server As String, ByVal DB As String, ByVal usuario As String, ByVal clave As String) As Boolean Try cadenaconexion.ConnectionString = "Data Source=.;Initial Catalog=BDBIBLIOTECA;Integrated Security=True" cadenaconexion.Close() Catch ex As Exception MessageBox.Show(ex.Message.ToString()) cadenaconexion.Close() End Try End Function Public Function consultaBD(ByVal sentenciaSQL As String) As DataTable cadenaconexion.Open() Dim consulta As New SqlCommand(sentenciaSQL, cadenaconexion) Dim daBD As New SqlDataAdapter(consulta) Dim dtBD As New DataTable daBD.Fill(dtBD) consultaBD = dtBD cadenaconexion.Close() End Function End Class
'el Programa
Private Sub FrmPrincipal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load enlace.conectar("", "", "", "") End Sub
Private Sub RESTAURARToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RESTAURARToolStripMenuItem.Click Dim cadena As String If (sfdrestaurar.ShowDialog() = Windows.Forms.DialogResult.OK) Then cadena = sfdrestaurar.FileName If restaurar_basededatos(cadena) = True Then MessageBox.Show("Base de Datos Restaurada", "Mensaje", MessageBoxButtons.OK) End If
End If End Sub Private Function restaurar_basededatos(ByVal cadena As String) As Boolean Dim sBackup As String = "RESTORE DATABASE BDBIBLIOTECA FROM DISK = '" & cadena & "'" & " WITH REPLACE" Dim conecsb As New SqlConnectionStringBuilder conecsb.DataSource = "(local)" conecsb.InitialCatalog = "master" conecsb.IntegratedSecurity = True Using con As New SqlConnection(conecsb.ConnectionString) Try con.Open() Dim cmdRestore As New SqlCommand(sBackup, con) cmdRestore.ExecuteNonQuery() restaurar_basededatos = True Catch ex As Exception restaurar_basededatos = False MessageBox.Show(ex.Message) Finally con.Close() End Try End Using End Function
Private Sub GUARDARToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GUARDARToolStripMenuItem.Click Dim cadena As String If (sfdguardar.ShowDialog() = Windows.Forms.DialogResult.OK) Then cadena = sfdguardar.FileName enlace.consultaBD("backup database BDBIBLIOTECA to disk = N'" + cadena + "'") MessageBox.Show("Base de Datos Guardada", "Mensaje", MessageBoxButtons.OK) End If End Sub
|
|
|
69
|
Programación / .NET (C#, VB.NET, ASP) / Re: expresiones Regulares
|
en: 1 Mayo 2010, 05:05 am
|
bueno tu lo que estas haciendo tas representando en un lenguaje de programacion esas expresiones regulares que puse no estan representando en ningun Lp estoy haciendo es teoricamente.El Libro que yo estoy Trabajando es del Dragon Rojo y son Ejemplos qu eeh visto ahi y ese ejercicio que puse no es tarea solo es curiosidad que toy tratando de resolver de ese libro.
|
|
|
70
|
Programación / .NET (C#, VB.NET, ASP) / expresiones Regulares
|
en: 30 Abril 2010, 21:08 pm
|
- Numeros Enteros:DD* Ekivalencia D+ - Numeros Enteros con Signo : ($|+|-)D+ - Numeros Decimales : D+.D+ - Comentarios de Linea C# : //(L|D|S)*
Ahora yo taba intentado hacer -Cadenas del alfabeto {x,y,z} donde no aparecen dos x ni dos z consecutivas
|
|
|
|
|
|
|