Visual Basic.NET - Como se hace .dbf con VB.net

 
Vista:

Como se hace .dbf con VB.net

Publicado por redrojo (5 intervenciones) el 15/10/2004 16:46:52
Hola.
necesito un enomre favor,
si alguien puede compartir conmigo su codigo de como leer una tabla de VFP usando VB.net y digamos leer el primer registro colocandolo en textbox, esto para una webform. por ahora estoy leyendo la tabla con los objetos DATA, pero quiero tener el control del programa, y no se como hacer, supongo que no seran mas de 10 o 20 lineas de codigo pero estoy en problemas por que no se como empezar,,,
gracias por su ayuda,,,
RED
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

RE:Como se hace .dbf con VB.net

Publicado por Omega (2 intervenciones) el 15/10/2004 17:40:37
Public Function GetProjectTable() As Data.DataSet
On Error Resume Next
Dim strConnect, strSql As String
Dim objDA As New OdbcDataAdapter()
Dim objDS As New Data.DataSet()
Dim intCounter As Integer
Dim mvarSysProjPath As String = "C:\Program Files\Real\RealPlayer\db\"

'Define a connection string with file path as parameter
strConnect = "Provider=MSDASQL/SQLServer ODBC;Driver={Microsoft Visual FoxPro Driver};" _
& "SourceType=DBF;SourceDB=" & mvarSysProjPath _
& ";InternetTimeout=300000;Transact Updates=True"
'This simple query is all u need to extract data. Make sure you specify filename
'with extension
strSql = "select * from names.dbf"
objDA = New OdbcDataAdapter(strSql, strConnect)
objDA.Fill(objDS)

GetProjectTable = objDS
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'This line populates datagrid
DataGrid1.DataSource = GetProjectTable()
End Sub
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