Programación General > Bases de Datos

 Base De Datos

(1/2) > >>

vds:
hola,

he realizado una base de datos, y en uno de los formularios tengo una tabla donde en uno de los campos me aparecen una lista de nombres. HAy otro que es el campo de identificador del nombre. La idea es que cuando este en un nombre de la tabla me salga su identificador en el campo. El problema es que no me recorre bien el recordset y me pone simpre el mismo identificador en todos los nombres. Para que os hagáis una idea os pongo un trozo de codigo:

Dim consulta As String

consulta = "select Descripcio from [proces critic] where [id_Area] = " & Me![Id_Area]




rs.Open consulta, con, , , 1
Dim i As Integer
i = 0
Me.Lista36.RowSource = "Descripcio"

Do Until rs.EOF

Nombre = rs.Fields("Descripcio").Value


Me.Lista36.RowSource = ""
Me.Lista36.RowSourceType = "Value List"

With Me.Lista36
'.RowSource = vbString
.AddItem Nombre

End With


rs.MoveNext
i = i + 1
Loop

rs.Close

con.Close

End Sub

Muchas gracias

ManDraK3:
Hola necesito ayuda...

tengo un programa hecho en visual 6.0
tengo la base de datos en sql 2005
necesito que al ejecutarlo desde otras pc (clientes) se conecten a la base de datos en sql (servidor)
mi cadena de conexion en visual es:
Conexion = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Prueba;Data Source=SSCSERVER"

se puede hacer sin instalar sql en las otras pc (clientes)?

alguien me puede ayudar con esto?

Astronald:
Esa cadena solo sirve en si la base de datos esta montada en un dominio, debes crear una que utilice autenticación SQL y no Windows que utilice ID_Usuario y pass intenta con el usuario sa...


--- Código: Text --- Private Function Conectar() as BooleanOn Error GoTo ErrorConexion    If Conexion.State <> adStateOpen Then        Set Conexion = Nothing       Conexion.Open "Provider=sqloledb;" _           & "Data Source=Servidor;" _           & "Initial Catalog=BaseDatos;" _           & "User Id=NombreUsuario;" _           & "Password=Password;"    End If    Conectar = True    Exit FunctionErrorConexion:Conectar = FalseEnd Function  
Como utilizarla


--- Código: Text --- If Conectar then rs.open "SELECT * FROM Tabla", ConexionIf Conectar then Conexion.execute "DROP Tabla"  

Dato Curioso, no necesitas ningun tipo de proveedor cliente(No necesitas instalar ninguna herramiena SQL), en la maquina cliente solo que tenca el MDAC instalado
es decir en WinXP no problem.

Otro dato el servidor puede ser:
En una red NombrePC o la direccion IP
En internet mssql.tudominio.com o tambien la direccion IP del servidor.

en mi parecer siempre empiezo de esta manera,
asi este en el mismo equipo que la base de datos, para que despues no me implique tener que modificar codigo si trato de conectarme desde otra PC.
si no te conecta tienes que revisar que el servidor SQL acepte las conexiones remotas. esto se hace en la configuracion del mismo.

Cualquier cosa gritas

ManDraK3:
Intentare eso...gracias por tu aporte...

ManDraK3:
he creado un usuario nuevo inicio de sesion en sql
pero al tratar de conectarme desde visual con esa cadena me sale: "Error de inicio de sesion del usuario (usaurio). El usuario no esta asociado a una conexion de sql server de confianza"

que estoy haciendo mal?

Navegación

[0] Índice de Mensajes

[#] Página Siguiente