Function ObtenerTamanio(ByVal palabra)
ObtenerTamanio = (palabra.ToString).Length
End Function
Listo eso es todo, espero les sirva.
Function ObtenerTamanio(ByVal palabra)
ObtenerTamanio = (palabra.ToString).Length
End Function
Imports System.IO
Public Class AccesoDatosExternos
Public Sub MoverArchivosDispositivoServidor()
System.IO.File.Copy("C:\BD\SCDDBC001.sdf", "C:\Documentos en PDA de 001\SCDDBC001.sdf", True)
End Sub
End Class
Public Class ClassComboMultiple
Public Value As Object
Public Description As String
Public Sub New(ByVal NewValue As Object, ByVal NewDescription As String)
Value = NewValue
Description = NewDescription
End Sub
Public Overrides Function ToString() As String
Return Description
End Function
End Class
vL_ConexionMobil = New SqlCeConnection(vL_ArchivoMobil)
StrSql = "Select * from " & NombreTabla
MobilDataAdapter = New SqlCeDataAdapter(StrSql, vL_ConexionMobil)
Dim MobilTable As New DataTable
MobilDataAdapter.Fill(MobilTable)
For Each row As DataRow In MobilTable.Rows
FrmVenta.ComboBox1.Items.Add(New ClassComboMultiple(row.Item("Codigo"), row.Item("Razon").ToString))
Next
Me.CodigoCliente = CType(ComboBox1.SelectedItem, ClassComboMultiple).Value