hassan_123
دوشنبه 05 فروردین 1387, 02:42 صبح
با سلام .
این کد رو که در زیر میبینید من برای ارتباط بانک با برنامه به کار میبرم اما از آنجا که در قسمت data source نام کامپیوتر خورم رو می دم به خاطر همین اگه این برنامه روی یک کامپیوتری که نام آن فرق داشته باشه ببرم برنامه دیگه اجرا نمیشه چون اصلا این نام رو نمی شناسه لطفا بگید چی کار کنم تا این مشکل حل بشه .
"code program "
imports system.data
imports system.data.sqlclient
inherts system .windows .forms.form
dim ds as new dataset()
dim strsql as string
dim strcon as string ="data source =Ram\sqlexpress;initial catalog = student ; integrated security =true "
dim da as sqldataadapter
dim con as sqlconnection
dim newmode as boolean
dim newrow as datarow
dim cb as sqlcommandbuilder
PublicClass Form1
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
new mode =false
strsql="select *from sttable"
con =new connction (strcon)
con.open()
da=new sqldataadapter(strsql,con)
da.fill(ds,"sttable")
textbox1......
textbox2......
checkbox1....
con.close
EndSub
EndClass
این کد رو که در زیر میبینید من برای ارتباط بانک با برنامه به کار میبرم اما از آنجا که در قسمت data source نام کامپیوتر خورم رو می دم به خاطر همین اگه این برنامه روی یک کامپیوتری که نام آن فرق داشته باشه ببرم برنامه دیگه اجرا نمیشه چون اصلا این نام رو نمی شناسه لطفا بگید چی کار کنم تا این مشکل حل بشه .
"code program "
imports system.data
imports system.data.sqlclient
inherts system .windows .forms.form
dim ds as new dataset()
dim strsql as string
dim strcon as string ="data source =Ram\sqlexpress;initial catalog = student ; integrated security =true "
dim da as sqldataadapter
dim con as sqlconnection
dim newmode as boolean
dim newrow as datarow
dim cb as sqlcommandbuilder
PublicClass Form1
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
new mode =false
strsql="select *from sttable"
con =new connction (strcon)
con.open()
da=new sqldataadapter(strsql,con)
da.fill(ds,"sttable")
textbox1......
textbox2......
checkbox1....
con.close
EndSub
EndClass