perdido con datasource, dataset y dbbrowse

[swrite]

Buenas noches conpañeros, recurro a ustedes con la siguiente inquietud
he logrado armar un form con un dbbrowse y he logrado conectar a
datasource con dataset y dbbrowse
ahora lo que quiero es poder modificar el archivo Dbf que apunta el
dataset asi como el camino que apunta el datasource
para lo cual he puesto en el evento on initialize lo siguiente
WITH OBJECT ::oNtxDataSource1
:cConnect := 'sistemasjosenetempre001cheques'
END
WITH OBJECT ::oDbfDataSet1
:cName := 'Cuentas.Dbf'
:lOpen := .T.
:aIdxFiles := { 'Cuentas1,cuentas2'}
END
Ojo :lOpen lo tengo como .F. en el formulario
me marca el error que sistemasjosenetempre001chequescuentas.dbf no
existe !!!!
hay alguna manera de manejarlo ?
adjunto aca abajo el .Xfm
METHOD CreateForm() CLASS TfrmEscojeRegistro
Super:CreateForm()
::SetBounds( 342, 166, 681, 436 )
::cText := "Escoja registro"
::oFont := TFont():Create( "MS Sans Serif", 8, 0, 400 )
::nClientWidth := 673
::nClientHeight := 402
::lCentered := .T.
::OnInitialize := "FormInitialize"
::Create()
WITH OBJECT ::oNtxDataSource1 := TNtxDataSource():New( Self )
:cConnect := "sistemasjosenetempre002cheques"
:Create()
END
WITH OBJECT ::oDbfDataSet1 := TDbfDataSet():New( Self )
:oDataSource := ::oNtxDataSource1
:cProcess := "GENERAL"
:cName := "Cuentas.Dbf"
:aIdxFiles := { "Cuentas", "Cuentas1" }
:Create()
END
WITH OBJECT ::oGroupBox1 := TGroupBox():New( Self )
:SetBounds( 12, 4, 650, 390 )
:Create()
END
WITH OBJECT ::oDBBrowse1 := TDBBrowse():New( ::oGroupBox1 )
:SetBounds( 20, 20, 614, 306 )
WITH OBJECT TBrwRecSel():New( ::oDBBrowse1 )
:nWidth := 24
:Create()
END
:nHeaderHeight := 36
:lAllowEdit := .F.
:lFilterBar := .T.
:oDataSet := ::oDbfDataSet1
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "Codigo"
:nWidth := 130
:oDataField := "CODIGO"
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "Banco"
:nWidth := 269
:oDataField := "BANCO"
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "Saldo"
:cPicture := "99,999,999.99"
:nAlignment := taRIGHT
:nWidth := 185
:oDataField := "SALDOACTUA"
:Create()
END
:OnDblClick := "DBBrowse1DblClick"
:Create()
END
WITH OBJECT ::oBtnBmp1 := TBtnBmp():New( ::oGroupBox1 )
:SetBounds( 64, 332, 122, 46 )
:cText := "&Escojer"
:oBitmaps := "b32_ok"
:OnClick := "BtnBmp1Click"
:Create()
END
WITH OBJECT ::oBtnBmp2 := TBtnBmp():New( ::oGroupBox1 )
:SetBounds( 480, 332, 122, 46 )
:cText := "&Escojer"
:oBitmaps := "b32_canc"
:OnClick := "BtnBmp2Click"
:Create()
END
RETURN Self
si alguien me da una pista
Por demas esta indicarles compañeros que soy novato
Gracias x todo
Saludos
Att
Wilson 'W' Gamboa A
swrite@uio.satnet.net
pd: No deseo usar tDbfbrowse porque a futuro a lo mejor tengo que abrir
tablas Sql

[ignacio]

