• Viernes 31 de Octubre de 2025, 09:12
« anterior próximo »
Páginas: [1]

Autor Tema:  Re: Sql server con visual basic  (Leído 1182 veces)

Preuman

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Re: Sql server con visual basic
« en: Martes 1 de Julio de 2003, 11:19 »
0
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

ROBER.29

  • Miembro MUY activo
  • ***
  • Mensajes: 421
    • Ver Perfil
    • http://www.contrapixel.com
Re: Sql server con visual basic
« Respuesta #1 en: Martes 1 de Julio de 2003, 12:06 »
0
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
Roberto García
Moderador de Visual Basic.
Gerente
[contra]PixeL S.L.
Valladolid

roy

  • Miembro activo
  • **
  • Mensajes: 46
    • Ver Perfil
Sql server con visual basic
« Respuesta #2 en: Jueves 3 de Julio de 2003, 20:45 »
0
'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:
Páginas: [1]
« anterior próximo »