Abrir Data Source

06/10/2004 - 18:42 por David Fúnez | Informe spam
Hola a Todos;

Sigo tratando de validar la entrada en un TextBox, bueno, he pensado hacerlo
con DataReader como me han aconsejado, pero el siguiente código, en el
"Catch" me devuelve el siguiente mensaje de error " Debe especificar un
DataSource antes de abrirlo".

Qué parte del intento de abrir la conexión estoy haciendo mal?

De antemano muchas gracias, aquí esta el código que estoy usando:

Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As
System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating

Dim valor As String

valor = TextBox1.Text



Dim cn As New VistaDB.VistaDBConnection

Dim cm As New VistaDB.VistaDBCommand

Dim dr As VistaDB.VistaDBDataReader



cn.ConnectionString = "data source=Kardex;initial
catalog=Proveedores;integrated security=SSPI;"



Try

cn.Open()

Catch ex As Exception

MsgBox("Error :" + ex.Message)

End Try

End Sub





PD: Uso como base de datos VistaDB http://www.vistadb.net


David Fúnez
Tegucigalpa, Honduras

"La Piratería Mata Las Ideas"
Desarrollador Cinco Estrellas Visual FoxPro
 

Leer las respuestas

#1 David Fúnez
06/10/2004 - 23:18 | Informe spam
Paso porque no le habia puesto la extensión del archivo de base de datos.

David Fúnez
Tegucigalpa, Honduras

"La Piratería Mata Las Ideas"
Desarrollador Cinco Estrellas Visual FoxPro


"David Fúnez" wrote in message
news:
Hola a Todos;

Sigo tratando de validar la entrada en un TextBox, bueno, he pensado


hacerlo
con DataReader como me han aconsejado, pero el siguiente código, en el
"Catch" me devuelve el siguiente mensaje de error " Debe especificar un
DataSource antes de abrirlo".

Qué parte del intento de abrir la conexión estoy haciendo mal?

De antemano muchas gracias, aquí esta el código que estoy usando:

Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As
System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating

Dim valor As String

valor = TextBox1.Text



Dim cn As New VistaDB.VistaDBConnection

Dim cm As New VistaDB.VistaDBCommand

Dim dr As VistaDB.VistaDBDataReader



cn.ConnectionString = "data source=Kardex;initial
catalog=Proveedores;integrated security=SSPI;"



Try

cn.Open()

Catch ex As Exception

MsgBox("Error :" + ex.Message)

End Try

End Sub





PD: Uso como base de datos VistaDB http://www.vistadb.net


David Fúnez
Tegucigalpa, Honduras

"La Piratería Mata Las Ideas"
Desarrollador Cinco Estrellas Visual FoxPro



Preguntas similares