BASES DE DATOS SQL SERVER CON VISUAL BASIC
YOUR_SERVER
02 de Junio del 2006
HOLA:
QUISIERA QUE ME AYUDARAS Y QUE ME DIJERAS CÓMO PUEDO MANIPULAR UNA BASES DE DATOS EN SQL SERVER 2000 MEDIANTE VISUAL BASIC 6.0, YA TENGO TODOS LOS FORMULARIOS EN VB6.0 PERO UTILIZO UNA BASE DE DATOS EN ACCESS 2000, HE TRANSFORMADO ESA BD A SQL SERVER Y AHORA QUIERO UTILIZAR ESTA PARA TRABAJAR CON ELLA.....¿CÓMO LE HAGO? ¿ME PUEDES AYUDAR?,...me puedes enviar información a mi correo TE LO AGRADECERÉ MUCHISIMO, YA QUE ES DE SUMA IMPORTANCIA........
GRACIAS
QUISIERA QUE ME AYUDARAS Y QUE ME DIJERAS CÓMO PUEDO MANIPULAR UNA BASES DE DATOS EN SQL SERVER 2000 MEDIANTE VISUAL BASIC 6.0, YA TENGO TODOS LOS FORMULARIOS EN VB6.0 PERO UTILIZO UNA BASE DE DATOS EN ACCESS 2000, HE TRANSFORMADO ESA BD A SQL SERVER Y AHORA QUIERO UTILIZAR ESTA PARA TRABAJAR CON ELLA.....¿CÓMO LE HAGO? ¿ME PUEDES AYUDAR?,...me puedes enviar información a mi correo TE LO AGRADECERÉ MUCHISIMO, YA QUE ES DE SUMA IMPORTANCIA........
GRACIAS
HENRY
02 de Junio del 2006
Private Sub Form_Load()
cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Voucher;Data Source=Sistemas3"
cn.Open
Set CCVouchers.ActiveConnection = cn
CCVouchers.CommandText = "Select * from Vouchers"
Vouchers.Open CCVouchers, , adOpenDynamic, adLockBatchOptimistic
Set cDetalleV.ActiveConnection = cn
cDetalleV.CommandText = "Select * from detallevouchers"
DetalleV.Open cDetalleV, , adOpenDynamic, adLockBatchOptimistic
Set crs.ActiveConnection = cn
crs.CommandText = "select * from Proveedor"
rs.Open crs, , adOpenStatic, adLockReadOnly
Set cfactura.ActiveConnection = cn
cfactura.CommandText = "select facturas.Nrofactura,facturas.importe,facturas.saldo,proveedor.nombre,proveedor.codpro from facturas inner join Proveedor on facturas.codprov=proveedor.codpro where facturas.saldo > 0 order by codprov"
factura.Open cfactura, , adOpenStatic, adLockReadOnly
Set cordenn.ActiveConnection = cn
cordenn.CommandText = "select orden_compra.Nrocompra,orden_compra.importe,orden_compra.saldo,proveedor.codpro from orden_compra inner join proveedor on proveedor.codpro=orden_compra.codprov Where orden_compra.saldo > 0 AND DOCUMENTADO ='0' order by codprov"
ordenn.Open cordenn, , adOpenStatic, adLockReadOnly
Set cNroVou.ActiveConnection = cn
cNroVou.CommandText = "select * from Vouchers"
NroVou.Open cNroVou, , adOpenStatic, adLockReadOnly
If NroVou.EOF Then
lbvouchers.Caption = Format(Date, "ddmm") & "-" & "0001"
Else
NroVou.MoveLast
lbvouchers.Caption = NroVou.Fields("NroVouchers")
ncod = Val(Mid(NroVou.Fields("NroVouchers"), 6))
lbvouchers.Caption = Format(Date, "ddmm") & "-" & Right("0000" & (ncod + 1), 4)
End If
rz.Fields.Append "Codigo", adChar, 15
rz.Fields.Append "Tipo", adVarChar, 18
rz.Fields.Append "Detalle", adVarChar, 60
rz.Fields.Append "Documento", adVarChar, 60
rz.Fields.Append "Nro Orden de Compra", adVarChar, 20
rz.Fields.Append "Precio", adDouble
rz.Open
Set dgdetalle.DataSource = rz
dgdetalle.Columns(2).Alignment = 3
dgdetalle.Columns(3).Alignment = 3
dgdetalle.Columns(4).Alignment = 3
Fecha = Format(Date, "dd/mm/yyyy")
Set cbanco.ActiveConnection = cn
cbanco.CommandText = "Select * from bancos"
banco.Open cbanco, , adOpenStatic, adLockReadOnly
Set dcbanco.RowSource = banco
dcbanco.ListField = "Descripcion"
dcbanco.BoundColumn = "codbanco"
If CVouchers.Text = "" Then
Frame1.Visible = False '
Frame2.Visible = False
End If
End Sub
cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Voucher;Data Source=Sistemas3"
cn.Open
Set CCVouchers.ActiveConnection = cn
CCVouchers.CommandText = "Select * from Vouchers"
Vouchers.Open CCVouchers, , adOpenDynamic, adLockBatchOptimistic
Set cDetalleV.ActiveConnection = cn
cDetalleV.CommandText = "Select * from detallevouchers"
DetalleV.Open cDetalleV, , adOpenDynamic, adLockBatchOptimistic
Set crs.ActiveConnection = cn
crs.CommandText = "select * from Proveedor"
rs.Open crs, , adOpenStatic, adLockReadOnly
Set cfactura.ActiveConnection = cn
cfactura.CommandText = "select facturas.Nrofactura,facturas.importe,facturas.saldo,proveedor.nombre,proveedor.codpro from facturas inner join Proveedor on facturas.codprov=proveedor.codpro where facturas.saldo > 0 order by codprov"
factura.Open cfactura, , adOpenStatic, adLockReadOnly
Set cordenn.ActiveConnection = cn
cordenn.CommandText = "select orden_compra.Nrocompra,orden_compra.importe,orden_compra.saldo,proveedor.codpro from orden_compra inner join proveedor on proveedor.codpro=orden_compra.codprov Where orden_compra.saldo > 0 AND DOCUMENTADO ='0' order by codprov"
ordenn.Open cordenn, , adOpenStatic, adLockReadOnly
Set cNroVou.ActiveConnection = cn
cNroVou.CommandText = "select * from Vouchers"
NroVou.Open cNroVou, , adOpenStatic, adLockReadOnly
If NroVou.EOF Then
lbvouchers.Caption = Format(Date, "ddmm") & "-" & "0001"
Else
NroVou.MoveLast
lbvouchers.Caption = NroVou.Fields("NroVouchers")
ncod = Val(Mid(NroVou.Fields("NroVouchers"), 6))
lbvouchers.Caption = Format(Date, "ddmm") & "-" & Right("0000" & (ncod + 1), 4)
End If
rz.Fields.Append "Codigo", adChar, 15
rz.Fields.Append "Tipo", adVarChar, 18
rz.Fields.Append "Detalle", adVarChar, 60
rz.Fields.Append "Documento", adVarChar, 60
rz.Fields.Append "Nro Orden de Compra", adVarChar, 20
rz.Fields.Append "Precio", adDouble
rz.Open
Set dgdetalle.DataSource = rz
dgdetalle.Columns(2).Alignment = 3
dgdetalle.Columns(3).Alignment = 3
dgdetalle.Columns(4).Alignment = 3
Fecha = Format(Date, "dd/mm/yyyy")
Set cbanco.ActiveConnection = cn
cbanco.CommandText = "Select * from bancos"
banco.Open cbanco, , adOpenStatic, adLockReadOnly
Set dcbanco.RowSource = banco
dcbanco.ListField = "Descripcion"
dcbanco.BoundColumn = "codbanco"
If CVouchers.Text = "" Then
Frame1.Visible = False '
Frame2.Visible = False
End If
End Sub
Williams L?
02 de Junio del 2006
buenas, utilicé el código de conexión que está aquí en mensajes anteriores y funciona, el problema que veo es cuando se llege a cambiar la clave del usuario para conectarse en la base de datos, hay que cambiar el código del programa, ¿existe alguna forma de conexión donde este problema no pase? gracias...
emzgo
02 de Junio del 2006
Como hago para conectarme desde una base de sql server que voy a usar en IIS para una web? con el suario sa, y server localhost, me tira error:Unable to connect to server localhost
server: msg17, level 16, state 1
Microsoft ODBC SQl server Driver No existe el server o se ha denegado el acceso al mismo
Como se configura? Tienen idea...Tengo win XP, y IIS 5
server: msg17, level 16, state 1
Microsoft ODBC SQl server Driver No existe el server o se ha denegado el acceso al mismo
Como se configura? Tienen idea...Tengo win XP, y IIS 5
carlos
02 de Junio del 2006
cn.ConnectionString = "Provider=SQLOLEDB.1;Password=sql;Persist Security Info=True;User ID=sa;Initial Catalog=Idiomas;Data Source=server"
hola yo uso esta conexion a base de datos, pero el asunto esta en que primero tengo que conectarme a los recursos compartidos del servidor antes de tener acceso a la BD, lo que quisiera saber es:¿ como ingreso el user y password directamente??
hola yo uso esta conexion a base de datos, pero el asunto esta en que primero tengo que conectarme a los recursos compartidos del servidor antes de tener acceso a la BD, lo que quisiera saber es:¿ como ingreso el user y password directamente??
lupita
02 de Junio del 2006
vas a almacenar el password y el nombre de usuario en distintas variables, despues en la conexion donde dice password vas a colocar la variable que contiene el password y en lugar de poner el usuario sa (que es el usuario predeterminado de sql) pones al variable que contiene el nombre de usuario que vas a utilizar.
cn.ConnectionString = "Provider=SQLOLEDB.1;Password=" & password &";Persist Security Info=True;User ID=" & usuario &";Initial Catalog=Idiomas;Data Source=server"
Espero te sirva de algo.
cn.ConnectionString = "Provider=SQLOLEDB.1;Password=" & password &";Persist Security Info=True;User ID=" & usuario &";Initial Catalog=Idiomas;Data Source=server"
Espero te sirva de algo.
vadell
02 de Junio del 2006
Hola, tengo el mismo problema que se plantea en este hilo, pero yo no puedo INSERTAR. El codigo que tengo es:
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "Provider=SQLOLEDB.1;User ID=USER;Initial Catalog=DATABASE;Data Source=SERVER"
SQL = "INSERT INTO TABLA (t_sern, t_runn) VALUES(1,'prueba')"
Set RS = db.Execute(SQL)
db.Close
Y el error que me da, es que el campo HASH1 no puede ser Null. Alguien puede decirme como solucionarlo.
Gracias,
Victor
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "Provider=SQLOLEDB.1;User ID=USER;Initial Catalog=DATABASE;Data Source=SERVER"
SQL = "INSERT INTO TABLA (t_sern, t_runn) VALUES(1,'prueba')"
Set RS = db.Execute(SQL)
db.Close
Y el error que me da, es que el campo HASH1 no puede ser Null. Alguien puede decirme como solucionarlo.
Gracias,
Victor
lupita
02 de Junio del 2006
vas a almacenar los el password y el nombre de usuario en variables, despues en la conexion donde dice password vas a colocar la variable y en lugar de poner el usuario sa (que es el usuario predeterminado de sql) pones al variable que contiene el nombre de usuario que vas a utilizar.
cn.ConnectionString = "Provider=SQLOLEDB.1;Password=" & password &";Persist Security Info=True;User ID=" & usuario &";Initial Catalog=Idiomas;Data Source=server"
Espero te sirva de algo.
cn.ConnectionString = "Provider=SQLOLEDB.1;Password=" & password &";Persist Security Info=True;User ID=" & usuario &";Initial Catalog=Idiomas;Data Source=server"
Espero te sirva de algo.
JUAN
02 de Junio del 2006
ESTUDIA MUCHO
Rodolfo Reyes
02 de Junio del 2006
Pues para comenzar cambia la conexión que tienes de Access a SQL Server.
Para conectarte ha SQL Server via OLEDB utiliza el siguiente string de conexion:
ST_Conexion = "Provider=sqloledb;" & _
"Data Source=myServerName;" & _
"Initial Catalog=myDatabaseName;" & _
"User Id=myUsername;" & _
"Password=myPassword"
Luego, puede ser que tengas que modicar alguno que otro Query.
Por ejemplo, si utilizar cosas como "IIF(a,b,c)" o "TOP N", etc. Estas funciones si existen en SQL Server, pero con otros nombres.
Para conectarte ha SQL Server via OLEDB utiliza el siguiente string de conexion:
ST_Conexion = "Provider=sqloledb;" & _
"Data Source=myServerName;" & _
"Initial Catalog=myDatabaseName;" & _
"User Id=myUsername;" & _
"Password=myPassword"
Luego, puede ser que tengas que modicar alguno que otro Query.
Por ejemplo, si utilizar cosas como "IIF(a,b,c)" o "TOP N", etc. Estas funciones si existen en SQL Server, pero con otros nombres.
YOUR SERVER
02 de Junio del 2006
ME GUSTARÍA SABER QUÉ ES LO QUE ES VÁLIDO TANTO PARA ACCESS COMO SQL SERVER EN CUANTO A QUERY'S YA QUE UTILIZO LAS BÁSICAS (SELECT, FROM, WHERE, INSERT INTO, Y OTRAS. PUEDO SEGUIRLAS UTILIZANDO? PARA ESTO ESTOY UTILIZANDO ADODC PARA CONECTAR VB CON ACCESS....GRACIAS
lujimen
02 de Junio del 2006
Soy un usuario con el mismo problema necesito saber como enlazar las bases de datos de sql server 2000 con VB 6.0, cualquier cosa que puedan decirme al e mail [email protected] ...Gacias...