border
VB 6
 
 
/

Retroceder   VB-MUNDO - Visual Basic, y mucho mas > Programacion > Visual Basic 6.00
Olvidó Password? Registrarse!
Registrarse FAQDonate Miembros Calendario Buscar Temas de Hoy Marcar Foros Como Leídos

El Mejor Hosting .NET Framework 4.0

En VB-MUNDO usamos el increible servicio de SmarterASP

Respuesta
 
LinkBack Herramientas
  #1 (permalink)  
Antiguo 25-06-2007, 18:00:17
Nuevo Amigo
 
Registrado: jun 2007
Ubicación: Cap. Federal (Flores) Bs. As.
Posts: 25
Créditos: 1.821
clark Valoración +2
Predeterminado ALTAS, BAJAS, MODIFICACIONES Y CONSULTAS (FUNCIONES)

HOLA A TODOS SEGURO QUE LES VA A SERVIR YO SIEMPRE TRATO DE ESCRIBIR LO MENOS POSIBLE DE CODIGO Y SI PUEDO METER TODO EN UNA FUNCTION LO HAGO. LES EXPLICO COMO FUNCIONA: ESTE CODIGO UTILIZA TECNOLOGIA ADO O SEA "Microsoft Activex Data Object 2.0" Y ARRAYS DE CONTROLES(COMO LES DICEN USTEDES) EN ESTE CASO SON TEXTBOX.

'ESTA FUNCTION ES BOOLEANA PORQUE SI ES TRUE QUIERE DECIR QUE EL CODIGO EXISTE Y EL USUARIO DECIDE MODIFICAR LOS DATOS DE UN CODIGO EN PARTICULAR. LOS PARAMETROS SON CLAROS

strSentenciaSQL=Consulta SQL
Repetidos=ejemplo txtCodigo
Tabla =La tabla que se encuentra en mi Base de datos ejemplo 'Clientes'
Texto= TextBox arrays

Function Guardar(strSentenciaSQL As String, Repetidos As String, Tabla As String, Texto As Object) As Boolean
Dim RS As ADODB.Recordset
Dim RS1 As ADODB.Recordset
Dim SQL As String
Dim SQLR As String
Dim i As Integer
On Error Resume Next

If Conectar = False Then Exit Function

Set RS1 = New ADODB.Recordset

SQLR = strSentenciaSQL & Repetidos
Set RS1 = CnConex.Execute(SQLR)

If Not RS1.EOF Then
Set RS1 = Nothing
Guardar = True
Exit Function
End If

Set RS = New ADODB.Recordset

RS.Open (Tabla), CnConex, adOpenKeyset, adLockOptimistic

RS.AddNew
For i = 0 To RS.Fields.Count - 1
IIf(IsNull(Texto(i)), "", RS.Fields(i)) = Texto(i)
Next
RS.Update

Guardar = False
RS.Close
Set RS = Nothing
Set RS1 = Nothing
Desconectar

End Function

'LOS PARAMETROS SON LOS SIGUIENTES

BD = Sentencia SQL
Busqueda = el Indice a Buscar
Texto = TextBox arrays

Function Buscar(BD As String, Busqueda, Texto As Object) As Boolean
Dim RS As ADODB.Recordset
Dim SQL As String
Dim i As Integer
On Error Resume Next

If Conectar = False Then Exit Function

Set RS = New ADODB.Recordset

SQL = BD & Busqueda
Set RS = CnConex.Execute(SQL)

If RS.EOF Then
Buscar = False
Exit Function
End If
'Texto(0) = ""
Do While Not RS.EOF
For i = 0 To RS.Fields.Count - 1
Texto(i) = IIf(IsNull(RS.Fields(i)), "", RS.Fields(i))
Next
RS.MoveNext
Loop
Buscar = True
Set RS = Nothing
Desconectar

End Function

'PARAMETROS

BD=Sentencia SQL
Modifica=El codigo a modificar
Texto = TextBox arrays

Function Modificar(BD As String, Modifica As Integer, Texto As Object)
Dim RS As ADODB.Recordset
Dim SQL As String
Dim i As Integer
On Error Resume Next

If Conectar = False Then Exit Function

Set RS = New ADODB.Recordset

SQL = BD & Modifica
RS.Open (SQL), CnConex, adOpenKeyset, adLockOptimistic

For i = 1 To RS.Fields.Count
RS.Fields(i) = UCase(Texto(i))
RS.Update
Next

Set RS = Nothing
Desconectar

End Function
'PARAMETROS

BD = Sentencia SQL
Eliminar = Indice a Eliminar

Function Borrar(BD As String, Eliminar As String)
Dim RS As ADODB.Recordset
Dim SQL As String
Dim i As Integer
On Error Resume Next

If Conectar = False Then Exit Function

Set RS = New ADODB.Recordset

SQL = BD & Eliminar
Set RS = CnConex.Execute(SQL)

Set RS = Nothing

End Function

ESTO LO PONGO EN UN MODULO Y LO LLAMO CUANDO QUIERA ESTE FUNCIONA EN CONJUNTO CON LA FUNCTION CONECTAR

Option Explicit
Public CnConex As ADODB.Connection

