چرا برنامه ام اجرا نميشه؟

[shahab2025]

سلام
من يه برنامه ساده نوشتم كه بر روي بعضي از كامپيوترها اجرا نميشه :ناراحت: ( البته روي بعضي ها هم اجرا ميشه:بامزه:) من موندم كه چرا؟:گیج:

از برنامه setup ساختم و بر روي همه كامپيوترهاي شركت نصب كردم ولي روي بعضي ها جواب نميده. windows installer و دات نت فريم ورك 3 را هم نصب كردم مشكل رفع نشد.:متفکر:

پيغام خطايي كه ميده در زير اومده .
لطفاً بگيد چطوري بايد اين مشكل را حل كنم

[viper2009]

سلام
من يه برنامه ساده نوشتم كه بر روي بعضي از كامپيوترها اجرا نميشه :ناراحت: ( البته روي بعضي ها هم اجرا ميشه:بامزه:) من موندم كه چرا؟:گیج:

از برنامه setup ساختم و بر روي همه كامپيوترهاي شركت نصب كردم ولي روي بعضي ها جواب نميده. windows installer و دات نت فريم ورك 3 را هم نصب كردم مشكل رفع نشد.:متفکر:

پيغام خطايي كه ميده در زير اومده .
لطفاً بگيد چطوري بايد اين مشكل را حل كنم

مشکل سر فایل Book1.csv
می گه نمی تونه بازش کنه؟

اما اینجوری فکر نکنم بتونی حلش کنی
ممکنه مسیرهای دیتا بیس و یا فایل های دیگه ات در سیستم بعدی اشتباه باشه

[shahab2025]

نه دوست من
مشكل اگر از آن فايل بود بايد همه جا پيغام خطا ميداد. اگر دقت كنيد در انتهاي پيغام نيز از خطوط نوشته شده در برنامه ايراد ميگيره .

البته اين فايل و اين دستورات بر روي همان كامپيوتري كه برنامه را نوشته است درست اجرا ميشه...
پس فكر نميكنم مشكل از اين باشه.

[Afshin160]

دوست عزيز ....
اين چيزي كه از عكس ارور برمياد مشكل سر كانكشن و باز كردن اونه .

[shahab2025]

اين كل كد برنامه است
و تا مسيج باكس 2 اجرا ميشه



Imports System.Data.SqlClient
PublicClass Form1
Dim connect AsNew SqlConnection
Dim commandTransfer AsNew SqlCommand
Dim commandupdate AsNew SqlCommand
Dim adapter AsNew SqlDataAdapter
Dim s1 AsString
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim updatecode AsString
Dim Transfercode AsString
Dim filesource AsString
Dim fs1 AsString
Dim fs2 AsString
Dim fs3 AsString
'مêéïں¢ ê© يل ى ںھ 詧ë هںïé ںè«
' ¬©يم §«¢ي©ں¢
Try
With OpenFileDialog1
.Reset()
.DefaultExt = "csv"
.DereferenceLinks = True
.Filter = _
"Excel files (*.csv)|*.csv|" & _
"All files|*.*"
.Multiselect = False
.RestoreDirectory = True
.ShowHelp = True
.ShowReadOnly = False
.Title = "éلهں هںïé ںè«é ê© يل ى ںلéںمں¢ èں©è©§ ©ں ں뢦ں ëêںïï§"
.ValidateNames = True
If .ShowDialog() = Windows.Forms.DialogResult.OK Then
ListBox1.DataSource = .FileNames
Else : MsgBox("¤ى¢ èںëي©¢ هںïé ê© يلى ںï§ ں뢦ں گ©§§", MsgBoxStyle.Critical)
TextBox2.Text = ""
ExitSub
EndIf
EndWith
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, Me.Text)
EndTry
TextBox2.Text = ListBox1.Text
'پںïںë §«¢ي©ں¢
'مêéïں¢ ê© يل ى èںëي©¢ ںلéںمں¢
fs1 = TextBox2.Text
fs2 = """"
fs3 = """"
filesource = fs2 + fs1 + fs3

If TextBox1.Text.Length = 7 Then
If (Not System.IO.File.Exists("connection.txt")) Then
MsgBox(" connection.txt - هںïé ں©¢ ںل ں «©ي© پï§ں 묧 ", MsgBoxStyle.Critical)
TextBox2.Text = ""
ExitSub
EndIf

s1 = My.Computer.FileSystem.ReadAllText("connection.txt")
ProgressBar1.Increment(10)
ProgressBar1.Increment(10)
connect = New SqlConnection(s1)
connect.Open()
Transfercode = "execute TransferKarKard '" & filesource & "' "
MsgBox("1")
commandTransfer = New SqlCommand(Transfercode, connect)
MsgBox("2")
commandTransfer.ExecuteNonQuery()
MsgBox("3")
ProgressBar1.Increment(20)

MsgBox("èںëي©¢ ںلéںمں¢ ں êيهçï¢ ںë¤ںê ¬§", MsgBoxStyle.MsgBoxRight)


updatecode = "execute updatekarkard '" & TextBox1.Text & "' "
commandupdate = New SqlCommand(updatecode, connect)
ProgressBar1.Increment(20)
commandupdate.ExecuteNonQuery()
ProgressBar1.Increment(20)
ProgressBar1.Increment(20)
connect.Close()
MsgBox("ںë¢çںé ںلéںمں¢ ى ©ëںêى ¥çيç ي §«¢êھ§ ںë¤ںê ¬§", MsgBoxStyle.MsgBoxRight)
Else : MsgBox("ه©ê¢ ي©ي§ï ¢ں©ï¦ ­¥ï¥ ëêï ں¬§", MsgBoxStyle.MsgBoxRtlReading)
EndIf
EndSub
EndClass


البته transferkarkard و updatekarkard دو تا SP هستند كه اولي bulk insert ميكنه و دومي update table

تست اين دوتا SP هم درست است

[Computer.Programmer]

دوست عزیز بحث permissions فایلت رو چک کن. امکان داره فایلت دارای محدودیت دسترسی باشه. برای تست این کار بهتره Everyone رو اضافه کنی یا هم اینکه توی یک درایو که NTFS نیست تست بگیر ببین بازم Error می خوره.

[hossein-khoshseyar]

دوست عزیز من هم تا به حال چند بار به مشکلات مشابهی برخورد کردم
به نظر من بتر اینه که اگه می تونی توی یه کامپیوتر که برنامت اجرا نمی شه ویژوال استودیو نصب کنی و سورس برنامه رو اجرا کنی تا ببینی دقیقا مشکل چیه