• Sábado 9 de Noviembre de 2024, 02:20

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - .: Raul :.

Páginas: [1]
1
VB .NET / Re: Como Ejecutar Una Consulta Sql Desde Vb.net
« en: Jueves 30 de Agosto de 2007, 10:30 »
¿Que gestor de base de datos utilizas? Access, MySQL, SQL Server,....

2
VB .NET / Re: Maquesina En Un Texbox
« en: Martes 14 de Noviembre de 2006, 13:45 »
Hola,

PadLeft y PadRight alinea y rellena un string hasta una longitud q tu le pasas con el caracter q tu le pasas, ejemplo:

TextEjemplo.Text = "111"
TextEjemplo.Text = TextEjemplo.Text.PadLeft(6, "0")

el resultado seria "000111", alineado a la derecha y rellanado por la izquierda

TextEjemplo.Text = TextEjemplo.Text.PadRight(6, "0")

el resultado seria "111000", alineado a la izquierda y rellenado por la derecha

3
VB .NET / Re: Busquedas De Registros En Visual Basic .net
« en: Martes 14 de Noviembre de 2006, 13:34 »
Hola,

Puedes probar a pasarle al SelectCommand la consulta SQL ya echa, tipo:

SqlDataAdapter1.SelectCommand.CommandText = "SELECT * FROM tabla WHERE ...."
Busqueda1.Clear()
SqlDataAdapter1.Fill(Busqueda1)


Si necesitas construir una fecha con los txt, puedes hacer:

Dim Fecha as String()
Fecha = Trim(textdia.Text) & "/" & Trim(textmes.Text) & "/" & Trim(textaño.Text)

con lo q completarias la consulta asi:
"SELECT * FROM tabla WHERE FECHA = '" & Fecha & "'"

Espero q te sirva, ya diras como te va.

4
VB .NET / Re: Operaciones De Registros En Vb2005
« en: Martes 14 de Noviembre de 2006, 13:21 »
Hola, voy a tratar de ayudarte aunq yo uso vb.net con SQL Server. Creo q puedes probar este codigo q es el q tu has puesto pero modificado:
Código: Text
  1.  
  2.            'Conectando con BD Access:
  3.            Dim RutaBD As String
  4.            RutaBD = My.Application.Info.DirectoryPath & "\BDAccess.mdb"
  5.  
  6. ConexionBD = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & RutaBD)
  7.  
  8.            Dim strSQL As String
  9.            strSQL = "SELECT * FROM TB_AGENDA ORDER BY TxtApellido"
  10.            Dim dtp As New OleDbDataAdapter(strSQL, ConexionBD)
  11.            Dim ds As DataSet = New DataSet
  12.  
  13.            ConexionBD.Open()
  14.            dtp.Fill(ds, "TB_AGENDA")
  15.            ConexionBD.Close()
  16.  
  17.            Dim Fila As DataRow = ds.Tables("TB_AGENDA").NewRow
  18.  
  19.            Fila("TxtNombre") = TxtNombre.Text
  20.            Fila("TxtApellido") = TxtApellido.Text
  21.            Fila("AutoCedula") = TxtCedula.Text
  22.            Fila("TxtTelefCel") = TxtTelefCel.Text
  23.            Fila("TxtTelefTrab") = TxtTelefTrab.Text
  24.            Fila("TxtTelefHab") = TxtTelefHab.Text
  25.            Fila("TxtEmail") = TxtEmail.Text
  26.            Fila("TxtCumpleaños") = DateTimePicker1.Value
  27.            Fila("TxtDireccion") = TxtDireccion.Text
  28.            Fila("TxtComentarios") = TxtComentarios.Text
  29.            ds.Tables("TB_AGENDA").Rows.Add(Fila)
  30.            Dim cb As New OleDbCommandBuilder(dtp)
  31.            'ds.Tables("TB_AGENDA").AcceptChanges()
  32.            ConexionBD.Open()
  33.            dtp.Update(ds, "TB_AGENDA")
  34.            ConexionBD.Close()
  35.  
  36.  

Creo q es necesario abrir la conexion para para el Fill como para el Update, aparte, te recomiendo q no llames a las tablas ni a los campos de estas por el numero (ds.Tables(0)), siempre con el nombre (ds.Tables("TB_AGENDA")) pq asi siempre estas seguro de q estas actuando sobre la tabla q quieres.

Espero q te sirva, ya diras como te va.

P.D. SQL Server se puede instalar en XP, aqui puedes descargar SQL Server 2005 Express q es gratis

5
VB .NET / Re: Como Conectarse A Una Base De Datos
« en: Martes 24 de Octubre de 2006, 17:39 »
Hola, creo q lo q buscas es esto:
Código: Text
  1.  
  2. Dim Conexion As SqlClient.SqlConnection
  3. Conexion.ConnectionString = "data source=NombreDelServidorOIP;initial catalog= NombreDeLaBaseDeDatos;password=Contraseña;persist security info=True;user id=NombreDeUsuario;packet size=4096"
  4.  
  5.  

Con esto ya tienes el objeto Conexion listo para usarse en tus consultas. Espero q te sirva.

6
Visual Basic 6.0 e inferiores / Re: Procedimientos Almacenados
« en: Martes 24 de Octubre de 2006, 16:34 »
Hola, este es mi primer mensaje y espero q sea de ayuda  :)

Asi es como utilizo yo Procedimientos Almacenados en SQL Server 2000 (7) desde vb.net:

Código: Text
  1. Public Function CargarTablaCamposCondicionOrden(ByVal Tabla As String, ByVal Campos As String, ByVal Condicion As String, ByVal Orden As String, ByVal Da As SqlClient.SqlDataAdapter, ByVal Ds As DataSet)
  2.         Dim oCommand As SqlClient.SqlCommand = New SqlClient.SqlCommand()
  3.         oCommand.CommandText = "[PA_DevolverTablaCamposCondicionOrden]"
  4.         oCommand.Connection = Conexion
  5.         oCommand.CommandTimeout = 0
  6.         oCommand.CommandType = CommandType.StoredProcedure
  7.         oCommand.Parameters.Add("@Tabla", SqlDbType.Char, 50).Value = Trim(Tabla)
  8.         oCommand.Parameters.Add("@Campos", SqlDbType.Char, 300).Value = Trim(Campos)
  9.         oCommand.Parameters.Add("@Condicion", SqlDbType.Char, 200).Value = Trim(Condicion)
  10.         oCommand.Parameters.Add("@Orden", SqlDbType.Char, 100).Value = Trim(Orden)
  11.         Da = New SqlClient.SqlDataAdapter(oCommand)
  12.         Conexion.Open()
  13.         Da.Fill(Ds, Tabla)
  14.         Conexion.Close()
  15. End Function
  16.  

El objeto Conexion es un SqlClient.SqlConnection, pasandole como ConnectionString la ip y el puerto del servidor, nombre de usuario, contraseña, etc.

Este es el Procedimiento Almacenado:
Código: Text
  1. set ANSI_NULLS ON
  2. set QUOTED_IDENTIFIER ON
  3. go
  4.  
  5. ALTER PROCEDURE [dbo].[PA_DevolverTablaCamposCondicionOrden]
  6. @Tabla char(50),
  7. @Campos char (300),
  8. @Condicion char (200),
  9. @Orden char (100)
  10. AS
  11. EXEC('SELECT '+@Campos+' FROM '+@Tabla+' WHERE '+@Condicion+' ORDER BY '+@Orden)
  12.  

Ya diras como te ha ido, un saludo.

Páginas: [1]