Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: juanjoxx en 1 Agosto 2007, 22:36 pm



Título: Acceso rapido a SQl 2000
Publicado por: juanjoxx en 1 Agosto 2007, 22:36 pm
Hola a todos los del foro :  ;D
Alguien sabe cual es la mejor manera de acceder a un BD en SQL 2000, es decir q el acceso a ella sea de manera rapida ?

io probvee con esto donde BD es mi Base de Datos pe  ;D:

Set Cnn = New ADODB.Connection
Cnn.CursorLocation = adUseClient
Cnn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" & BD & ";Data Source=."
Cnn.Open
 
With CmdProducts
    .ActiveConnection = Cnn
    .CommandText = "Products" ' tabla
    .CommandType = adCmdTable
    .Prepared = True
    .Execute
End With
Set RstProducts = New ADODB.Recordset
RstProducts.CursorLocation = adUseClient
RstProducts.Open CmdProducts, , adOpenDynamic, adLockOptimistic

y nahaaaa ahora esto dependera ? de los datos q estoy jalando de mi BD o de la consulta q realizo? , la PC q tengo es una P4 2.8, 1Gb de ram (servidor) y el cliente es de P4 2.4, 512 ram aun asi quisiera saber si hay otra manera de acceder a la BD de una maera mas raipido? o mejor cambiod e lenguaje como PB9.0 (dicen q el acceso es mas rapido - sera cierto ?)

gracias a todos pro leer el msje y ayudar en la consulata  bye...


Título: Re: Acceso rapido a SQl 2000
Publicado por: CeLaYa en 2 Agosto 2007, 01:14 am

pues yo lo hago así para la base de datos:

Código:

Public BD As Connection
Public Tb As Recordset

Código:
conexion = "Provider=SQLOLEDB.1;" & _
               "Persist Security Info=False;" & _
               "User ID=" & Usuario & ";" & _
               "pwd=" & Pass & ";" & _
               "Initial Catalog=" & basededatos & ";" & _
               "Data Source=" & Servidor

    On Local Error Resume Next
    BD.Open conexion
    If Err Then MsgBox Err.Number & vbCrLf & Err.Description
    exit sub
    On Local Error GoTo 0
 

y para abrir tablas asÍ:
Código:
Set Tb = New Recordset
Tb.Open "Consulta SQL", BD, adOpenDynamic, adLockOptimistic

y lo hace rápido, aunque creo que también habria que tener encuenta la cantidad de datos de la consulta y velocidad de tus tarjetas de red