Visual Basic - error al poner path para bd en una aplicacion de busqueda

Life is soft - evento anual de software empresarial
   
Vista:

error al poner path para bd en una aplicacion de busqueda

Publicado por cristian (1 intervención) el 29/11/2013 16:18:25
buenas tardes:
tengo una pequeña aplicacion de busqueda, donde queria poner la base de datos en una unidad virtual de otra pc, he intentado poniendo bastantes codigos pero no me acepta por nada del mundo, copio el codigo...haber si por ahi me corrigen

Private Sub Form_Load()

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Documents and Settings\User\Escritorio\filtrar datos\based1." & _
"MDB;Persist Security Info=False"

With Adodc1
.CommandType = adCmdText
.RecordSource = "Select * From agenda"
.Refresh
Set DataGrid1.DataSource = Adodc1.Recordset
DataGrid1.MarqueeStyle = dbgHighlightRowRaiseCell
' DataGrid1.MarqueeStyle = dbgHighlightRowRaiseCell
DataGrid1.Columns(0).Width = 1100
DataGrid1.Columns(1).Width = 12050
DataGrid1.Columns(2).Width = 850
Form1.WindowState = 2
.Visible = False


End With

With Combo1
Combo1.Text = "Descripción"
End With
Text1 = ""


End Sub


Private Sub text1_Change()
On Error GoTo error_Handler
With Adodc1
If Text1 <> "" Then
.Recordset.Filter = Combo1 & " LIKE '*" + Text1 + "*'"
Set DataGrid1.DataSource = Adodc1.Recordset
DataGrid1.Columns(0).Width = 1100
DataGrid1.Columns(1).Width = 12050
DataGrid1.Columns(2).Width = 850
Else
.Recordset.Filter = ""
End If
.Refresh
End With
Exit Sub
error_Handler:
If Err.Number = 3265 Then
MsgBox "el campo seleccionado no es válido", vbCritical
Else
MsgBox Err.Description, vbCritical
End If
End Sub
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

error al poner path para bd en una aplicacion de busqueda

Publicado por Christian (666 intervenciones) el 30/11/2013 04:44:01
Si creaste una unidad de red de una carpeta compartida en otra maquina no deberias tener problema.
Crea un archivo de texto, renombralo como .udl
Hacele doble click y configura el proveedor y la ubicacion
Guarda
despues abrilo con un notepad por ejemplo y copiate el conection string que se genero.

saludos
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