'si da falso quiere decir que no se conecto a la Base de Datos
Function Conectar() As Boolean
Dim strRuta As String

Set CnConex = New ADODB.Connection

strRuta = "provider=microsoft.jet.oledb.4.0; " & _
"data source=" & App.Path & "\Base_de_Datos.mdb"

'el unico error es si no existe la base de datos
On Error GoTo err

CnConex.Open strRuta
Conectar = True

Exit Function
err:
MsgBox "Existe un Problema con la Ruta de la base de datos", vbCritical
Conectar = False

End Function

'elimino la variables para ahorrar memoria
Function Desconectar()
CnConex.Close
Set CnConex = Nothing
End Function
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #2 (permalink)  
Antiguo 25-06-2007, 22:59:13
Nuevo Amigo
 
Registrado: may 2007
Ubicación: Resistencia
Posts: 25
Créditos: 484
caroso77 Valoración +2
Predeterminado

Muchas gracias Clark por tu compartir...voy a probarlo y despues te cuento...saludos
__________________
CAROSO77
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #3 (permalink)  
Antiguo 23-07-2007, 17:34:44
Nuevo Amigo
 
Registrado: jul 2007
Posts: 2
Créditos: 97
Kerverusxp Valoración +2
Predeterminado

:smt024 :smt024 Gracias por la info, de gran ayuda!
__________________
http://www.union-games.org (Busco socios o Mods)
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #4 (permalink)  
Antiguo 23-07-2007, 19:49:36
Avatar de J_M_Movilla
Administrador
 
Registrado: dic 2002
Ubicación: BURGOS - ESPAÑA
Posts: 9.429
Créditos: 79.078
J_M_Movilla ha deshabilitado la reputación
Predeterminado

Amigo clark: Éste es un ejemplo de lo que debe ser un foro: Compartir conocimientos incluso ANTES de que se nos soliciten. Muchas gracias.
__________________
José María Movilla Cuadrado
______________________
Normas del foro
www.foro.vb-mundo.com
www.vb-mundo.com
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #5 (permalink)  
Antiguo 24-07-2007, 16:09:05
Nuevo Amigo
 
Registrado: jun 2007
Ubicación: Cap. Federal (Flores) Bs. As.
Posts: 25
Créditos: 1.821
clark Valoración +2
Predeterminado

GRACIAS POR EL APOYO A MIS CONOCIMIENTOS SALUDOS DESDE ARGENTINA
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #6 (permalink)  
Antiguo 05-11-2011, 05:27:09
Nuevo Amigo
 
Registrado: jul 2011
Ubicación: Belarus
Posts: 1
Créditos: 525
stivenDobm Aun no valorado
Contactar con stivenDobm a través de ICQ
Predeterminado cholesterol medications and erectile dysfunction diet and impotence

Suministros y Mantenimientos Industriales de Venezuela, SMIV experience tramadol er vs tramadol ir tramadol erectile dysfunction tramadol euphoria tramadol europe tramadol except informationProstate trouble, erectile dysfunction, infertility, cancer, sexually transmitted diseases, vasectomies, and artificial Prostate trouble, erectile dysfunction, infertility, cancer, sexually transmitted diseases, vasectomies, and artificial
Marinas in Eastern Jutland. Marina. Position. Adressdebts and satisfied themselves that all known bad debts had been written off and that adequate allowance had been made for the amount written off for bad debts or the amount of the provision for doubtful debts inadequate to any substantial extent; and
View topic - 228 ciprofloxacin erection problems - discuss, debate, vote, and view this candidate's online poll results for the 2008 election.Pills, Men Sexual Enhancers Health & Beauty Supplies in online shops. Shop for less, find and compare Health & Beauty Supplies online with Shopzilla.co.uk This medicine is also used to treat erection problems in men.
techniques to maintain a stronger erection
home remidy for erection
l'arginine for erection

The best for men
Generic Cialis (Tadalafil) description and guide how to choose and buy
Generic Cialis (Tadalafil) description and guide the best way to pick out and buy
Generic Cialis (Tadalafil) description and guide the best way to opt for and buy
Very powerful pills
Generic Cialis (Tadalafil) description and guide the way to select and buy

viagra reports jokes birth viagra card com viagra purchasing viagra in canada
why does impotence occur
impotence and the prostate gland
physical psychological impotence determination
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
Respuesta


Herramientas

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado


Temas Similares
Tema Autor Foro Respuestas Último Mensaje
Funciones SysEdw Visual Basic .NET 0 31-08-2007 00:34:27
altas, bajas y consultas kobeson C# .NET / C / C++ 0 04-06-2006 21:04:45
Funciones de usuario Eva VBA (Excel, Word, Outlook, Access) 0 09-05-2005 11:58:44
auditar modificaciones ediazreyes Visual Basic 6.00 4 18-04-2005 12:40:28
funciones amatxo Visual Basic .NET 1 17-09-2004 00:00:00


La franja horaria es GMT. Ahora son las 23:26:46.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
vBCredits v1.4 Copyright ©2007 - 2008, PixelFX Studios


right
Inactive Reminders By Icora Web Design