DIM TL as new adodb.recordset
reply me if get any problem
Crystaltech
Last Activity: Oct 28 '09, 07:20 AM
Joined: Jul 5 '07
Location:
-
Problem is in
If TL.State = 1 Then TL.Close
(TL ...not described in declaration..so please explain) -
I tried following query but its giving me wrong total
''''''''''''''' ''''''''''''''' ''''''''
SELECT Prd.Item_Name, Sum(P.Piece_No) AS PStock, Sum(D.Itm_Qty) AS SoldStock, Sum(R.Itm_Qty) AS RefStock, Sum(P.Piece_No)-Sum(D.Itm_Qty)-Sum(R.Itm_Qty) AS Avl_Stock
FROM Refund_Detail AS R, (Product AS Prd INNER JOIN Purchase_Detail AS P ON Prd.Item_Name = P.Item) INNER JOIN Detail_Descript ion AS D ON Prd.Item_Name = D.Item
WHERE... -
.. May be this will help you TO COPY FILE OR FOLDER
Dim txtdbpath As String 'this is your database file
Dim txtdbpathcopy As String 'this is your copy path
Dim intResponse, fs
' the following double checks, Are you sure?
intResponse = MsgBox("Are you sure that you wish to make a copy of your file now?", vbYesNo + vbDefaultButton 1 + vbQuestion, "Crystal Technosoft")
...Leave a comment:
-
'''' hope this will help
Private Sub Command1_Click( )
dim DTL AS NEW ADODB.RECORDSET
If DTL.State = 1 Then DTL.Close
DTL.Open "select FieldName from Table Name", con, adOpenKeyset, adLockPessimist ic
If DTL.RecordCount > 0 Then
Set DataGrid1.DataS ource = DTL
End subLeave a comment:
-
''' may be this will help you
...Code:Private Sub DataGrid1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then If TL.State = 1 Then TL.Close TL.Open "select Field Name from Table Name where Field Name = " & DataGrid1.text & "", con, adOpenKeyset, adLockOptimistic '''Storing this records to another table With TL .AddNew
Leave a comment:
-
What is SQL Query?
I am using VB6.0 and MS Access
I have 4 tabel
Table Name Field Name
1 – Product Item_Name
2 – Purchase Piece_No
3 – Invoice Itm_Qty These all have Field Name ( Item_Name )
4 – Refund Itm_Qty
Out Put I want is
Item_Name Pur (Piece_No) Invo(Item_Qty) Ref(Itm_Qty) Stock
ABC 123 300 200 50 50
... -
Vb Code Problem
Hello Friends
I m new user and new in vb also
plz can you help me for the following code
some times its working but some times its not working
i m using universe database
[CODE=vb]Select Case fConnected
Case True
Set file = uv.OpenFile("IT EMS.IDX.VIHSKEY ")
STRR = txtcci.Text
file.RecordId = STRR
...
No activity results to display
Leave a comment: