Ali-23
شنبه 22 آذر 1393, 22:20 عصر
سلام من داخل برنامه 2 دیتاگرید دارم .
که از دیتابیس اطلاعاتی را دریافت می کنند .
مشکلی که برخوردم اینه که هر دیتا گرید دارای یک table جداگانه است table دوم با اولی در relation می باشد .
به این صورت که می خوام با استفاه از function وقتی روی یکی از رکورد های datagrid 1 کلیک می شود اطلاعات datagrid 2 به روز شود .
اطلاعات function ها و مطالب دیگر داخل یک modules.cls می باشد .
http://up.persianscript.ir/uploads/9007-barname.png
این function که ایجاد کردم اما نتوستم از برنامه استفاده کنم و اطلاعات رو ازش بگیریم و دیتاگرید دوم رو بروز کنم .
به صورت تست دیتاگرید دوم رو با یک مقدار ثابت 41 به کار انداختم اما خواستم طوری باشد که از id را از datagrid اول بگیرد و اطلاعات را از جدول دوم که ارتباط دارد با gettelbyid بخواند .
Function gettelbyid(pid As Integer) As Integer
Dim gn As New ADODB.Connection
gn.ConnectionString = getcntstring
gn.Open
Set gs = New ADODB.Recordset
gs.CursorLocation = ADODB.CursorLocationEnum.adUseClient
gs.CursorType = ADODB.CursorTypeEnum.adOpenStatic
gs.LockType = ADODB.LockTypeEnum.adLockBatchOptimistic
gs.Open "select * from prsntel where prsnid = pid", gn
gs.ActiveConnection = Nothing
gn.Close
End Function
مشکلی که برخوردم اینه که DATAGRID دوم رو نمی تونم درست از روش FUNCTION با استفاده از MODULES ست کنم
فایل پروژه و بانک اطلاعاتی رو هم پیوست کردم
که قابل بررسی کامل باشد
که از دیتابیس اطلاعاتی را دریافت می کنند .
مشکلی که برخوردم اینه که هر دیتا گرید دارای یک table جداگانه است table دوم با اولی در relation می باشد .
به این صورت که می خوام با استفاه از function وقتی روی یکی از رکورد های datagrid 1 کلیک می شود اطلاعات datagrid 2 به روز شود .
اطلاعات function ها و مطالب دیگر داخل یک modules.cls می باشد .
http://up.persianscript.ir/uploads/9007-barname.png
این function که ایجاد کردم اما نتوستم از برنامه استفاده کنم و اطلاعات رو ازش بگیریم و دیتاگرید دوم رو بروز کنم .
به صورت تست دیتاگرید دوم رو با یک مقدار ثابت 41 به کار انداختم اما خواستم طوری باشد که از id را از datagrid اول بگیرد و اطلاعات را از جدول دوم که ارتباط دارد با gettelbyid بخواند .
Function gettelbyid(pid As Integer) As Integer
Dim gn As New ADODB.Connection
gn.ConnectionString = getcntstring
gn.Open
Set gs = New ADODB.Recordset
gs.CursorLocation = ADODB.CursorLocationEnum.adUseClient
gs.CursorType = ADODB.CursorTypeEnum.adOpenStatic
gs.LockType = ADODB.LockTypeEnum.adLockBatchOptimistic
gs.Open "select * from prsntel where prsnid = pid", gn
gs.ActiveConnection = Nothing
gn.Close
End Function
مشکلی که برخوردم اینه که DATAGRID دوم رو نمی تونم درست از روش FUNCTION با استفاده از MODULES ست کنم
فایل پروژه و بانک اطلاعاتی رو هم پیوست کردم
که قابل بررسی کامل باشد