Hi,

Maheshsayani is right but dont use the single quote when you r trying to change the varchar to numeric.

convert(numeric, ISNULL(quantity, 0))

Have a nice day
Shailaja

hi,

Instead of using between use >=,<= as like below

DOC_Date >='" & fromDate & "' and DOC_Date <='" & toDate & "'



Have a nice day

Hi,
I think u have no clear about the concept of foreign key. Let me explain it. See there is a primary key which is parent column and foreign key which is child of the primary key to have a...

Hi,
As you said the same code has been used for second code but the difference is filter correct. I think u forgot include the customer filter thats y u getting all customer details for the...

Thanks a lot, your example is very useful to my requrirements

Shailaja :)

hi,
Try the following code:

[CODE]

'Declare the function to open any type of file

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long,...

Hi,

I got some idea from your thread but if you given me that excel file then that could be helpful to me.

Have a nice day
Shailaja :)

Hi,
As you given in the thread is not clear because there is no recordset declaration but you setting recordset so if you need to know where is wrong then you have to give full code (i.e)...

Hi,
Try the below code to avoid the error
argFlexGrid.TextMatrix(i, j) = IIf(ISNULL(AfsugRS(j - 1) ),"",AfsugRS(j - 1) )

IIF - If only If -
if ISNULL(AfsugRS(j - 1) ) =...

Hi,

argFlexGrid.TextMatrix(i, j) = AfsugRS(j - 1)

hi,

Can you send me the excel file which you are trying to do something.

Shailaja

Hi,
Try the following Script:


TRANSFORM Sum(item.Tk) AS [Total Of Tk]
SELECT item.Category, Sum(item.Tk) AS [Total of Category]
FROM item
GROUP BY item.Category
PIVOT item.Item;

Hi,
Your code is not clear because in the code there are various procedures are called and i think you given only half of the code. From the message i get to know that you need to dowload...

Hi,

When we are using the class module then we have to create objects for that class. Each object has the property. The Property can be created by Let, Set and Get.

To know more...

Hi,
You need to add the item details from the user. Then do one thing, (i.e) instead of displaying another grid better create a small form using controls containing details as you...

Hi,
Use the below link to know about the connectivity with database using VB,

http://www.vbcode.com/Asp/code.asp?lstCategory=Database

Shailaja :)

Hi vanathi,

Try the below coding

Private Sub Command1_Click()
On Error GoTo ErrTrap
'DECLARE VARIABLES
Dim xApp As Object
Dim xWb As Object
Dim xWs As Object

hi,

Already Connection is done between VB and Oracle Database and the code is available in the "Code Module"


Conn.ConnectionString = "Provider=MSDAORA;User...

Hi,

Download the attached file and test it.


Shailaja:)

Hi,

Try the below coding,



Option Base 1 'Set Index of Array start with 0 or 1Dim i As Integer
Dim b() As Integer ' Array Variable
Dim Rearrange As Boolean
'To Delete the Selected...

Hi,

Try the below coding:



'Declare the Variables for Connection and RecordsetDim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Form_Load()

hi

Try this select no. of columns from one sheet to another.


Sub copycolumns()

'
' copycolumns Macro
' Variable Declaration

HI,

you can try the coding, this could helpful to u.



sql="select * from student"

if rs.state=1 then rs.close

Hi,

1) You can set the null value for the field by applying the value as "" or Not applying the value.

2) Check the Property for the Field

a) Required = No
b) Allow...

Hi,

Try this one. I think this may be useful to u.


Private Sub Command1_Click()
Dim A(2) As String
Dim B(4) As String
Dim C as String
A(0) = 3

hi,

Simply you like to add rows and columns means you can use below code otherwise explain clearly what is ur need.


Private Sub Command1_Click()
MSFlexGrid1.Rows = 4
...

hi,

Try the below code.




Sub copycolumns()

'

hi,


Store the whole query in string variable and execute.


SQL = ("create table " & vtblNametxt & " (id varchar2(3), pname varchar2(20), qtyp number(4))")
cn.Execute(SQL)

hi,

Array can be used only by loops and that could be very if u understand wel.
Try the below coding and if you have any doubts in below codings you can ask me i will explain u in detail.
...

hi,

Try below coding:


Sub fill2()
'
' fill2 Macro
'

hi,

You can do like below when using the variable instead of values.


IF a(0) like "*" & b & "*" THEN
-----------
...

HI,

To Refresh the Recordset you can use the ReQuery which the query executes again to get the proper results.


Shailaja:)

Hi,

You can use Like Operator or StrComp Function for Pattern Matching in Array Variable or any other Variable. You can compare the Values like below Given:

1) Bring the Array Values in...

hi,

Try the Below Query:

select c.cat_name,sum(pi.item_price * pi.item_qty) as total, c.c_vat_rate * total
from category c , purchase p,puchase_item pi,country co,seller s
where...

hi,

Try the below Query:


UPDATE EMPLOYEE_DISTRIBUTIONS SET ED.DISTRIBUTION_GROUP = PH.DISTRIBUTION_GROUP FROM
PAYS_HISTORY PH ,ACCOUNT_HISTORY AH,
EMPLOYEE_DISTRIBUTIONS ED
WHERE...

hi,

Your code is right but u had used the @TABLE_NAME AND @AUDIT_TABLE. Both the variables are not the Table type so it wont allow to create the table to your requirement. Store the query in ...

hi,

Try to avoid Posting the same.

Try Below query:

Select CI.name,I.ServiceID,P.packagename,P.duration,sum(p.price),P.price,I.date,I.timeIn,I.timeOut
From CustInfo CI, InDate I,...

Hi,

Try the below coding:

Sub attendance()
Dim i, j As Integer
Dim inp As Integer
For i = 1 To 65536
If Sheet2.Cells(i, 1) = "" Then
i = i - 1

hi,

Try the below codings:

Sub Macro4()
'
' Macro4 Macro
'

'

hi,
First Example is wrkg well. Then why you geting the errors Check well. And then for functions owner name is not an optional one, You must define the function name with owner name to...