Ayuda con DB ADO

[Xephiro]

Bueno mi pregunta es si hay alguna manera de ponerle instrucciones al VB como las que se le ponen en una pagina php para que se actualize alguna DB

como

UPDATE dbo.MI_DATA SET tabla = text1.text

[Hans el Topo]

Bueno mi pregunta es si hay alguna manera de ponerle instrucciones al VB como las que se le ponen en una pagina php para que se actualize alguna DB

como

UPDATE dbo.MI_DATA SET tabla = text1.text

si

http://foro.elhacker.net/index.php/topic,127987.0.html

[Xephiro]

XD me podrias decir como? ... o de que manera lo puedo usar porque en forma directa poner eso no te acepta

[Hans el Topo]

XD me podrias decir como? ... o de que manera lo puedo usar porque en forma directa poner eso no te acepta

not e acepta el k?

[Xephiro]

Cuando pongo esto

UPDATE dbo.MI_DATA SET tabla = text1.text

[Hans el Topo]

Cuando pongo esto

UPDATE dbo.MI_DATA SET tabla = text1.text

?????????????

ve al link k te envie y mirate lo que pone en el anda...

[Xephiro]

Bueno hay algo que no me resulta XD .. segun lo que vi deberia funcionarme pero no se porque no pasa nada, aunque quisas me puedan ayudar XD...

Código [Seleccionar] Expandir

Dim Cn As ADODB.Connection, Cmd As ADODB.Command, Rec As ADODB.Recordset
Dim Sql As String

Private Sub Command1_Click()
Sql = "UPDATE dbo.MITABLA SET datos = '1' where memb = 'Hacktor'"
Cn.Execute Sql
End Sub


Nose si este bien eso ...

[soplo]

¿como que no pasa nada?
¡claro que pasa!

pasa que pones datos a 1 donde memb sea 'Hacktor'

Si no pasa nada es porque no hay ningún memb='Hacktor'

o a lo mejor si pasa, pero no has actualizado el datagrid o algún otro control asociado a esos datos y por eso aunque los datos han cambiado tu sigues viendo los viejos

Suponiendo que fuera un datagrid, al final de ese código (justo seguido del cn.execute sql debería ir un

Código [Seleccionar] Expandir

datagrid.refresh

Un saludo

[Hans el Topo]

¿como que no pasa nada?
¡claro que pasa!

pasa que pones datos a 1 donde memb sea 'Hacktor'

Si no pasa nada es porque no hay ningún memb='Hacktor'

o a lo mejor si pasa, pero no has actualizado el datagrid o algún otro control asociado a esos datos y por eso aunque los datos han cambiado tu sigues viendo los viejos

Suponiendo que fuera un datagrid, al final de ese código (justo seguido del cn.execute sql debería ir un

Código [Seleccionar] Expandir

datagrid.refresh

Un saludo

dbo.tabla...... que se supone que pones?
basededatos.tabla espero...
con poner el nombre de la tabla sobra... pero mi duda es si realmente pones dbo. y el nombre...

[el_chente23]

El Codigo esta correcto, lo unico es que esta incompleto, le falta la cadena de conexion a la base de datos.

Código [Seleccionar] Expandir

Dim Cn As ADODB.Connection, Cmd As ADODB.Command, Rec As ADODB.Recordset
Dim Sql As String

Private Sub Command1_Click()
'Para sql server
cn.connectionstring="provider=SQLOLEDB;DATA SOURCE=Nom Servidor;INITIAL CATALOG=Base de datos;USER ID=usuario sql;PASSWORD=pass usuario sql;DNS=;"

'Para access
cn.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ruta y nom del archivo access"

cn.cursorlocation=adUseClient
cn.open
Sql = "UPDATE dbo.MITABLA SET datos = '1' where memb = 'Hacktor'"
set rec=Cn.Execute(sql, , adCmdText)
End Sub

Ese seria mas o menos el codigo para ejecutar esa sentencia y cualquier otra(Delete, Select, etc).

Saludos