Tracking Forums, Newsgroups, Maling Lists
Home Scripts Tutorials Tracker Forums
 
  HOME    TRACKER    Visual Basic




MSADODC.ocx Missing


I burnt a program I did which deals with databases. I burnt the exe file and database but once i tried using the program on another computer it said something about a missing MSADODC.ocx.
*I used "make..." to create the exe file. It worked on my computer.




View Complete Forum Thread with Replies

See Related Forum Messages: Follow the Links Below to View Complete Thread
Msadodc.ocx <---???
The project I am trying to load says that I need msadodc.ocx, but I don't have it on any of my 6 machines.

Where can I find this file?

What is it's purpose??

Thanks!

HELP!!!MSADODC.OCX
i'm getting this error

Component MSADODC.OCX or one of its Dependancies not correctly registered : a file is missing or invalid.

what i did was, i have a datagrid and a ado data control. i connected these 2 objects and a database. everything is working fine. then i made it into an .exe file. i went to file-->make project1.exe (is this the right way to make a .exe???)

so then i wanted to share that .exe file. i used a computer connected through the network and clicked on the .exe file and it throws me this error. i really am lost here. can some1 please help me resolve this?

Msadodc.ocx Error
Out of the blue I have 12 ocx's that refuse to work. Through reinstalling some packages, I have all but 1 left-msadodc.ocx. The error is ...msadodc.ocx cannot be loaded. Continue loading. The problem with the other ocx's was licencing. I have reinstalled vs6sp4, vs6sp5, and ran vbc6.exe (vb6cli.exe download from MS that was supposed to fix this). Does anyone know how to fix this or how to uninstall vs6sp4,5 so that I can try to re-install it?

MSADODC.ocx Error
Hi,

I'm making a simple database program to use at work to record 4 data fields:

JobID
Date
CO#
Description

I created the database with Access 2000, loaded up the database OCX in Visual Basic 6, and got the database frontend up and running. Everything worked fine at home, but when I brought the program to work on a CD, (I included the VB6 runtimes, the OCX, and the database file) it wont' work.

The database control is disabled, and I get this error message when I try to submit a new record into the database:


Quote:




Run-time error '91':

Object variable or With block variable not set




At home I'm running Windows XP Home Edition, and at work I'm using Windows NT 4.

Anyone have any suggestions?

Thanks
-Justin

Msadodc.ocx Could Not Be Loaded
Hi all
Pls reply soon to this.
Every thing was fine till y'day.
Today when i tried to open my project in VB6, it is giving a message saying C:WindowsSystemmsadodc.ocx could not be loaded.
I unregistered and registered the said ocx and tried but in vain.
I open my earlier projext, the same problem.
I opened a new project and tried to check Microsoft Ado Data Control 6.0, It denied and same problem.
What should i do?
Is msadodc.ocx file is corrupted or changed.
How to get the correct one.
if Installing VB6 again will resolve this?
If VB6 installed again, what will happen to my current projects?
I have registered some Dlls, will these be available in reinstaaled VB6?
pls help urgetntly
Radhesham

Component 'MSADODC.OCX' Or ...
I have written a number of VB applications that are supported by a MASTER ACCESS Database.

I converted them into .exe files and deployed on the network. They all use ADODC to connect to the ACCESS database and yet some of them work and others return the following error:

Component 'MSADODC.OCX' or one of its dependencies not currently registered: a file is missing or invalid

What is this error and any recommendations on how to fix it?

Thanks

Cannot Instantiate MSADODC.OCX
Hi everyone,

I am unable to instantiate an Adodc control on win98. On my dev. machine (Winnt4.0) everything works fine so I created my installation with PDW (I know many of you use something else like INstallShield or Wise but I can't ). It's a VB6.0 application.

Now I have an execution error "429" on a CreateObject("msadodclib.msadodc") line.

I know this surely have to do with some messed up depedencies by the PDW but I am unable to find a solution.

I also have a problem registering oledb32.dll using PDW. I think this have to do with the fact that PDW distributes an NT version of oledb32.dll to a Win98 machine. For now I removed it from the package since there already is one oledb32.dll on my win98 machine and I have been able to register it.

This was NOT a good choice of day to stop smoking

So, if anyone knows how I could get my package to works correctly I would be a very very happy man!

 

MSADODC.OCX Could Not Be Loaded
hi all,

i've got this message when i try to open a VB project in Visual Basic 6. The message is "'d:project folderMSADODC.OCX'
could not be loaded." anyone has any ideas?

There are some more errors :
"Error during load. Refer to "d:project folderfrmDocument.log"
for details."

when i look into the log file, it stated as below :
"Line 88: Class MSAdodcLib.Adodc of control AdodcUserMon was not a loaded control class."

Has anyone come across this?

Thanks in advance.

Msadodc.ocx Run-time Error 339
I have made a program using VB6 and I want to be able to use it on other computers. The program accesses an Access 2002 database. After putting it on several machines I have discovered that I get a run-time error 339 when i load it up, and after that I get an error about about msadodc.ocx missing or one of its dependencies. I have tried this on a windows 95, windows 98, and windows XP, and the only one it seems to work on is mine that has VB6 installed. I tried using the package and deployment wizard, but with little hope. Is there a setup file i need to download from microsoft or something to get it to work. I have downloaded the Visual Basic runtime files a long time ago and used them to get the programs to initially work, but the database things got things all screwed up. Please, PLEASE, let me know if you can help.

Problem With Loading Msadodc.ocx
Hello,I have a really nasty problem in my version of visual basic. When I try to add Microsoft ADO Data Control 6.0 (OLEDB) control to my project, I got an error message stating that "C:WindowsSystemMSADODC.OCX" could not be loaded . Any information about this problem would be greatly appreciated.

Lost Access To MSADODC.ocx
Found my ADO data connection component on the form.
It has mysteriously turned into a "picture box". Found out my
Microsoft ADO Data Control 6.0 in the components list has
been disabled. Tried to re-enable it and I get "Name conflicts
with existing module, project or object Library" error. I opened
an older version of the same project and everything regarding
this component is a-ok. What could be the problem?

Thanks

Tom

MSADODC.OCX Runtime Error
Hi,
When ever I open my .exe file I made on another machine I get this error:
Component: MSADODC.OCX or one of its dependences not correctly registered.

Can you give me the URL of the patch that is needed to over come this error?

Im using VB with ADO access connections (if that sheds any other light on it)

MSADODC.OCX Run Time Error
Hi,
When ever I open my .exe file I made on another machine I get this error:
Component: MSADODC.OCX or one of its dependences not correctly registered.

Is there a patch or something I need and can you point me in the right direction

MSADODC.OCX Problem When Running An VB6 .EXE File
Hello to all.
I am new to this forum and I hope I will get some valuable information

I made an EXE in VB 6.0 (in windows XP Pro) that is connected with a Access 2000 that adds , updates or deletes records. The application works fine.

When i copy the EXE file and the MDB in another machine (windows 98), when i run the applications says a box :

Runtime error 339. Components MSADODC.OCX or one of its dependecies not currently registered a file is missing or invalid.

I tried to install MDAC 2.5 or MDAC 2.6 but unfortunately it still didn't solve the problem.

Another thing is that in another windows 98 machine, first time the app didn't work but since I installed MDAC 2.5 the application worked fine with no problem at all. What should I do ? How can I fix this * * * * problem ? I couldn't get any help so far. Should I register something ? Should I run something first ? Even with the package and deployment wizard, when I run the SETUP.EXE it showed me a message :

An error occured while registering C:WINDOWSSYSTEMMSADO25.TBL (also Abort, Retry, Ignore below) and then if i Ignore says : The file C:WINDOWSTEMPmsftqws.pdw$(DLLSelftRegisterEX) could not be registered because it was not found

I will be waiting for responses. Anything, anyone because I work on this thing 2 months now but cannot go further :-(

Registering Msadodc.ocx And Msdatlst.ocx Under Vista
I am having trouble with using these controls on a VB 6 form under Vista. On compiling the form I get balnk white spaces where the contols are placed. Appears to me that the controls have not been registered. I have tried registering them using regsvr32 but no dice.

Can someone help?



 

Newbie Who Started Programming VB Today Needs Help! (msadodc.ocx?)
Hey,

I just started VB programming today. I'm familiar with programming and I'm getting used to Visual Basic. I'm using Visual Basic 6 and I created an application with an Access database. Basically, the program displays entries in the database and can enter data in it also. I did a File-Make filename.EXE the program to a .EXE file. I want to be able to have the application and database moved to another computer for mobility. When I moved the .EXE file and the access database to another computer, I got an error mentioning msadodc.ocx. How would I be able to have the program and database moved to another computer and work properly? Thanks in advanced!

-Kris

Missing Ocx File Missing Dll , When Will It Stop!
I have made a program that uses msinet.ocx (INET) file transfer , and it works perfectly with mine , i was so happy to finish the project , when i sent it to a friend to test it on his computer , he told me that he didint have the correct ocx's

I am wondering if theres a global ocx or dll all omputers have that i can use to have simular ftp access like winsck or inet.

or do i have to putt a built in ocx registerer in my program?
or can i only have the needed dll's present in the APP.path ?

to make the question simple as possible

how can i make a project to work on all XP computers.

I Have Ploblem Run My Exe. ==>"399 Cannot Find Msadodc.ocx".
After I compile my project to EXE and run it on windows XP .
My project cannot run and return error "399 Cannot find msadodc.ocx".
This is platform independent ploblem or I dont' know something
about compile technic.

Thank you for any suggestion

Missing DLL
Hi, When you deploy a package created with VB6 there are some
files dll's etc that should be included, and probably some recommended by MS P&DW that are not necessary.
What's absolutely necessary so your package will run on most common Win machines??
My particular program loads an Access database if that helps.

Thanks
Ray

Im Missing Something.. But What??
hi ppl.. i have a probelm and i just cannot seem to solve.

I am recieving the following throught the comms port and YES i am actually recieving it all...

Code:
Chr(27) 'Escape
Chr(91) '[
"1" '1
Chr(59) ';
"1"
"0" '10
Chr(104) 'H
"H"
"e"
"l"
"l"
"o"

They are recieved one after the other.

I have to write some code that will look at the recieved characters. The 3rd character i recieve is a coordinate for an x value and the 5th character i revcieve is a y coordinate. NOTE: Both x and y values can be than 2 characters. for eg. i could recieve


Code:
Chr(27) 'Escape
Chr(91) '[
"1" '15
"5"
Chr(59) ';
"1" '10
"0"
Chr(104) 'H
"H"
"e"
"l"
"l"
"o"

however i dont know if they are going to be 2 characters or not.. then "H" at the end signals the end of the characters that give the coordinates and the in the top example the propgrame goes to the coordinates (15,10) then writes out "Hello"

I hope i have explaned well enough..

The problem is that for some reason my progrmae is not dropping into one of the ElseIf things.. and while i would have thought that, that would have been one of the most obivious things to try and fix this is just got me totally frustrated..

Here is the code:

Code In Form:

Code:
Private Sub MSComm1_OnComm()
If MSComm1.CommEvent = comEvReceive Then
Call Module1.CheckCommandString
End If
End Sub

Code in Module:


Code:
Option Explicit

Dim state As Integer
Dim newChar As String
Dim setX As Boolean
Dim setY As Boolean

Function CheckCommandString()
newChar = Form1.MSComm1.Input

If state = 0 And newChar = Chr(27) Then
state = 1
ElseIf state = 1 And newChar = Chr(91) Then
state = 2
ElseIf state = 2 And IsNumeric(newChar) = True Then
state = 3
Form1.UserControl1.CurrentX = newChar
setX = True
ElseIf state = 3 Then
If IsNumeric(newChar) = True And setX = True Then
Form1.UserControl1.CurrentX = Form1.UserControl1.CurrentX & newChar
End If
state = 4
'MsgBox newChar 'At this point newChar = ;
'MsgBox state 'At this point state = 4
ElseIf
ElseIf state = 4 And newChar = Chr(59) Then 'chr(59) = ";"
state = 5
ElseIf state = 5 And IsNumeric(newChar) = True Then
state = 6
Form1.UserControl1.CurrentY = newChar
setY = True
ElseIf state = 6 Then
If IsNumeric(newChar) = True And setY = True Then
Form1.UserControl1.CurrentY = Form1.UserControl1.CurrentY & newChar
End If
state = 7

ElseIf state = 7 And newChar = Chr(104) Then 'chr(104) = "H"
state = 0
Else
' MsgBox Form1.UserControl1.CurrentY
' MsgBox state
' MsgBox newChar

Form1.UserControl1.PutChar newChar
setX = False
setY = False
End If

End Function

Thanks greatly for any help on this,
Someone

Am I Missing Something?
I am working a project and today I began the part that will write some data from a form into a document template and print it out. I've seen a lot of people talking about interfacing with Word to do this so I went ahead and made the template.
Then I went to write the code and I don't seem to have the Office 2000 developer add-in. I did a search on MSDN and found the instructions on how to load the add-in, but it's not in my list of possible add-ins. I don't seem to have any Word related options in my components list either. Is there something I need to download before my program can talk to word? Thanks.

Kevin

Missing
Hi

We have a MSFLEXGRID attached to data in a saved Excel
spreadsheet via a bound data control, but the values from
certain cells are not coming across into VB.

What makes it even more strange is that if slight changes are
made to the Excel file then different cells are missing.

Has anyone come across this before ?
Could it be a bug that's been fixed in a newer version of
MSflexgrid ?

Thanks for any help.


Av Bains

Am I Missing Something? Help Please
Code:
Open " " & App.Path & " Premade Themes2 Column1mn1mn.txt"
What Am I missing there? It keeps returning a..

Run-Time Error 52;
Bad File Name or Number

Any ideas anyone?

Missing Add-In's For VB6
Hey guys, just a quick question.

I only have 3 add-in's listed when I go to the add-in wizard. I've been in need of the Resource Editor and now more immediatle the VB 6 ActiveX Ctrl Interface Wizard.

Is there anywhere I can download these, or is there something I'm missing?

Many thanks for help!!

Missing Add-Ins
I hate to ask the uber-newb questions, but I am trying to use the ActiveX Controls Interface wizard, and after following numerous instructions, I was led to the Add-In>Add-In Manager>VB 6 Activex Controls Interface Wizard.

However, when I go to add-in>add-in Manager, VB 6 Activex Controls INterface Wizard is not loaded as an available add-in. Any ideas on how to load them? I know I have the files, as they are available in the "add references", but they just don't show up in the add-in. Please help!

Missing .dll
Can someone tell me if and where I can download a dll file.
I have aprogram that did an update and now it doesnt work, says it is missing snmpapl.dll
I have done a reinstall, but same problem
Not sure what to do.

any help?

Dale S

Dll Missing
while trying to connect the database in crystal reports, it gives me 2 errors: ODAPIxx.dll and PDBBTRV.dll is not found... now where do i get that from?

Missing Out??
I think I am missing out here, where is "VBulletin" and how do I join
and I have downloaded from EliteVB the Program but cant Log in.
Can anyone help??

Missing Dll's
Hello all. Well I finally got C++ installed but am having some big problems with missing dlls. The install went perfect with no erros so maybe I need a new service pack or something? Two of the first dlls I have found missing are:
mspdb60.dll
ntdll.dll
and still moe and I have tried registering them and no luck(I have XP) so if anyone can lean me somewhere or get me on the right track it would be greatly appreacited so thanks in advance and have a good one Thanks.

Missing Something
I have an application that runs as a scheduled task at system boot.

Normaly if the application was executed from the desktop it would imediately tray its self and wait for the user to show the configuration from via a rightclick context menu.


However when run as a scheduled task, it runs hidden in the context of the specified username and therefor does not show in the system tray.

To prevent multiple loads and to allow configuration in this state I figured on the second instance of the attempted launch to in the form load.



Code:
If App.PrevInstance Then
INI.WriteToIni "1", "ShowMe", "Server", "Scepter.ini"
PUnload = True 'needed to tell query unload it was intentional
Unload Me
End
End If

and on the form have...


Code:
Private Sub Timer4_Timer()
If INI.GetFromIni("Server", "ShowMe", "Scepter.ini") = 1 Then
INI.WriteToIni "0", "ShowMe", "Server", "Scepter.ini"
Me.Tray.Show True
Me.WindowState = 0
Me.Visible = True 'redundant with the show i know however was
'trying to see if it had any effect
Me.Show
End If
End Sub

That was if it is running hidden or not when the user clicks the icon to launch/configure again it will display the configuration screen.

If I attempt to launch multiple times from the desktop it works perfect, but when it is running as the scheduled task I get the form with half the controls (Lables,textboxes,etc...) missing.


Anyone have a clue why?

What Am I Missing?
Whenever I press my "F1" while a ADO command is selected (i.e., rs=cn.OpenSchema) I get an error message stating "unable to display help"

I have Visual Studio 6.0 Enterprise Edition.

Missing OCX
I just inherited a project from a company that that went belly up two years ago. I am trying to compile the code and I get a missing OCX (FLP32X20.OCX) error. I have searched far and wide, even downloading the newest VB updates, and cannot find it. Any ideas?

-ABC

Is This A Known Bug Or Am I Missing Something...
Hello,

Create a new project, place a picturebox on it, copy it and paste it so you have an array of picturebox1().


Then place following code in your form,


Code:
Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Const HTCAPTION = 2
Private Const WM_NCLBUTTONDOWN = &HA1



Private Sub Picture1_Click(Index As Integer)
MsgBox "Hello World", vbInformation
End Sub

Private Sub Picture1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
ReleaseCapture
SendMessage Picture1(Index).hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End If
End Sub
Private Sub Picture1_Click(Index As Integer) DOESNT REACT WITH THE LEFT MOUSE BUTTON, only the right one !!!, until you remove the Picture1_MOUSEDOWN event.

thats weird

Am i missing something or is it a bug ??

regards

Ranma_at

What Is Missing On NT4?
Does anyone know why the following code will not run on NT4,
but does run on Win2k and XP?

The error on NT4 is no Active Object : Shell.Application

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("C:Scripts")

Thanks
Dom

Dll Missing`
I just recently made a app that uses Vb common Dialog 6.0. Some people who try to run the program get the erro "a required .DLL file, MSVBVM60.DLL". And can't run it, any suggestions?

Missing Dll?
I've made a small program and it doesn't use anything but regular controls like buttons, listboxes and stuff.

I have developed the file in VB6 and my OS is WinXP. I have mailed the file to my work (OS win2000) and the file ran without any problems. Now when I sent the file to a friend also using WinXP he gets a missing dll error.

This dll is missing/not registred MSSTDFMT.DLL
(he can't find it when he makes a search too)

How come!? When I make a simple application shouldn't that one run without problems on a WinXP install? What does that dll do.??

Missing Something
Can someone tell me how to get the activeX Data Objects 2.6 library. I've tried searching msdn.com but can't seem to find a download for it.

Missing End If's
This is so sad for me as I just can't see where I need to put my End if's in this bit of code.

I gat the following error message:

Comiple error
Block If without End If

Can someone sort it out for me if possible or even shorten the code:


Code:
Private Sub CmdSave_Click()

If txtNewHistory.Text = "" Then
History1.filename = ""
MsgBox ("There is no Date!"), 48, "Empty Name"
txtNewHistory.SetFocus
Exit Sub
End If
History1.filename = txtNewHistory.Text & ".CDL"
History1.InitDir = App.Path
History1.Filter = "Code Library Files (*.CDL)|*.CDL"
If History1.filename <> "" Then
Open History1.filename For Output As #1
If txtActual(0).Text = "" Then
If txtActual(1).Text = "" Then
If txtActual(2).Text = "" Then
If txtActual(3).Text = "" Then
If txtActual(4).Text = "" Then
Close #1
MsgBox ("There is no Date to save!"), 48, "Empty Date"
txtActual(0).SetFocus
txtActual(1).SetFocus
txtActual(2).SetFocus
txtActual(3).SetFocus
txtActual(4).SetFocus
Exit Sub
End If
'Print #1, txtActual(index).Text 'save string to file
Close #1 'close file
txtActual(0).Text = ""
txtActual(1).Text = ""
txtActual(2).Text = ""
txtActual(3).Text = ""
txtActual(4).Text = ""
txtNewHistory.Text = ""
Filcode.Refresh
End If
lblNewHistory.Visible = False
CmdSave.Visible = False
txtNewHistory.Visible = False

End Sub

Thanks in advance

What Am I Missing?
here is the code


Code:
Dim rstGeneric As ADODB.Recordset
strProc = "prcAssignSharedID('Customers')"
Set rstGeneric = New ADODB.Recordset
Set rstGeneric = CNN.Execute(strProc, , adCmdStoredProc)
temp = rstGeneric.Fields(0)
When I run the code the last line gives an error that item is not in the collection. Debug says that rstGeneric is closed. So in other words the record set is closed, it does not contain the record set that my stored procedure returns. just for additional info below is the stored proc code. Database is sqlserver 7. And I have to run the stored proc from the connection execute, for other reasons I can not use the command object.


Code:
CREATE PROCEDURE [prcAssignSharedID]

/*
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
unique id values for parent data tables
These IDs are shared by child tables
This Procedure is to be called prior to adding new
records to any parent table.
If successful, it inserts a row with the SharedID
Into the parent table.
All other changes must follow immediately and
will be updates to the row created by this procedure.
The application software will be required to control
creation of duplicate records.
Returns:The generated @SharedID for the parameter @TableName.
The Table SharedIDControl indicates the code used
for the @TableName. An example of a SharedID is:
AA0301000537
Table Code->^YYMM^<-Issued Sequence within Year(YY)/Month(MM)
If the row insert of the SharedID fails the
procedure will return the value ZEROROWS to
indicate that the subsequent update will fail.
Concerns:In an internet based implementation, if the connection
fails, then an issued SharedID would not be returned
for the subsequent update. In this case a row will
exist in the parent table with only a SharedID.
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
U P D A T E S
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
By:
Date:
Purpose:
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
*/

@TableName NVARCHAR(100)

AS

DECLARE
@CurrentYear NVARCHAR(2),
@CurrentMonth NVARCHAR(2),
@CurrentYearMonth NVARCHAR(4),
@TableCode NVARCHAR(2),
@LastValueUsed INT,
@LastYearMonthUsed NVARCHAR(4),
@TheRowCount NVARCHAR(8),
@SharedID NVARCHAR(12)

SELECT @CurrentYear = RIGHT(CAST(YEAR(GETDATE()) AS NVARCHAR(4)),2)
SELECT @CurrentMonth = RIGHT('00' + (CAST(MONTH(GETDATE()) AS NVARCHAR(2))),2)
SELECT @CurrentYearMonth = @CurrentYear + @CurrentMonth

SET TRANSACTION ISOLATION LEVEL SERIALIZABLE

BEGIN TRANSACTION
SELECT
@TableCode = TableCode,
@LastValueUsed = LastValueUsed,
@LastYearMonthUsed = LastYearMonthUsed
FROM
SharedIDControl
WITH (ROWLOCK)
WHERE
TableName = @TableName

IF @CurrentYearMonth > @LastYearMonthUsed

BEGIN
SET @LastValueUsed = 0
SET @LastValueUsed = @LastValueUsed + 1

UPDATE
SharedIDControl
SET
LastYearMonthUsed = @CurrentYearMonth,
LastValueUsed = @LastValueUsed
WHERE
TableName = @TableName

SET @SharedID = @TableCode + @CurrentYearMonth + RIGHT('000000' + (CAST(@LastValueUsed AS NVARCHAR(6))),6)
END

IF @CurrentYearMonth = @LastYearMonthUsed

BEGIN
SET @LastValueUsed = @LastValueUsed + 1

UPDATE
SharedIDControl
SET
LastValueUsed = @LastValueUsed
WHERE
TableName = @TableName

SET @SharedID = @TableCode + @CurrentYearMonth + RIGHT('000000' + (CAST(@LastValueUsed AS NVARCHAR(6))),6)

END


/*
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
P A R E N T T A B L E S A N D U N I Q U E K E Y I D C O L U M N N A M E S
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
AuctionSitesSharedID
CompanySharedID
CustomerOrdersCustomerOrderID
CustomersSharedID
InventorySourcesSharedID
PaymentSourcesSharedID
PurchaseOrdersPurchaseOrderID
ShippingInContactsSharedID
ShippingOutContactsSharedID
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
*/

IF @TableName = 'AuctionSites'
BEGIN
INSERT
AuctionSites
(SharedID)
VALUES
(
@SharedID
)
IF (@@ROWCOUNT = 0) AND (@TableName = 'AuctionSites')
BEGIN
SET @SharedID = 'ZEROROWS'
SET @LastValueUsed = @LastValueUsed - 1
UPDATE
SharedIDControl
SET
LastValueUsed = @LastValueUsed
WHERE
TableName = @TableName
COMMIT
RETURN
END
END

IF @TableName = 'Company'
BEGIN
INSERT
Company
(SharedID)
VALUES
(
@SharedID
)
IF (@@ROWCOUNT = 0) AND (@TableName = 'Company')
BEGIN
SET @SharedID = 'ZEROROWS'
SET @LastValueUsed = @LastValueUsed - 1
UPDATE
SharedIDControl
SET
LastValueUsed = @LastValueUsed
WHERE
TableName = @TableName
COMMIT
RETURN
END
END


IF @TableName = 'CustomerOrders'
BEGIN
INSERT
CustomerOrders
(CustomerOrderID)
VALUES
(
@SharedID
)
IF (@@ROWCOUNT = 0) AND (@TableName = 'CustomerOrders')
BEGIN
SET @SharedID = 'ZEROROWS'
SET @LastValueUsed = @LastValueUsed - 1
UPDATE
SharedIDControl
SET
LastValueUsed = @LastValueUsed
WHERE
TableName = @TableName
COMMIT
RETURN
END
END


IF @TableName = 'Customers'
BEGIN
INSERT
Customers
(SharedID)
VALUES
(
@SharedID
)
IF (@@ROWCOUNT = 0) AND (@TableName = 'Customers')
BEGIN
SET @SharedID = 'ZEROROWS'
SET @LastValueUsed = @LastValueUsed - 1
UPDATE
SharedIDControl
SET
LastValueUsed = @LastValueUsed
WHERE
TableName = @TableName
COMMIT
RETURN
END
END


IF @TableName = 'InventorySources'
BEGIN
INSERT
InventorySources
(SharedID)
VALUES
(
@SharedID
)
IF (@@ROWCOUNT = 0) AND (@TableName = 'InventorySources')
BEGIN
SET @SharedID = 'ZEROROWS'
SET @LastValueUsed = @LastValueUsed - 1
UPDATE
SharedIDControl
SET
LastValueUsed = @LastValueUsed
WHERE
TableName = @TableName
COMMIT
RETURN
END
END


IF @TableName = 'PaymentSources'
BEGIN
INSERT
PaymentSources
(SharedID)
VALUES
(
@SharedID
)
IF (@@ROWCOUNT = 0) AND (@TableName = 'PaymentSources')
BEGIN
SET @SharedID = 'ZEROROWS'
SET @LastValueUsed = @LastValueUsed - 1
UPDATE
SharedIDControl
SET
LastValueUsed = @LastValueUsed
WHERE
TableName = @TableName
COMMIT
RETURN
END
END

IF @TableName = 'PurchaseOrders'
BEGIN
INSERT
PurchaseOrders
(PurchaseOrderID)
VALUES
(
@SharedID
)
IF (@@ROWCOUNT = 0) AND (@TableName = 'PurchaseOrders')
BEGIN
SET @SharedID = 'ZEROROWS'
SET @LastValueUsed = @LastValueUsed - 1
UPDATE
SharedIDControl
SET
LastValueUsed = @LastValueUsed
WHERE
TableName = @TableName
COMMIT
RETURN
END
END

IF @TableName = 'ShippingInContacts'
BEGIN
INSERT
ShippingInContacts
(SharedID)
VALUES
(
@SharedID
)
IF (@@ROWCOUNT = 0) AND (@TableName = 'ShippingInContacts')
BEGIN
SET @SharedID = 'ZEROROWS'
SET @LastValueUsed = @LastValueUsed - 1
UPDATE
SharedIDControl
SET
LastValueUsed = @LastValueUsed
WHERE
TableName = @TableName
COMMIT
RETURN
END
END

IF @TableName = 'ShippingOutContacts'
BEGIN
INSERT
ShippingOutContacts
(SharedID)
VALUES
(
@SharedID
)
IF (@@ROWCOUNT = 0) AND (@TableName = 'ShippingOutContacts')
BEGIN
SET @SharedID = 'ZEROROWS'
SET @LastValueUsed = @LastValueUsed - 1
UPDATE
SharedIDControl
SET
LastValueUsed = @LastValueUsed
WHERE
TableName = @TableName
COMMIT
RETURN
END
END

COMMIT TRANSACTION

IF @TableName = 'AuctionSites'
BEGIN
SELECT * FROM AuctionSites WHERE SharedID = @SharedID
END

IF @TableName = 'Company'
BEGIN
SELECT * FROM Company WHERE SharedID = @SharedID
END

IF @TableName = 'CustomerOrders'
BEGIN
SELECT * FROM CustomerOrders WHERE CustomerOrderID = @SharedID
END

IF @TableName = 'Customers'
BEGIN
SELECT * FROM Customers WHERE SharedID = @SharedID
END

IF @TableName = 'InventorySources'
BEGIN
SELECT * FROM InventorySources WHERE SharedID = @SharedID
END

IF @TableName = 'PaymentSources'
BEGIN
SELECT * FROM PaymentSources WHERE SharedID = @SharedID
END

IF @TableName = 'PurchaseOrders'
BEGIN
SELECT * FROM PurchaseOrders WHERE PurchaseOrderID = @SharedID
END

IF @TableName = 'ShippingInContacts'
BEGIN
SELECT * FROM ShippingInContacts WHERE SharedID = @SharedID
END

IF @TableName = 'ShippingOutContacts'
BEGIN
SELECT * FROM ShippingOutContacts WHERE SharedID = @SharedID
END

VB6 Missing Something In The Exe
Hi all

I have written a stand alone exe, and it works on most of the computers it's been tried on.
BUT
I have one user who has come up with the following.

'mslcomctl.ocx file is missing or not registerd'

Now all the PC's I've tried it on have been XP, I'm still waiting to find out what OS he is using. Could it be something like he is running on 98 ?

Or is it something much more sinister?

Program is a .exe & .ini and a .doc. Not installable, just run from a chosen folder.

There are no comms controls as such in the project it's all file handling.

Anuyone any idea?

Are There Something Missing??
Hi guys

I am having a problem at the moment, I have a code here which something might be missing.




Code:
Option Explicit

Public rs As ADODB.Recordset
Public Cnxn As ADODB.Connection
Public strCnxn As String
Public SQLstr As String
Dim strMessage$

Private Sub Form_Load()
Set Cnxn = New ADODB.Connection
strCnxn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "db1.mdb;Persist Security Info=False"
Cnxn.Open strCnxn
Set rs = New ADODB.Recordset
SQLstr = "Table1"
rs.Open SQLstr, strCnxn, adOpenStatic, , adCmdTable

' Create an object variable for the ColumnHeader object.
Dim clmX As ColumnHeader
' Add ColumnHeaders.
Set clmX = Listview1.ColumnHeaders.Add(, , "Product", (Listview1.Width - 1066) / 2)
Set clmX = Listview1.ColumnHeaders.Add(, , "Supplier ID", (Listview1.Width - 1066) / 2)
Set clmX = Listview1.ColumnHeaders.Add(, , "Category ID", 976)

Listview1.BorderStyle = ccFixedSingle ' Set BorderStyle property.
Listview1.View = lvwReport ' Set View property to Report.
End Sub





I don't know why it won't be able to connect to the database. Are there something missing??


As I hope you can check this out and help me out with this.



Thanks

What's Missing?
I have following textboxes: txtcode,txtsupply, txtdesc,and txtQty. I enter a code in txtcode and automatically the txtdesc will display item description and also the txtsupply will display the supply available (I'm getting the value from DB).

I will type quantity to be sold in the txtQty and then click the additem button to add/display the said item in list of items to be sold using a listview. I have codes in my listview to allow me to double click any item for editing purposes (change the quantity to be sold i.e. from 5 and make it 2 or from 5 make it 10).

Now my concerns is this when I double click an item the txtsupply value is not adding back 5 to the DB which should be reflected in txtsupply.

Example:
Supply = 105
quantity to be sold = 5

so when I click additem automatic 5 will be subracted from number of supply and become 100.

I will double click the item in the listview txtsupply will still be 100 But supposedly it should display 105.

What am i missing with my codes?

VB Code:
Private Sub txtCode_Change()  txtQty.Text = ""  txtDiscount.Text = ""   If InStr(1, txtCode.Text, "*") = Len(txtCode.Text) Then    txtQty.SetFocus  End If   If rsStocks.State = adStateOpen Then rsStocks.Close On Error Resume Next  If txtCode.Text <> "" Then    rsStocks.Open "SELECT * FROM tblStocks WHERE Code = '" & txtCode.Text & "'", oConn, adOpenStatic, adLockOptimistic    If rsStocks.RecordCount <> 0 Then      txtSupply.Text = rsStocks.Fields("Quantity")      txtDesc.Text = rsStocks.Fields("ProductDescription")      'txtSellingPrice.Text = Format$(rsStocks.Fields("SellingPrice"), "P###,###,##0.00")    Else      txtSupply.Text = ""      txtDesc.Text = ""      'txtSellingPrice.Text = ""      txtSubTotal.Text = ""    End If Else    txtSupply.Text = ""    txtDesc.Text = ""    'txtSellingPrice.Text = ""    txtSubTotal.Text = ""  End IfEnd Sub  Private Sub lstStocks_DblClick()  If lstStocks.ListItems.Count = 0 Then    Exit Sub  Else    edwin = lstStocks.SelectedItem.Index    txtCode.Text = lstStocks.ListItems.Item(edwin).Text    txtDiscount.Text = Val(lstStocks.ListItems.Item(edwin).SubItems(4)) '/ Val(lstStocks.ListItems.Item(edwin).SubItems(2))    txtQty.Text = lstStocks.ListItems.Item(edwin).SubItems(2)    txtSellingPrice.Text = Val(lstStocks.ListItems.Item(edwin).SubItems(3))    'iQtyTemp = txtQty.Text        sSQL = "UPDATE tblStocks SET Quantity = Quantity + " & txtQty.Text & " WHERE [code]= '" & (lstStocks.ListItems.Item(edwin).Text) & "'"    oConn.Execute sSQL    Debug.Print sSQL    Debug.Print rsStocks.Fields("quantity")    lstStocks.ListItems.Remove (edwin)    txtCode.Locked = True        cAmountDueTemp = 0    For i = 1 To lstStocks.ListItems.Count      cAmountDueTemp = CCur(cAmountDueTemp) + CCur(lstStocks.ListItems.Item(i).SubItems(5))      txtAmountDue.Text = cAmountDueTemp    Next    lstStocks.Enabled = False  End IfEnd Sub  Private Sub cmdAddItem_Click()  Dim lst As ListItem, itemFound As ListItem    If txtCode.Locked = True Then    txtCode.Locked = False  End If    If lstStocks.Enabled = False Then    lstStocks.Enabled = True  End If    'If rsStocks.State = adStateOpen Then rsStocks.Close  'rsStocks.Open "SELECT * FROM tblStocks WHERE Code = '" & txtCode.Text & "'", oConn, adOpenStatic, adLockOptimistic       '=====================================================================  '= The above commented code is the same with the enclosed code below =  '=====================================================================  '####################################################################  sSQL = "SELECT * FROM tblStocks WHERE [code] = '" & txtCode.Text & "'"   If rsStocks.State = adStateOpen Then rsStocks.Close  rsStocks.Open sSQL, oConn, adOpenStatic, adLockOptimistic  '#####################################################################  If CheckNullValue = False Then Exit Sub  If Compare = False Then Exit Sub 'or If Not Compare Then Exit Sub    If Val(txtQty.Text) > Val(txtSupply.Text) Then    Call msgSupply    txtQty.SetFocus    SendKeys "{home}+{end}"    Exit Sub  'End If    ElseIf txtQty.Text <> 0 Then  'Set itemFound = lstStocks.FindItem(txtCode.Text)  'If itemFound Is Nothing Then    cAmountDueTemp = 0    If txtDiscount.Text = "" Then      txtDiscount.Text = 0'      cSubtotal = (val(txtQty.Text) * CCur(rsStocks.Fields("SellingPrice")))      cSubtotal = (Val(txtQty.Text) * Val(txtSellingPrice.Text))      cMargin = (Val(txtSellingPrice.Text) * Val(txtQty.Text)) - (rsStocks.Fields("PurchasePrice") * Val(txtQty.Text))    Else      'iTempSubTotal = (Val(txtQty.Text) * Val(rsStocks.Fields("SellingPrice"))) - (Val(txtQty.Text) * (Val(txtDiscount.Text)))'      cSubtotal = (val(txtQty.Text) * val(rsStocks.Fields("SellingPrice"))) - (Val(txtQty.Text) * (val(txtDiscount.Text))) 'Val(iTempSubTotal))      cSubtotal = (Val(txtQty.Text) * Val(txtSellingPrice.Text)) - (Val(txtQty.Text) * (Val(txtDiscount.Text))) 'Val(iTempSubTotal))      cMargin = (Val(txtSellingPrice.Text) * Val(txtQty.Text)) - Val(txtQty.Text) * Val(txtDiscount.Text) - (rsStocks.Fields("PurchasePrice") * Val(txtQty.Text))    End If     'rsStocks.Fields("Quantity") = (Val(rsStocks.Fields("Quantity") + Val(iQtyTemp)) - Val(txtQty.Text))    'rsStocks.Update 'Update the database        'Check if it's time to order the item    If rsStocks.Fields("Quantity") <= rsStocks.Fields("ReOrder") Then      MsgBox rsStocks.Fields("ProductDescription") & " Product" & _      Chr(13) & "has reached its Re-order Point", vbInformation, ProgName      txtQty.SetFocus    End If '    sSQL = "UPDATE TblStocks SET Quantity = Quantity + " & iQtyTemp & " - " & Val(txtQty.Text) & " WHERE [code]='" & txtCode.Text & "'"    sSQL = "UPDATE TblStocks SET Quantity = Quantity  - " & Val(txtQty.Text) & " WHERE [code]='" & txtCode.Text & "'"    oConn.Execute sSQL        Set lst = lstStocks.ListItems.Add(, , txtCode.Text) 'DISPLY IN LISTVIEW      lst.SubItems(1) = txtDesc.Text      lst.SubItems(2) = txtQty.Text'      lst.SubItems(3) = Format$(rsStocks.Fields("SellingPrice"), "###,###,##0.00")      lst.SubItems(3) = Format$(Val(txtSellingPrice.Text), "###,###,##0.00")      lst.SubItems(4) = Format$(Val(txtDiscount.Text), "###,###,##0.00")      lst.SubItems(5) = Format$(CCur(cSubtotal), "###,###,##0.00")      lst.SubItems(6) = Format$(rsStocks.Fields("PurchasePrice"), "###,###,##0.00")      lst.SubItems(7) = Format$(CCur(cMargin))        txtCode.Text = ""    txtDiscount.Text = ""    txtQty.Text = ""    txtSellingPrice.Text = ""    txtCode.SetFocus      For i = 1 To lstStocks.ListItems.Count      cAmountDueTemp = CCur(cAmountDueTemp) + CCur(lstStocks.ListItems.Item(i).SubItems(5))      txtAmountDue.Text = Format$(cAmountDueTemp, "###,###,##0.00")    Next  Else    MsgBox "Quantity must not be zero", vbInformation, ProgName    txtQty.SetFocus    SendKeys "{home}+{end}"  End If    Set lst = Nothing 'destroy the list '  Else'    MsgBox "Product code already exists in the list.", vbInformation'    txtCode.Text = ""'    txtDiscount.Text = ""'    txtQty.Text = ""'  End If End Sub

What Is Missing?
What am i missing here? Everytime i click display button the value in the my total sales is doubled.


VB Code:
Private Sub cmdDisplay_Click()  If DTPEnd.Value < DTPStart.Value Then    MsgBox "You cannot select an end date that occurs before the start date", vbInformation    DTPEnd = Date    DTPEnd.Refresh    Exit Sub  End If   'sSQL = "SELECT * FROM TblSales WHERE DateSold BETWEEN #" & Format$(DTPStart.Value, "mm-dd-yyyy") & "# AND #" & Format$(DTPEnd.Value, "mm-dd-yyyy") & "#"  sSQL = "SELECT tblSales.Code, tblStocks.ProductDescription, " & _            "tblSales.QuantitySold, tblSales.SellingPrice, tblSales.Discount, " & _            "tblCashSales.CashPayment, tblSales.DateSold " & _                "FROM tblCashSales INNER JOIN " & _                    "(tblStocks INNER JOIN tblSales ON " & _                    "tblStocks.Code = tblSales.Code) ON " & _                    "tblCashSales.TransactionID = tblSales.TransactionID " & _                      "WHERE tblsales.DateSold BETWEEN #" & Format$(DTPStart.Value, "mm-dd-yyyy") & "# AND #" & Format$(DTPEnd.Value, "mm-dd-yyyy") & "#"    TempsSQL = sSQL 'Pass the value of sSQL to a Public variable  'Debug.Print sSQL  If rsSales.State = adStateOpen Then rsSales.Close  rsSales.Open sSQL, oConn, adOpenStatic, adLockOptimistic    If rsSales.RecordCount <> 0 Then    Call FillListView(lstRecords, rsSales)    cmdPreviewRpt.Enabled = True    cmdPreviewRpt.SetFocus    lblTotalSales.Caption = Format(TotSales, "###,###,##0.00#")  Else    MsgBox "Sorry! There were No Sales for the selected Date.", vbInformation, ProgName    cmdPreviewRpt.Enabled = False  End IfEnd Sub

Api Missing
Hi in my vib 6.0 "setylayeredwindow" api is missing how can i get it. is it a dll fiel which i have to download.

Something Missing Myself
Hi, i'm created three frames "frame1", "frame2" and "frame3", and that put top together, for sampel "frame2" is top of "frame1" and "frame3" is top of "frame2".

i also created listview, and has three catagoreis "name1", "name2", "name3",

if i want to click nameone it will show "frame1", if i want to click name2 it will show "frame2" and hide rest of frames, and if I want to click name3, it will show 'frame3" and hide rest of frames.

but the problem is that every time i click name2 or name3 is not showing frame but works frame1, and i wrote code plesae take look. Any idea why!

If ListView1.SelectedItem.Text = "General" Then
Frame1.Visible = True
Frame2.Visible = False
frame3.visible = false

Else If ListView1.SelectedItem.Text = "Security" Then
Frame1.Visible = False
Frame2.Visible = True
frame3.visible = False

elseIf ListView1.SelectedItem.Text = "Security" Then
Frame1.Visible = True
Frame2.Visible = False
frame3.visible = False


End If
End If
End sub

What Am I Missing Here?
Nothing is happening when I call SetAndCall. It works fine if it was in a form, just not from my class. This is the code from my clsWinsock. I'm calling it from my form like

VB Code:
Dim x as new clsWinsock  Call x.SetAndCall("http://www.google.com/webhp?hl=en&tab=iw&q=", "", "GET")



VB Code:
Private WithEvents oSock As WinsockDim foundError As BooleanDim completed As BooleanDim strResponse As StringDim httpMethod As StringDim headers As StringDim Page As StringDim Host As String Private Sub Class_Initialize() Set oSock = New WinsockEnd Sub Private Sub Class_Terminate() Set oSock = NothingEnd Sub Private Sub oSock_Close() If foundError <> True Then  foundError = False End If completed = TrueEnd Sub Private Sub oSock_Connect()  oSock.SendData "GET " & "/" & " HTTP/1.0" & vbCrLf  oSock.SendData "Host: www.google.com" & vbCrLf  oSock.SendData vbCrLfEnd Sub Private Sub oSock_DataArrival(ByVal bytesTotal As Long)    Dim tempData As String        oSock.GetData tempData, vbString    strResponse = strResponse & tempDataEnd Sub Private Sub oSock_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) foundError = True completed = TrueEnd Sub Public Sub SetAndCall(URL As String, addHeader As String, method As String) Dim iPos As Integer Dim tempURL As String  tempURL = Replace(URL, "http://", "") iPos = InStr(tempURL, "/")  Host = Mid(tempURL, 1, iPos - 1) Page = Mid(tempURL, iPos, Len(tempURL) - iPos + 1) headers = addHeader httpMethod = method  foundError = False completed = False  'connect oSock.Connect "www.yahoo.com", 80End Sub Public Function IsDone(ByRef Error As Boolean) As Boolean Error = foundError IsDone = completedEnd Function Public Function GetHTML() As String GetHTML = strResponseEnd Function Public Function GetPicture(pic As PictureBox)  'trim out headers  strResponse = Mid(strResponse, InStr(1, strResponse, vbCrLf & vbCrLf) + 4)  Set pic.Picture = mOLELoadPicture.PicFromBits(strResponse)End Function

OCX Missing
YIKES!

I created a package to setup my app on a laptop. I included all the dlls it needed. But I am getting "component MapControl.ocx or one of its dependencies not correctly registered: a file is missing or invalid???? I checked the required dlls listed in the package setup, and they are all on the laptop c:windowssystem32.

Thanks

Missing DLL
Does anyone have the Transport.dll they could send me as i am unable to find it anywhere to download.

Missing My End If's
This is so sad for me as I just can't see where I need to put my End if's in this bit of code.

I gat the following error message:

Comiple error
Block If without End If

Can someone sort it out for me if possible or even shorten the code:

Private Sub CmdSave_Click()

If txtNewHistory.Text = "" Then
History1.filename = ""
MsgBox ("There is no Date!"), 48, "Empty Name"
txtNewHistory.SetFocus
Exit Sub
End If
History1.filename = txtNewHistory.Text & ".CDL"
History1.InitDir = App.Path
History1.Filter = "Code Library Files (*.CDL)|*.CDL"
If History1.filename <> "" Then
Open History1.filename For Output As #1
If txtActual(0).Text = "" Then
If txtActual(1).Text = "" Then
If txtActual(2).Text = "" Then
If txtActual(3).Text = "" Then
If txtActual(4).Text = "" Then
Close #1
MsgBox ("There is no Date to save!"), 48, "Empty Date"
txtActual(0).SetFocus
txtActual(1).SetFocus
txtActual(2).SetFocus
txtActual(3).SetFocus
txtActual(4).SetFocus
Exit Sub
End If
'Print #1, txtActual(index).Text 'save string to file
Close #1 'close file
txtActual(0).Text = ""
txtActual(1).Text = ""
txtActual(2).Text = ""
txtActual(3).Text = ""
txtActual(4).Text = ""
txtNewHistory.Text = ""
Filcode.Refresh
End If
lblNewHistory.Visible = False
CmdSave.Visible = False
txtNewHistory.Visible = False

End Sub

Thanks in advance

Copyright 2005-08 www.BigResource.com, All rights reserved