ebraham
یک شنبه 03 مهر 1390, 13:24 عصر
سلام دوستان . در برنامه يك فرم داريم كه داراي يك TextBox و يك دكمه هست
كاربر در Textbox تاريخ را وارد ميكند و با كليك بر روي دكمه ، گزارش در فرم جديد نشان داده ميشود .
من از VS 2010 , Crysta 13 استفاده ميكنم و از طريق ايجاد View فيلدهاي ريپورت را ميسازم . برنامه در سيستم خودم كار ميكنه اما در كلاينت كار نميكنه و خطاي زير را ميده : 7572675726
كه نميتونه به بانك كانكشن بزنه . من در رويداد كليك دكمه كد زير را نوشته ام :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PupModule.sqlcon.Open()
Dim c As String
c = "Alter View View1 as SELECT serialno, name, family FROM dbo.customer WHERE datein =N'" & MaskedTextBox1.Text & "' AND active =N'صادر شده" & "'"
در ضمن لازمه كه بگم من در كامپيوتر كلاينت هم اينجين كريستال ريپورت را نصب كرده ام .
Dim da As New SqlDataAdapter(c, PupModule.sqlcon)
Dim ds As New DataSet
da.Fill(ds, "View1")
PupModule.sqlcon.Close()
Me.Close()
Form15.Show()
End Sub
دوستان لطفا بگيد كه ايراد كار از كجاست ؟ من كار با كريستال را زياد بلد نيستم . دوستان لطف كنند و راهنمايي كنند تا بتونم گزارش بگيرم . ممنون ميشم سريع پاسخ دهيد. تو سايت هم زياد گشتم اما كمكي بهم نكرد .
كاربر در Textbox تاريخ را وارد ميكند و با كليك بر روي دكمه ، گزارش در فرم جديد نشان داده ميشود .
من از VS 2010 , Crysta 13 استفاده ميكنم و از طريق ايجاد View فيلدهاي ريپورت را ميسازم . برنامه در سيستم خودم كار ميكنه اما در كلاينت كار نميكنه و خطاي زير را ميده : 7572675726
كه نميتونه به بانك كانكشن بزنه . من در رويداد كليك دكمه كد زير را نوشته ام :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PupModule.sqlcon.Open()
Dim c As String
c = "Alter View View1 as SELECT serialno, name, family FROM dbo.customer WHERE datein =N'" & MaskedTextBox1.Text & "' AND active =N'صادر شده" & "'"
در ضمن لازمه كه بگم من در كامپيوتر كلاينت هم اينجين كريستال ريپورت را نصب كرده ام .
Dim da As New SqlDataAdapter(c, PupModule.sqlcon)
Dim ds As New DataSet
da.Fill(ds, "View1")
PupModule.sqlcon.Close()
Me.Close()
Form15.Show()
End Sub
دوستان لطفا بگيد كه ايراد كار از كجاست ؟ من كار با كريستال را زياد بلد نيستم . دوستان لطف كنند و راهنمايي كنند تا بتونم گزارش بگيرم . ممنون ميشم سريع پاسخ دهيد. تو سايت هم زياد گشتم اما كمكي بهم نكرد .