PDA

View Full Version : سوال در مورد بانک اطلاعاتی Access



ahp_online
پنج شنبه 25 خرداد 1391, 09:58 صبح
سلام دوستان
من یک بانک اطلاعاتی دارم که یکی از فیلدهاش از نوع hyperlink می باشد و قبلا اطلاعات از طریق خود اکسس وارد میشده و فایل پی دی اف هم بهش لینک میشده.حالا من اومدم یک نرم افزار نوشتم واین بانک اطلاعاتی را به نرم افزارم وصل کردم.ولی یک مشکل دارم اونم اینه که فیلدی که از نوع هایپر لینک می باشد در دیتاگرید به این صورت نمایش داده میشه:
PL-999-001#pdf\8091.pdf
بعد از شارپ مسیر فایل رو نشون میده که من میخوام اینو حذف کنم و فقط pl-999-001 نمایش داده بشه!! البته چون اطلاعات بانک زیاده نمی تونم یکی یکی اینکار رو انجام بدم.حالا می خوام بدونم روشی هست که بشه اینکار رو بصورت اتوماتیک انجام داد؟؟؟
ممنون

ahp_online
شنبه 27 خرداد 1391, 10:05 صبح
سلام
کسی از دوستان نیست این سوال منو جواب بده؟؟لطفا دوستان راهنمایی و راهکار پیشنهاد بدن

m.4.r.m
شنبه 27 خرداد 1391, 10:52 صبح
Dim sTMP, nTMP As String
sTMP = "PL-999-001#pdf\8091.pdf"
' به جای خط
بالا می توانید دستور زیر را استفاده کنید


'Adodc1.Recordset.field("نام فیلد") = "PL-999-001#pdf\8091.pdf"
nTMP =
Left(sTMP, 10)
'ntmp=left('Adodc1.Recordset.field("نام فیلد") =
"PL-999-001#pdf\8091.pdf",10)
Text1 = nTMP

'Adodc1.Recordset.field("نام فیلد") = trim(ntmp)

'adodc1.Recordset.Update

mohammadriano
شنبه 27 خرداد 1391, 22:17 عصر
Dim pdf As String
Dim i As Integer
Dim p As String
Dim a As Integer
a = 0
Dim b As Integer
b = 0
pdf = "PL-999-001#pdf\8091.pdf"
For i = 0 To Len(pdf) - 1 Step 1
If Mid(pdf, Len(pdf) - i, 1) = "\" Then
a = 1
End If
If a = 0 Then b = b + 1
Next i
Text2.Text = left(pdf, len(pdf) - b -1)
خب به طور قسمت اظافی پاک میشه با هر رشته ای که وارد بشه