Wilson,
En principio al path le falta un punto, sería: ".sistemas....." si es que
el directorio lo calcula a partir de donde se ejecute el EXE. Como está
cambiando el path por código le recomiendo que para salir de dudas ponga el
path completo, y no relativo con la aplicación.
Un saludo,
"Wilson 'W' Gamboa A" <swrite@uio.satnet.net> wrote in message
news:[email=45074a17@news.xailer.com...]45074a17@news.xailer.com...[/email]
> Buenas noches conpañeros, recurro a ustedes con la siguiente inquietud
> he logrado armar un form con un dbbrowse y he logrado conectar a
> datasource con dataset y dbbrowse
> ahora lo que quiero es poder modificar el archivo Dbf que apunta el
> dataset asi como el camino que apunta el datasource
>
> para lo cual he puesto en el evento on initialize lo siguiente
>
>
> WITH OBJECT ::oNtxDataSource1
> :cConnect := 'sistemasjosenetempre001cheques'
> END
>
> WITH OBJECT ::oDbfDataSet1
> :cName := 'Cuentas.Dbf'
> :lOpen := .T.
> :aIdxFiles := { 'Cuentas1,cuentas2'}
> END
>
> Ojo :lOpen lo tengo como .F. en el formulario
>
> me marca el error que sistemasjosenetempre001chequescuentas.dbf no
> existe !!!!
>
> hay alguna manera de manejarlo ?
>
> adjunto aca abajo el .Xfm
>
> METHOD CreateForm() CLASS TfrmEscojeRegistro
>
> Super:CreateForm()
> ::SetBounds( 342, 166, 681, 436 )
> ::cText := "Escoja registro"
> ::oFont := TFont():Create( "MS Sans Serif", 8, 0, 400 )
> ::nClientWidth := 673
> ::nClientHeight := 402
> ::lCentered := .T.
> ::OnInitialize := "FormInitialize"
> ::Create()
>
> WITH OBJECT ::oNtxDataSource1 := TNtxDataSource():New( Self )
> :cConnect := "sistemasjosenetempre002cheques"
> :Create()
> END
>
> WITH OBJECT ::oDbfDataSet1 := TDbfDataSet():New( Self )
> :oDataSource := ::oNtxDataSource1
> :cProcess := "GENERAL"
> :cName := "Cuentas.Dbf"
> :aIdxFiles := { "Cuentas", "Cuentas1" }
> :Create()
> END
>
> WITH OBJECT ::oGroupBox1 := TGroupBox():New( Self )
> :SetBounds( 12, 4, 650, 390 )
> :Create()
> END
>
> WITH OBJECT ::oDBBrowse1 := TDBBrowse():New( ::oGroupBox1 )
> :SetBounds( 20, 20, 614, 306 )
> WITH OBJECT TBrwRecSel():New( ::oDBBrowse1 )
> :nWidth := 24
> :Create()
> END
>
> :nHeaderHeight := 36
> :lAllowEdit := .F.
> :lFilterBar := .T.
> :oDataSet := ::oDbfDataSet1
> WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
> :cHeader := "Codigo"
> :nWidth := 130
> :oDataField := "CODIGO"
> :Create()
> END
>
> WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
> :cHeader := "Banco"
> :nWidth := 269
> :oDataField := "BANCO"
> :Create()
> END
>
> WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
> :cHeader := "Saldo"
> :cPicture := "99,999,999.99"
> :nAlignment := taRIGHT
> :nWidth := 185
> :oDataField := "SALDOACTUA"
> :Create()
> END
>
> :OnDblClick := "DBBrowse1DblClick"
> :Create()
> END
>
> WITH OBJECT ::oBtnBmp1 := TBtnBmp():New( ::oGroupBox1 )
> :SetBounds( 64, 332, 122, 46 )
> :cText := "&Escojer"
> :oBitmaps := "b32_ok"
> :OnClick := "BtnBmp1Click"
> :Create()
> END
>
> WITH OBJECT ::oBtnBmp2 := TBtnBmp():New( ::oGroupBox1 )
> :SetBounds( 480, 332, 122, 46 )
> :cText := "&Escojer"
> :oBitmaps := "b32_canc"
> :OnClick := "BtnBmp2Click"
> :Create()
> END
>
> RETURN Self
>
> si alguien me da una pista
> Por demas esta indicarles compañeros que soy novato
>
> Gracias x todo
> Saludos
>
> Att
>
> Wilson 'W' Gamboa A
> swrite@uio.satnet.net
>
> pd: No deseo usar tDbfbrowse porque a futuro a lo mejor tengo que abrir
> tablas Sql

[swrite]

Ignacio, gracias x contestar
efectivamente el path esta completo porque apunto desde el directorio Raiz
Mi pregunta va a que si en On Init puedo cambiar esas caracteristicas ?
Saludos
Att
Wilson 'W' Gamboa A
swrite@uio.satnet.net

[swrite]

Era un error mio, con el archivo dbf, los Dataset funcion oK
Saludos
y Gracias x Todo
Att
Wilson 'W' Gamboa A
swrite@uio.satnet.net
pd: para cuando un video de un Amb Completo con Tdbbrowse ?, gracias