Visual Basic - Conexion Visual Studio 2005 con SQL

Life is soft - evento anual de software empresarial
 
Vista:

Conexion Visual Studio 2005 con SQL

Publicado por Angel (3 intervenciones) el 24/08/2009 20:13:46
Saludos a todos,
Estoy iniciando desarrollando una aplicacion en Visual Studio 2005 y Base de Datos SQL 2005, si tengo una conexion hecha en Control Panel, Herramientas Administrativas, y en Origenes de Datos ODBC Creo una coneccion llamada SQL Origen.

Es necesario que en mi aplicacion VB cree una conexion nuevamente ?, realmente no se como funciona, me gustaria que alguien me explique que tengo que hacer para que mi aplicacion se conecte a mi base de datos y pueda consultar, agregar, modificar y eliminar registro de mis tablas en SQL. porfa, necesito su ayuda, que alguien me explique como funciona y que debo hacer, lo que ocurre es que mis aplicaciones estan hechas en Visual Foxpro y ahora me han exigido que debo emigrarla a VB.

Muchas Gracias a todos y saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Conexion Visual Studio 2005 con SQL

Publicado por Rolando (115 intervenciones) el 24/08/2009 21:19:58
Tienes esta funcion donde reemplazas los valores de conexion como usurio bd y contraseña

Public Sub ConectaSQL()
On Error GoTo ControlaErrores

Dim vgServer As String
Dim vgUser As String
Dim vgPwd As String
Dim vgBD As String

vgServer = "TERMINAL"
vgUser = "contable"
vgPwd = "contable"
vgBD = "INFO"

With cn
'.ConnectionString = "provider=sqloledb;data source=BBMPE02;uid=contable;database=INFOPRUEBAS;pwd=contable;"

.ConnectionString = "driver={SQL Server};" & _
"server=" & vgServer & _
";uid=" & vgUser & _
";pwd=" & vgPwd & _
";database=" & vgBD

.CursorLocation = adUseClient
.ConnectionTimeout = 60000: .CommandTimeout = 60000
.Open
'Cargar la fecha y hora del servidor
'Call vgClsOpr.FechaHoraServidor
End With
Exit Sub
ControlaErrores:
MsgBox _
prompt:=" Error en el Inicio de Sesión " + Chr(13) + _
" Comuníquese con el Area de Sistemas..!!!", _
Buttons:=vbCritical + vbOKOnly, _
Title:="Error"

End Sub

La ejecutas al unicio del proyecto VB

Luego tienes estas funciones para los mantenimientos y consultas :

Public Function fRetornaRS(GsSentenciaSQL As String) As ADODB.Recordset
Dim Cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
On Error GoTo Msj_error
rs.CursorLocation = adUseClient

With Cmd
.ActiveConnection = cn
.CommandType = adCmdText
.CommandText = GsSentenciaSQL
.Execute
End With

rs.Open Cmd, , adOpenDynamic, adLockOptimistic
Set fRetornaRS = rs
Set rs = Nothing
Set Cmd = Nothing

Msj_error:
If Err.Number <> 32755 Then
If Len(Err.Description) > 1 Then MsgBox "Ocurrió el Siguiente Error:" + Chr(13) + Err.Description, vbCritical, "SISTEMA"
End If

End Function

Public Sub pEjecutaSQL(GsSentenciaSQL As String)
On Error GoTo Msj_error
Dim Cmd As New ADODB.Command
With Cmd
.ActiveConnection = cn
.CommandType = adCmdText
.CommandText = GsSentenciaSQL
.Execute
End With
Set Cmd = Nothing

Msj_error:
If Err.Number <> 32755 Then
If Len(Err.Description) > 1 Then MsgBox "Ocurrió el Siguiente Error:" + Chr(13) + Err.Description, vbCritical, "SISTEMA"
End If

End Sub

Saludos

Rolando Lau
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Conexion Visual Studio 2005 con SQL

Publicado por elguarro (17 intervenciones) el 25/08/2009 18:25:38
tio, el INU_TIL de angel a puesto "Conexion Visual Studio 2005 con SQL ". lo que tu le has pasado es visual basic 6. Y por si no lo sabes, esto no funciona en vb.net. asi que no engañez al INU_TIL. mejor que postee su pregunta donde debe (hasta para esto es INU_TIL) o que busque en internet.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Conexion Visual Studio 2005 con SQL

Publicado por elguarro (17 intervenciones) el 25/08/2009 18:19:31
buscate un manual en internet. esas preguntas de super principiante son absurdas.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Conexion Visual Studio 2005 con SQL

Publicado por Angel (3 intervenciones) el 25/08/2009 19:35:12
Gracias Rolando,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar