Ayuda c/ CONEXION
Publicado por Eduardo (41 intervenciones) el 22/03/2006 21:30:18
Hola, soy principiante en la programacion de Visual Basic.NET
PERO SI SE PROGRAMAR PERFECTAMENTE EN VISUAL BASIC 6 Y SQL SERVER 2000 CON CODIGO ADO.... HE DESARROLLADO GRANDES SISTEMAS.
PERO ESTO NUEVO ME DA TEMORES..... ESTOY VIENDO EL ENTORNO Y ES ALGO NUEVO, ME CONFUNDO DEMASIADO....
EN VB6 TENGO UNA APLICACION QUE MUESTRA LOS DATOS DE UNA BASE DE DATOS EN SQL SERVER EN UN DATAGRID.
TENGO LO SIGUIENTE:
1.- un modulo "MODCONEXIONES"
Global Cn As ADODB.Connection
Global RsPersonas As ADODB.Recordset
Public Function abrir()
Set Cn = New ADODB.Connection
cadconect = "Driver={SQL Server};" & _
"server=user06;" & _
"Uid=sa;Pwd=sql;database=BASE2000"
Cn.Open cadconect
End Function
2.- en el evento load del formulario:
Private Sub Form_Load()
abrir
cadsql = "Select * from EMPLEADOS order by NUMERO"
Set RsPersonas = New ADODB.Recordset
With RsPersonas
.ActiveConnection = Cn
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Source = cadsql
.Open
End With
Set DataGrid1.DataSource = RsPersonas
DataGrid1.Refresh
End Sub
=============================================
COMO HAGO LO MISMO EN .NET Y SI QUIERO PARA TABLAS RELACIONADAS
AYUDA POR FAVOR, POR QUE SI NO APRENDO EN UNA SEMANA POSIBLEMENTE ME SAQUEN DEL PUESTO QUE OCUPO.
MUCHAS GRACIAS
EDU
PERO SI SE PROGRAMAR PERFECTAMENTE EN VISUAL BASIC 6 Y SQL SERVER 2000 CON CODIGO ADO.... HE DESARROLLADO GRANDES SISTEMAS.
PERO ESTO NUEVO ME DA TEMORES..... ESTOY VIENDO EL ENTORNO Y ES ALGO NUEVO, ME CONFUNDO DEMASIADO....
EN VB6 TENGO UNA APLICACION QUE MUESTRA LOS DATOS DE UNA BASE DE DATOS EN SQL SERVER EN UN DATAGRID.
TENGO LO SIGUIENTE:
1.- un modulo "MODCONEXIONES"
Global Cn As ADODB.Connection
Global RsPersonas As ADODB.Recordset
Public Function abrir()
Set Cn = New ADODB.Connection
cadconect = "Driver={SQL Server};" & _
"server=user06;" & _
"Uid=sa;Pwd=sql;database=BASE2000"
Cn.Open cadconect
End Function
2.- en el evento load del formulario:
Private Sub Form_Load()
abrir
cadsql = "Select * from EMPLEADOS order by NUMERO"
Set RsPersonas = New ADODB.Recordset
With RsPersonas
.ActiveConnection = Cn
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Source = cadsql
.Open
End With
Set DataGrid1.DataSource = RsPersonas
DataGrid1.Refresh
End Sub
=============================================
COMO HAGO LO MISMO EN .NET Y SI QUIERO PARA TABLAS RELACIONADAS
AYUDA POR FAVOR, POR QUE SI NO APRENDO EN UNA SEMANA POSIBLEMENTE ME SAQUEN DEL PUESTO QUE OCUPO.
MUCHAS GRACIAS
EDU
Valora esta pregunta


0