martes, 29 de noviembre de 2011

Obtencion del Path del Escritorio u otro en C#

Bueno a comenzar con este blog que tengo desde hace años...

Para obtener la direccion del cualquier parte especifica del Sistema se debe utilizar las variables del sistema


PathString = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) + Filename;

miércoles, 13 de enero de 2010

Conexion ODBC con AS400

Bueno despues de tanto intentar con varios sitios cual era la mejor opcion para hacer una consulta desde VB.Net con el AS400 hice una mescla y si esta rapida ya que la mayoria decian que es lenta. Pero bueno aqui les dejo la programacion.
Debemos importar la dll de AS400.
Esto puede ir dentro de una funcion
Imports IBM.Data.DB2.iSeries

Dim EnlaceAS As New iDB2Connection
Dim ComandoAS As New iDB2Command
Dim AdaptadorAS As New iDB2DataAdapter

Public Function Cliente() As DataTable
Cadena = "DataSource=0.0.0.0;UserID=xxxxxx;Password=xxxxx;DataCompression=True;"
Try
Dim DS As New DataSet
Dim Table As New DataTable
ComandoAS.Connection = New iDB2Connection(Cadena)
ComandoAS.Connection.Open()
ComandoAS.CommandType = CommandType.Text
ComandoAS.CommandText = "SELECT * From Esquema.Tabla"
ComandoAS.ExecuteNonQuery()
AdaptadorAS = New iDB2DataAdapter(ComandoAS)
AdaptadorAS.Fill(DS)
'ComandoAS.Connection.Close()
If Not IsNothing(DS) Then
Table = DS.Tables(0)
If Table.Rows.Count > 0 Then
For I As Integer = 0 To Table.Rows.Count - 1
Codigo = Table.Rows(0).Item(0)
Next
End If
End If
ComandoAS.Connection.Close()
Return Table
Catch ex As Exception
ComandoAS.Connection.Close()
End Try