کد PHP:
strSQL = " select [SN] where sn=txtb1.value and out_date=(select max(last_Out) from [GM$] " & ComboBox3.Text
-
با [] و بدون [] نوشتم، خطای سینتکس میده -
از کد زیر میتونی استفاده کنی
در فایل پیوست یک نمونه درست کردم که میتونی تعمیم بدی به فایل خودتکد PHP:
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String, strsql1 As String, strsql2 As String
Dim fpath As String
Dim str As String
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
fpath = ThisWorkbook.Path & Application.PathSeparator & ThisWorkbook.Name
str = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=""" _
& fpath & """;Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
strSQL = "select max([Out_Date]) from [GM$]" & _
"where [GM$].[sn]= '" & ComboBox1.Value & "'"
cnn.Open str
rs.Open strSQL, cnn
[CENTER]
[SIGPIC][/SIGPIC]
[/CENTER]کامنت
-
من اومدم فرم خودم را به شکلی که در فایل ضمیمه آپ کردم تغییر دادم
اما 2 تا سوال داشتم
1. چرا خطای زیر اتفاق میفته؟ در صورتیکه مقدار هم میگیره
2. میخوام وقتی سابقه ای برای کالای مورد نظر نباشه بیاد در ستون مربوطه عبارت (بدون سابقه) را بنویسه با if نوشتم اما باز هم همون خطای زیر رو میده
ممنون از راهنمایی های خوبتونفایل های پیوست شدهکامنت
-
-
فرمت این جدولت دچار مشکله خودمم باهاش به مشکل خوردم و کلا فایل و جدول رو تغییر دادم
اول اینکه تاریخ هات راست به چپ وارد میشه و اصلا کدی که نوشتم براش کار نمیکنه
دوم اینکه اسامی فیلدهات کاراکتر اضافه داره که باعث میشه کد اون هارو نشناسه مثلا 'Entrance_date اون کامای کنار date یا این ^Last_Out
این خطا هم به همین دلیل هست[CENTER]
[SIGPIC][/SIGPIC]
[/CENTER]کامنت
-
کامنت
-
نه فایل خودمکامنت
-
اون کدا رو با کمی تغییرات توی فایل خودم کپی کردم و خطا میدهکامنت
-
دیشب ی فایل دیگه درست کردم خطای ارتباط با اکسس میداد !!! میگفت فایل اکسس رو پیدا نمیکنه
امروز ی فایل دیگه درست کردم درست شد منتها تاریخ رو درست نشون نمیداد (مثل فایلای قبلی که آپ کردم بود) که از طریق کنترل پنل و regional and lang فرمت ساعت کامپیوتر رو تغییر دادم اونم درست شد.
ممنون از راهنمایی که کردیدکامنت
-
برای گزارش گیری کد زیر رو نوشتم اما بجای اینکه مواردی که میخوام رو بیاره تمام داده ها را بدون فیلتر میاره
کد PHP:Private Sub CommandButton1_Click()
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String
Dim fpath As String
Dim str As String
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
fpath = ThisWorkbook.Path & Application.PathSeparator & ThisWorkbook.Name
str = "provider=microsoft.ace.oledb.12.0;data source=""" & fpath & """;extended properties=""excel 12.0"";"
strSQL = "select * from [GM$]"
cnn.Open str
rs.Open strSQL, cnn
rs.Filter = "sn= '" & txtb1.Value & "' or entrance_date >= '" & txtb2.Value & "'"
Sheets("report").Range("report").Clear
Do While Not rs.EOF
cnn.Execute "INSERT INTO [report$] ([sn],[model],[last_out],[entrance_date],[out_date],[complete],[ownership],[day],[month],[year],[operation_time],[disassembling]) " & " values ('" & rs!sn & "','" & rs!model & "','" & rs!last_out & "','" & rs!entrance_date & "','" & rs!Out_date & "','" & rs!complete & "','" & rs!Ownership & "','" & rs!day & "','" & rs!month & "','" & rs!year & "','" & rs!operation_time & "','" & rs!disassembling & "')"
rs.MoveNext
Looprs.MoveFirst
End Sub
کامنت
-
این بهم ریخته سر در نمیارم فایل بذار لطفا[CENTER]
[SIGPIC][/SIGPIC]
[/CENTER]کامنت
-
فایل را ضمیمه کردم
1. مشکلی که دارم اینه که فیلتر عمل نمیکنه
2. در فرمی که اطلاعات اولیه را وارد میکنم تاریخ خروج را ابتدا وارد نمیکنم،زمانیکه بخواد کالا خارج بشه تاریخ را باید از طریق همون فرم وارد کنم، کدی را نوشتم اما عمل نمیکنهکامنت
کامنت