SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Preuman en Martes 1 de Julio de 2003, 11:19
-
A ver señores toy intentando conectar desde vb a un servidor sql, este es el codigo q esta mal?¿ xDD
Public Function EstableceConexion()
Dim ob As ADODB.Connection
Dim strCnn As String
strCnn = "Provider=SQLOLEDB.1;" & _
"Data Source=DMR - SLQ7;Initial Catalog=BdManIn;User Id=david;Password=david;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096"
On Error GoTo Error
Set ob = New ADODB.Connection
ob.Open strCnn
' With ob
' .Open "DRIVER={SQL Server};SERVER=DMR - SLQ7;DATABASE=BdManIn;UID=sa"
'
'' .Provider = "sqloledb"
' .Properties("Data Source").Value = "DMR - SLQ7"
'' .Properties("Initial Catalog").Value = "BdManIn"
'' .Properties("User id").Value = "sa"
'' .Properties("Password") = ""
'' .Open
'
' '.Provider = "sqloledb"
' '.Open "Data Source=DMR-SLQ7;Initial Catalog=BdManIn;", "sa", ""
' End With
Error:
MsgBox ("No")
End Function
asias
-
La mejor forma es que te crees en la carpeta donde tienes almacenado el proyecto un fichero udl el cual tiene que en lazar con la base de datos. Una vez echo esto haz lo siguiente:
Public Function EstableceConexion()
Dim cnn As New ADODB.Connection
On Error GoTo Error
cnn.open "FILE NAME=" & App.Path & "Fichero_conexion.udl"
Error:
MsgBox ("No")
End Function
Para crear un fichero udl simplemente haz lo siguiente:
1º Pulsa con el botón derecho.
2º Elije crear nuevo archivo de texto.
3º Llamale como quieras y cambia su extensión txt por udl.
4º Abre el fichero y crea la conexion con la base de datos que desees.
Espero que me hayas entendido y que te sirva de ayuda.
Saludos,
Roberto García
-
'La variable tipo conexion
Global CNNCAJA As New ADODB.Connection
sub main()
CNNCAJA.CursorLocation = adUseClient
CNNCAJA.CommandTimeout = 0
'Estoy trabajando con sql 7
CNNCAJA.Open ConnectionString:="provider=sqloledb;database=caja;server=ingresos;uid=sa;pwd=;Connect Timeout=15;Packet Size=8192"
'Si hay algun error, me manda el mensaje del error, si no abrira mi pantalla principal
If Err.Number <> 0 Then
MsgBox Err.Description, vbCritical + vbOKOnly, "Error"
Exit Sub
Else
presenta.Show
End If
End Sub
espero te sirva:comp: