ویرایش در database

سلام
من یک برنامه با vb6 , sql نوشتم ولی الان یک کد میخوام که همون اطلاعات قبلی که درجدول دارم رو بتونم ویرایش کنم یعنی سطر جدید باز نشود و ویرایش شده همون اطلاعات دوباره تکرار نشود
کدی که برای ثبت اطلاعات نوشتم را در قسمت زیر وارد کردم
خواهش میکنم جواب دهید :20::20::20::20:

cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=bayegani;Data Source=sh"
rst.Open "table", cnn, adOpenKeyset, adLockOptimistic, adCmdTable
rst.AddNew
rst.MoveLast

rst!pno1 = Combo1.Text
Combo1.Refresh
rst!pno2 = Text1.Text
rst!Name = Combo6.Text
Combo6.Refresh
rst!elat = Combo7.Text
rst!date1 = Text4.Text
rst!date2 = Text5.Text
Combo7.Refresh

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
rst.Update
rst.Close
cnn.Close
Set cnn = Nothing
Set rst = Nothing

من دوخط قرمز را از روی برنامه حذف کردم ولی با اینکار فقط سطر اول جدول را برای من تغییر میده چیکارکنم؟؟؟؟؟؟؟؟؟؟
یک سوال دیگه که داشتم اینه که فرمت تاریخ اگر به صورت 2/1/89 بود چجوری به 02/01/89 تبدیل کنم؟؟

سلام

من زیاد با دیتا بیس کار نکردم پس میذارمش به عهده دوستان. ولی در مورد سوال دومتون:

نقل قول:

---

فرمت تاریخ اگر به صورت 2/1/89 بود چجوری به 02/01/89 تبدیل کنم؟؟

---

من روش خاصی پیدا نکردم ولی همیشه تو برنامه هام اینطوری ازش ایتفاده می کنم که یه مقدار طولانیه:

برای تبدیل کردن مثلا 123045 یا 12:3045 یا 12:3045 به 12:30:45 از روش حلقه استفاده کردم:

کد:

---

Dim i As Byte
TxtInput = TxtIn1.Text
For i = 1 To Len(TxtIn1.Text)
If Len(TxtInput) = 6 And Mid(TxtInput, i, 1) <> ":" Then
TxtIn1.Text = Mid(TxtInput, 1, 2) & ":" & Mid(TxtInput, 3, 2) & ":" & Mid(TxtInput, 5, 2)
End If
Next
If Len(TxtInput) = 7 And Mid(TxtInput, 3, 1) = ":" And Mid(TxtInput, 6, 1) <> ":" Then
TxtIn1.Text = Mid(TxtInput, 1, 2) & ":" & Mid(TxtInput, 4, 2) & ":" & Mid(TxtInput, 6, 2)
End If
If Len(TxtInput) = 7 And Mid(TxtInput, 3, 1) <> ":" And Mid(TxtInput, 5, 1) = ":" Then
TxtIn1.Text = Mid(TxtInput, 1, 2) & ":" & Mid(TxtInput, 3, 2) & ":" & Mid(TxtInput, 6, 2)
End If

---

از همین روش به راحتی میتونید برای کار خودتون استفاده کنید. اگر خواستید بگید تا کد مربوط به درخواستتون رو بذارم.

تا بعد یا حق ...

اگه اینکارو بکنید خیلی ممنون میشم:46:
راستی کد تبدیل تاریخ میلادی به شمسی رو برای نمایش در فرم هم میخواستم که نتونستم برای vb6 پیداکنم اگه لطف کنید ممنون میشم

نقل قول:

---

اگه اینکارو بکنید خیلی ممنون میشم

---

خواهش می کنم. هر چند خلاف قوانینه ولی باشه.

خدمت شما:

کد:

---

Private Sub Command1_Click()
Dim TxtInput As String
TxtInput = Text1.Text
If Len(TxtInput) = 6 And Mid(TxtInput, 2, 1) = "/" And Mid(TxtInput, 4, 1) = "/" Then
Text2.Text = 0 & Mid(TxtInput, 1, 1) & "/" & 0 & Mid(TxtInput, 3, 1) & "/" & Mid(TxtInput, 5, 2)
End If
If Len(TxtInput) = 7 And Mid(TxtInput, 2, 1) <> "/" And Mid(TxtInput, 5, 1) = "/" Then
Text2.Text = Mid(TxtInput, 1, 2) & "/" & 0 & Mid(TxtInput, 4, 1) & "/" & Mid(TxtInput, 6, 2)
End If
If Len(TxtInput) = 7 And Mid(TxtInput, 2, 1) = "/" And Mid(TxtInput, 6, 1) <> "/" Then
Text2.Text = 0 & Mid(TxtInput, 1, 1) & "/" & Mid(TxtInput, 3, 2) & "/" & Mid(TxtInput, 6, 2)
End If
End Sub

---

در مورد سوال دومتون:

نقل قول:

---

کد تبدیل تاریخ میلادی به شمسی رو برای نمایش در فرم

---

هم کامپوننتش هست هم سورسش که من براتون سورسش رو آپلود کردم، اگه کامپوننتش رو می خواید بگید تا آپش کنم.

یه ماژول درست کنید و توش این رو بنویسید:

کد:

---


Option Explicit

Private Month_Name, Spring_Fall
Private Time_Difference, Time_Client
Private Base_Year

'--- Farsi Date Convertor --------------------'

Private Sub Get_Date(ByVal Days, Sal, Mah, Rooz)
  Dim Years, Year_Length
  Do While Days >= 0
    If Kabiseh(Years) Then
        Year_Length = 366
    Else
        Year_Length = 365
    End If
    If Days - Year_Length >= 0 Then
        Years = Years + 1
        Days = Days - Year_Length
    Else
        Sal = Base_Year + Years
        If Days <= 185 Then
          Mah = 1 + (Days \ 31)
          Rooz = 1 + (Days Mod 31)
        Else
          Days = Days - 186
          Mah = 7 + (Days \ 30)
          Rooz = 1 + (Days Mod 30)
        End If
        Exit Sub
    End If
  Loop
End Sub
Private Function Kabiseh(ByVal Years)
  Dim Temp
  Kabiseh = False
  Temp = (Base_Year + Years) - 1309
  If (((Temp Mod 32) - (Temp \ 32)) Mod 4) = 0 Then Kabiseh = True
End Function
Public Property Let SFhour(x)
  Spring_Fall = x
End Property
Public Property Let Time_Diff(ByVal t)
  Time_Difference = t
End Property
Public Property Let state(ByVal S)
  Month_Name = S
End Property
Public Function To_Hejri(ByVal what_date, Optional Month_Name)
  Dim Days, Day_Name, Day_Number, Temp_Days, Months
  Spring_Fall = False
  If IsMissing(Month_Name) Then Month_Name = 0

  Time_Difference = #12:00:00 AM#
  Base_Year = 1332

  Months = Array("ÝÑæÑÏíä", "ÇÑÏíÈåÔÊ", "ÎÑÏÇÏ", "ÊíÑ", "ãÑÏÇÏ", "ÔåÑíæÑ", "ãåÑ", "ÂÈÇä", "ÂÐÑ", "Ïí", "Èåãä", "ÇÓÝäÏ")

  Day_Name = Array("í˜ÔäÈå", "ÏæÔäÈå", "Óå ÔäÈå", "åÇÑÔäÈå", "äÌÔäÈå", "ÌãÚå", "ÔäÈå")
  Days = DateDiff("d", #3/21/1953#, what_date)
  Day_Number = Weekday(what_date)
  Dim Year_Length, Sal, Mah, Rooz, temp_date
  If FormatDateTime(what_date + Time_Difference, vbShortDate) <> FormatDateTime(what_date, vbShortDate) Then
      Days = Days + 1
      Day_Number = (Day_Number + 1)
      If Day_Number = 8 Then Day_Number = 1
  End If
  Time_Client = FormatDateTime(what_date + Time_Difference, vbLongTime)
  Call Get_Date(Days, Sal, Mah, Rooz)
  If ((Mah >= 1 And Mah <= 6) And Not ((Mah = 1 And Rooz = 1) Or (Mah = 6 And Rooz = 31))) And Spring_Fall = True Then
      If FormatDateTime(what_date + Time_Difference + #1:00:00 AM#, vbShortDate) <> FormatDateTime(what_date + Time_Difference, vbShortDate) Then
        Temp_Days = Days + 1
        Day_Number = (Day_Number + 1)
        If Day_Number = 8 Then Day_Number = 1
      Else
        Temp_Days = Days
      End If
      Time_Client = FormatDateTime(what_date + Time_Difference + #1:00:00 AM#, vbLongTime)
      If Temp_Days <> Days Then
        Days = Temp_Days
        If Rooz = 30 And Mah = 6 Then
            If DateDiff("n", Time_Client, #1:00:00 AM#) <= 60 And DateDiff("n", Time_Client, #1:00:00 AM#) >= 0 Then
              Time_Client = FormatDateTime(what_date + Time_Difference, vbLongTime)
              Days = Days - 1
              If Day_Number = 1 Then
                  Day_Number = 7
              Else
                  Day_Number = Day_Number - 1
              End If
            End If
        End If
        Call Get_Date(Days, Sal, Mah, Rooz)
      End If
  End If
  If Month_Name = 0 Then
      If Rooz < 10 Then Rooz = "0" & Rooz
      If Mah < 10 Then Mah = "0" & Mah
      To_Hejri = Sal & "/" & Mah & "/" & Rooz
  ElseIf Month_Name = 1 Then
      To_Hejri = Rooz & " " & Months(Mah - 1) & " " & Sal
  ElseIf Month_Name = 2 Then
      To_Hejri = Day_Name(Day_Number - 1) & " " & Sal & "/" & Mah & "/" & Rooz
  ElseIf Month_Name = 3 Then
      To_Hejri = Day_Name(Day_Number - 1) & "  " & Rooz & "  " & Months(Mah - 1) & "  " & Sal
  End If
End Function
Public Function To_Time(what_date)
  Call To_Hejri(what_date)
  To_Time = Time_Client
End Function
Private Sub Class_Initialize()
  Spring_Fall = False
  Month_Name = 0
  Time_Difference = #12:00:00 AM#
  Base_Year = 1332
End Sub

---

یه فرم هم بسازید و چهارتا تکست باکس بذارید و این رو توش بنویسید:

کد:

---


Private Sub Form_Load()
  Text1 = To_Hejri(Date, 0)
  Text2 = To_Hejri(Date, 1)
  Text3 = To_Hejri(Date, 2)
  Text4 = To_Hejri(Date, 3)
End Sub

---

این هم آمادش:

کد:

---

http://up.--------.ir/6/1270551140.zip

---

به همین سادگی!!!:31:

اگه مشکلی بود در خدمتم.

مرسی از لطف شما متشکرم
فقط هنوز نتونستم جواب سوال اولم را پیدا کنم اگه کسی بتونه کمکم کنه ممنون میشم:20: