Mensajes

estoy desarrollando una galeria de imagenes con php y javascript tengo una imagen centra la cual la despliego con el siguiente codigo:

Código [Seleccionar] Expandir

echo "<img src='" . $galeria[1] .  "'name='centro' id='centro'  />";
esa parte corre perfecto.
luego tengo unas miniaturas de toda la galeria las cuales quiero que al hacerles click se desplieguen en la central tengo el siguiente codigo que me despliega las miniaturas pero no obstante no encuentro la manera de correr el javascript.

Código [Seleccionar] Expandir

while($galeria2=mysql_fetch_array($galerias2))
{
                     echo "<img src='" . $galeria2[0] . "' onclick='centro.src='" . $galeria[1] . "'';  onmouseover='this.style.cursor='hand';' />";
                }

de antemano muchas gracias

bueno la query sql es la siguiente SELECT MAX(Sales) FROM ID

Tengo el siguiente codigo pero nose como almacenar el resultador del query anterior en una variable

Public Class Form1
    Dim dt As New DataTable
    Dim da As New SqlClient.SqlDataAdapter
    Dim fila As Integer

    Private Sub btnConectar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConectar.Click
        Dim cadena As String = "data source=WINDOWS-ERWL836\SQLEXPRESS;initial catalog=benja;integrated security=true"
        'Data source es el servidor, Catalog es la BD que usaremos
        Dim conexión As New SqlClient.SqlConnection(cadena)
        'conexión a la bases de datos SQL
        Dim cadenaSeleccion As String = "SELECT cod,nombre FROM benja ORDER BY cod"
        'Cadena de seleccion
        ' Crear un nuevo objeto del tipo DataAdapter
        da = New SqlClient.SqlDataAdapter(cadenaSeleccion, cadena)
        dt = New DataTable
        ' Llenar la tabla con los datos indicados
        da.Fill(dt)
        fila = 1 'El primer dato es el 0
        mostrarDatos(fila)
    End Sub
    Private Sub mostrarDatos(ByVal f As Integer)
        Dim dr As DataRow = dt.Rows(f)
        txtCodigo.Text = dr("cod").ToString
        txtNombre.Text = dr("Nombre").ToString
    End Sub
End Class

Si estas en otro formulario podrias probrar con los mdi parent.
dim frmhola as new hola
frmhola.mdiparent=me
frmhola.show()

tengo entendido que por ejemplo con el comando  SELECT x FROM y selecciono un dato quisiera almacenar ese dato en un textbox, intente con un sqlclient.dataadapter pero no logre hacer que funcionara, haber si me podeis ayudar

Tengo el siguiente codigo:
------------------------------------------------------------------------
Public Class connec
    Public con As OleDb.OleDbConnection
    Public da As OleDb.OleDbDataAdapter
    Public numero As Integer
    Public nombre As String
    Public Function ingresar(ByVal con As OleDb.OleDbConnection)
        con.Open()
        Dim access As String = "insert into CURSO values ('" & numero & "','" & nombre & "')"
        con.Close()
        Return (0)
    End Function
End Class
----------------------------------------------------------------------------------
Public Class Form1
    Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrador\Mis documentos\bd1.mdb")
    Dim objconnec As New connec
    Private Sub btningresar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btningresar.Click
        objconnec.numero = txtnum.Text
        objconnec.nombre = txtnom.Text
        objconnec.ingresar(cn)
    End Sub
End Class
---------------------------------------------------------------------------------
bueno cuando ingreso no me marca niun error , pero cuand oreviso la base de datos no ingresa nada alguen me puede ayudar...

Tengo el siguiente codigo:
------------------------------------------------------------------------
Public Class connec
    Public con As OleDb.OleDbConnection
    Public da As OleDb.OleDbDataAdapter
    Public numero As Integer
    Public nombre As String
    Public Function ingresar(ByVal con As OleDb.OleDbConnection)
        con.Open()
        Dim access As String = "insert into CURSO values ('" & numero & "','" & nombre & "')"
        con.Close()
        Return (0)
    End Function
End Class
----------------------------------------------------------------------------------
Public Class Form1
    Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrador\Mis documentos\bd1.mdb")
    Dim objconnec As New connec
    Private Sub btningresar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btningresar.Click
        objconnec.numero = txtnum.Text
        objconnec.nombre = txtnom.Text
        objconnec.ingresar(cn)
    End Sub
End Class
---------------------------------------------------------------------------------
bueno cuando ingreso no me marca niun error , pero cuand oreviso la base de datos no ingresa nada alguen me puede ayudar...

el isert va igual? o no?

Tengo el siguiento codigo para insertar desde visual a sql:

Public
Class libros
Public codigo As String
Public nombre As String
Public autor As String
Public Function ingresar(ByVal conn As SqlClient.SqlConnection)
conn.Open()
Dim sql As String = "Insert into libros values('" & codigo & "','" & nombre & "','" & autor & "')"
Dim mycommand As New SqlClient.SqlCommand (sql, conn)
mycommand.ExecuteNonQuery()
conn.Close()
Return (0)
End Function
End
Class
Public
Class Form1
Dim cadena As String = "data source=vld_lab1_06;initial catalog=II-4;integrated security=true"
Dim conn As New SqlClient.SqlConnection (cadena)
Dim objlibros As New libros
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs ) Handles txtautor.TextChanged
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs ) Handles MyBase.Load
End Sub
Private Sub btningresar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs ) Handles btningresar.Click
objlibros.codigo = txtcodigo.Text
objlibros.nombre = txtnombre.Text
objlibros.autor = txtautor.Text
objlibros.ingresar(conn)
End Sub
End
Class

Ahora Quisiera traspasarlo para insertar a access2000, ¿alguien me puede ayudar?