Visual Basic - hipervinculo

Life is soft - evento anual de software empresarial
   
Vista:

hipervinculo

Publicado por Ivan Schartun (4 intervenciones) el 29/10/2009 22:24:27
buenas tardes, nuevamente necesito de su ayuda, estoy extrayendo un hipervinculo de access para ser posicionado en un textbox pero el hipervinculo me sale con # por ende no me sirve, este hipervinculo no es para enviarme a una pagina web si no mas bien para llamar a un archivo, agredecere su ayuda, gracias. pd: estoy trabajando con vb 6.0 y access 2007 en version compatible, este es parte de mi codigo

Dim cn As New ADODB.Connection
Private WithEvents rs As ADODB.Recordset
Dim id As String
Private Sub Command1_Click()
If rs.BOF = False Then
rs.MovePrevious
End If
End Sub

Private Sub Command2_Click()
If rs.EOF = False Then
rs.MoveNext
End If
End Sub

Private Sub Form_Load()
Set rs = New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=G:\Base de datos1.mdb"
rs.Source = "Tabla1"
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open "select * from Tabla1", cn
rs.MoveFirst
Text1.Text = rs.Fields("id")
Text2.Text = rs("fg")
End Sub

Private Sub rs_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
If rs.BOF = True Then
rs.MoveFirst
ElseIf rs.EOF = True Then
rs.MoveLast
Else
Text1.Text = rs.Fields("id")
Text2.Text = rs.Fields("fg")
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