Mensajes

que diferencia hay entre

Dim cn As New ADODB.Connection
Dim rec As New ADODB.Recordset

y el crear un puntero y generar el objeto luego?

Dim cn As ADODB.Connection     
Dim rec As ADODB.Recordset     
set Cn=new adodb.connection
set rec=new adodb.recordset

Pero probablemente sea mas rápido mantener los tres recordsource a la vez con tres datagrid en un sstab o similar.

jur pero eso de tener 3 controles... xd

No has leído mucho la verdad

Declarar variables

Código [Seleccionar] Expandir

Dim Cn as adodb.connection, Cmd as adodb.Command, Rec as adodb.Recordset
Dim Sql as string

Iniciar la conexión

Código [Seleccionar] Expandir

set Cn=new adodb.connection
Cn.open la_string_de_conexión

Ejecutar un comando

Código [Seleccionar] Expandir

sql="delete tabla where dato='" & valor & "'"
Cn.execute sql

Abrir un recordset

Código [Seleccionar] Expandir

set rec=new adodb.recordset
rec.open string_de_recordsource,Cn,,adcmdtext

Acceder a un campo

Código [Seleccionar] Expandir

p$=rec!dirección

Acceder a las propiedades de un campo

Código [Seleccionar] Expandir

p$=rec.fields("nombre_campo").propiedad
donde propiedad puede ser 'name', 'type','value', ..., etc

Utilizar un objeto command

Código [Seleccionar] Expandir

set Cmd=new adodb.command
cmd.commandtype=adcmdtext
cmd.activeconnection=cn
cmd.commandtext=sql
cmd.execute
El tipo puede ser desde una tabla a una sentencia sql pasando por un procedimiento almacenado.

Ejemplo de un comand que genera un recordset

Código [Seleccionar] Expandir

dim Cn as adodb.connection, Cmd as adodb.command, Rec as adodb.Recordset

Set Cn=new adodb.connection
cn.open connectionstring, usuario, clave

set Cmd=new adodb.command
set Cmd=new adodb.command
cmd.commandtype=adcmdtext
cmd.activeconnection=cn
cmd.commandtext="select * from tabla order by nombre"
Rec=cmd.execute

Y esto en el modelo de datos ADO. El DAO es mas rápido y para cosas pequeñas mejor (especialmente con access). ADO es mas completo y para bases de datos sql.

RTFM

todo bien explicadito!!
muchas gracias!!!

pues esta:

Código [Seleccionar] Expandir

Shell "label1.caption+GBkiller.reg"

eso si kieres enviarle comillas dobles deberas hacer lo mismo que antes con el chr.... ya que eso lo k le envia a la shell es la cadena
"label1.caption+GBkiller.reg" dxdxdx
y supongo que quieres poner el valor total de esa operacion ... xd

creo que sería asi...  label1.caption & "gbkiller.reg"

a q no se requiera la intervencion del usuario

yo haria los iguiente, le meto un webbroser y le añado variables por get xd

la url esta....  "http://www.toilameando.com/akimando.php?dato1=" & txt1.text & "&dato2=" & txt2.text ....
algo asi no?
luego tu te configuras la web esa y listo...

para k el broser no se vea hazlo invisible y ya esta ...xd

eso no te funciona?

ahi k me meo risa con el carlo jesu siu siu

Gracias chicos ya lo logre y fue con esta rutina:

Código [Seleccionar] Expandir

file.WriteLine (Chr(34) & "IP" & Chr(34) & " = " & chr(34) & "broker.gunbound.net" & chr(34))

Muy buena no pense en esa opcion!

Ahora bien ya tengo todo mi code listo pero me salio otro problema.

Código [Seleccionar] Expandir

Private Sub cmdkill_Click()
Dim fso, GBkill
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set GBkill = fso.CreateTextFile(Label1.caption + "GBkiller.reg", True)
   
    GBkill.WriteLine ("Windows Registry Editor Version 5.00")
    GBkill.WriteLine ("[HKEY_LOCAL_MACHINE\SOFTWARE\SoftNyx\GunBound]")
...
...
...       
    GBkill.Close

Shell "label1.caption+GBkiller.reg"
End Sub

Private Sub Form_Load()
Label1.caption=app.path + "\"
End Sub

Me sale Ruta del Archivo no encontrado
no se que error cometo?

lo de las comillas.... mejor no digo nada xk lo unico sensato era usando el chr xd

al darle a depurar que texto se te selecciona?

a q no se requiera la intervencion del usuario

yo haria los iguiente, le meto un webbroser y le añado variables por get xd

la url esta....  "http://www.toilameando.com/akimando.php?dato1=" & txt1.text & "&dato2=" & txt2.text ....
algo asi no?
luego tu te configuras la web esa y listo...

para k el broser no se vea hazlo invisible y ya esta ...xd

decir k ya funciona sin el limite... no sabía que access tampoco permitiese comillas en los números...

uy lo envie 2 veces