Visual Basic :: Data Type Conversion Error. (Error 3421)

Data Type Conversion Error?
Why do I get this error.
It happens when I click the arrow on the data1. And when I click break on all errors it doesnt break. It just says datatype conversion error. And it doesnt tell me what line the error is. Here is all of my code:

VB Code:
Option Explicit Private Sub Command1_Click()Text5.Text = Val(Text5.Text) + 1Text3.SelText = Date & ", "Text8.Text = Date & ", "End Sub Private Sub Command2_Click()On Error GoTo errorhandler Me.Data1.Recordset.FindFirst "[ID] = """ + Text7 + """""" Text1 = rs("ID") Text2 = rs("Student") Text3 = rs("All Lunch Detentions") Text4 = rs("Home Room") Text5 = rs("# Of Detentions") Text6 = rs("Home Phone") Text8 = rs("Detention Date") rs.Close cn.CloseExit Suberrorhandler:MsgBox "Student not found according to search criteria.", vbInformation, "Invalid Search Criteria"End SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & "ld(converted).mdb"End Sub Private Sub mnuexit_Click()Unload MefrmDataBaseViewer.ShowEnd Sub

Data Type Conversion Error
Hi,
I have a date/Time field (Required = No) in my database. Whenever I try to update this field with an empty value, an error message say "Data type conversion error" appears.

Table.Addnew
Table!Date = "" <---------------------
Table.Update
Table.Close

Can anyone help me to resolve this problem?

Thank you very much.

Data Type Conversion Error In ComboBox
Hey there,

I have a combobox in my form that is connected with a field in a table. Then everytime there is a movement in the DBGrid1 (also connected to the table), I tell the program that it has to change the combobox content. I do that because sometimes the field connected to combobox have nothing and it's a manner to force a default value to this field, when user is navegating through the table. What I mean is, if the field is empty, the first time someone pass by that record the value of the field will be setted to 1 (default). Well, this is my idea, but I can't do that because whenever there is a movement in the DBGrid1, VB returns a "Data Type Conversion error".

Let's see the facts:

The combobox info (properties window):
Name = cmbCliTipo
Datafield = clitipo
Datasource = cliente
Itemdata = 0 1 2 (one on another)
List = Loja Vendedor Crédito (one on another)

The field clitipo is an integer.

My code is:

Code:
Private Sub DBGrid1_rowcolchange(LastRow As Variant, ByVal LastCol As Integer)
If Cliente.Recordset.CliTipo = 0 Then
cmbCliTipo.ListIndex = 0
ElseIf Cliente.Recordset.CliTipo = 1 Then
cmbCliTipo.ListIndex = 1
ElseIf Cliente.Recordset.CliTipo = 2 Then
cmbCliTipo.ListIndex = 2
Else
cmbCliTipo.ListIndex = 0
End If
End Sub
I would be very grateful if someone can help me to know what's wrong. I know it's a stupid question, but, in fact, believe it or not, I have the VB 6 Little Black Book (Steven Holzner) and I have browsing through the net and I have not found anywhere a combobox setting cakewalk...

Thanks in advance!

***RESOLVED*** Data Type Conversion Error
I need to be able to divide two currency values in an MSFlexGrid to come up with a percent value.

The challenge is that I need to have error handling to be sure that if the user puts in a $.0 currency value I do not get an error.

Ex.

Private Sub MSFlexGrid1_LeaveCell()

With MSFlexGrid1
.TextMatrix(1, 1) = Format(.TextMatrix(2, 1) / .TextMatrix(3, 1), "0.0%")
End With

End Sub

Need Response ASAP! Data Type Conversion Error
Our requirement is: User should be able to enter the no value in the datetime field in our case

it is time in the format HH:MM hours:minutes and still the database should store that value as

blank and no other value not even as 0:00.

In MS-Access 97 SR-2 we have table 'T' with datetime datatype field 'F'. We have a query 'Q'

defined on this table to insert record into this table 'T'. We are executing this query 'Q' from

Visual Basic 6.0 and our application requirement is such that user may sometimes not enter any

value in the date field and still the insert query should work.

Here is my query in MS-Access:

Select query:
--------------
SELECT reptime
FROM table1
WHERE id=8;

Insert query:
-------------
PARAMETERS preptime DateTime;
INSERT INTO table1 ( reptime )
SELECT preptime;

Here is my Table definition:

Name:table1

Fields Datatype
idAutonumber
reptimedate/time (short time format)

Here is the code from Visual Basic which gives error as "Data type conversion error":

Private Sub Command1_Click()
Dim db As Database
Dim qd As QueryDef
Dim rs As Recordset
Set db = OpenDatabase("d:personalira.mdb")
Set rs = db.OpenRecordset("table1")
Set qd = db.QueryDefs("insert")

With qd
.Parameters("Preptime") = vbNull
.Execute
End With

Set qd = db.QueryDefs("select")
Set rs = db.OpenRecordset("select")
'rs!RepTime = MaskEdBox1.Text
Text1.Text = rs!RepTime
'rs.Update

End Sub

Problem: When we are exceuting this query using QueryDef from VB application we are getting "data

type conversion error" message. When we did little investigation we found that, when VB is trying

to send some empty string to this date field in MS-Access Database doesn't accept any empty

string.

Here are the options I have tried?

1. When I tried to pass a Null value to the date field in the database when there is no value

entered in this date form variable. MS-Access table is storing that date value as 0:00 which is

no good because user treats it as valid time value.
2. When I tried to execute the query inside the MS-access by passing no value to this date value

it was accepting and the date value is stored as blank but same is not true when I am trying to

sent the blank date value from VB.

Is there any solution for this?

Data Type Conversion Error When Moving A Date From A Label To A Database
I am getting a data conversion error when i am moving a date from a label to a new db when the field is a date format do you guys have any ideas? thanks

VB Error 3421
I keep getting a data conversion error while using vb6 w/access backend. I'm trying to insert a blank or null value into a date field. Can anyone help?

Vb Runtime Error 3421
I am getting the error message "value of the wrong type for the current operation" when a procedure runs which stores a value in a sql table.
The value (an item code) is the same amount of digits (6) as other values in the database. The code fails on the line that puts the value into a temporary parameter
Has anyone any ideas what could be causing this

Get A 3421 Error When Compact A Database
When I use the code "DBEngine.CompactDatabase App.Path & "videorent.mdb", App.Path & " mp.mdb", DbLangGeneral, ";PWD=" & DBPass" to compact a database of ACCESS2000 Format, got a error 3421 "Data Type Conversion Error" . why? Thks a ton.

Suddenly Getting 3421 Error After Installing 2000 SP2
We have code that has been working on all Windows platforms, but comes back with the 3421 (Application uses a value of the wrong type for the current operation) when running on a machine with Win2000 SP2 installed. Does anyone know what causes this and how we might be able to correct it?

SQL Statement Error Or Data Type Error? (RESOLVED)
VB Code:
SELECT MC_NO, PART_CODE,MONTH " & _ "FROM MC_DATA " & _ "WHERE MC_NO = '& txtM1.Text &' AND MONTH = '" & txtMonthHide.Text & "'

above is my sql statement...but i get an error "Data Type Mismatch in criteria expression. i think the error refers to MC_NO = '& txtM1.Text &', because there is no value when i debugged it.FYI the data type for MC_NO in MS Access database is Number..can somene correct my coding mistake??
Thanks in advance.

Data Conversion Error
DataControl (DAO) brings data from several fields into textboxes on the form. One of the fields is Number (Integer) data type. It's not Required, it's not Indexed. If it contains some value and user wants to delete that value by clearing a bound Text Box, then when the user wants to save that change by moving to the next or previous record, error saying "Data Conversion Error" occurs. Data can be deleted directly in the table with no problem.
What I'm missing? What should I do in order to allow the user to update existing value to Null?
This is an existing application, so altering it by replacing DataControl with Recordset is not acceptable (too much work related to replacing many other controls getting data from DataControl)
Thank you
Vlad

SQL Server - The Conversion Of A Char Data Type To A Datetime Data Type Resulted.....
Hi All

I have developed an application with vb6.0 and sql server 2000 database and working well on my desktop.

While client saving records in db, sometimes they are getting following error.

"The conversion of a char data type to a datetime data type resulted in an out-of-range datetime value."

I'm using ADOs and code like this...

rstCustomer("joindate") = mskJoinDate
rstCustomer("jointime") = mskJoinTime
rstCustomer.Update

' Here mskJoinDate is maskedit control, contains date in dd/mm/yyyy format only.

' Here mskJoinTime is maskedit control, contains Time in hh:mm format only.

' Both are datetime fields in database.

' These two fields won't contain any other data because I have done perfect validation before assign values to recordset.

Anybody have idea about my problem? Please help me to solve this.

Thanks in advance
Pradeep

DBGrid And Error Data Conversion
Hi,

I use dbgrid with num value. When I wont to delete value one cell and change de active cell, I receive an eroor like "Error data conversion"

But...When I put the break point in my code (in this sub)
---------------------
Private Sub DBGrid1_KeyUp(KeyCode As Integer, Shift As Integer)

If KeyCode = 46 Or KeyCode = 8 Then ' the 46 = delete and 8 = backspace
DBGrid1.Text = Null
Else

End If
End Sub
--------------------

And after that I change the active cell and I don't receive the error.

But I don't want to run my programme all the time with a break point.

Some body can help me?

Thanks

Régis

'The Conversion Of A Char Data Type To A Datetime Data Type Resulted In An Out-of-ran
Hi,

I am writing a SQl query in visual basic by startdate and end date. It works fine in SQL server and Query Analyser but when query comes into visual basic it error and the message is 'The conversion of a char data type to a datetime data type resulted in an out-of-range datetime value.'

The code:

declare @cMonth int, @year varchar(10), @first_sDate datetime, @first_eDate datetime, @Second_sDate datetime, @Second_eDate datetime
set @cMonth = datepart(month, getdate())
set @year = datepart(year, getdate())
set @first_sDate = @year + '-01-01' + ' 00:00:01'
set @first_eDate = @year + '-06-30' + ' 11:59:59'
set @Second_sDate = @year + '-07-01' + ' 00:00:01'
set @Second_eDate = @year + '-12-31' + ' 11:59:59'

if @cMonth <= 6
begin
select *
from pub
where created_date BETWEEN @first_sDate and @first_eDate
end
else
begin
select *
from pub
where created_date BETWEEN @second_sDate and @second_eDate
end

In here two sets of data need to represent first six month and second six month.

how do change varchar to datetime? I tried convert but didnot work. Any body can help with the code? The error caused only in visual basic.

Many Thanks

Bravo

3421-Application Uses A Value Of The Wrong Type For The Current Operation.
I get an error when I select more than 15 Customers. But, when I select less than 15 Customers I do not get this error.

ERROR: -> "3421-Application uses a value of the wrong type for the current operation."

The error comes up after it hits the "End Property"

VB Code:
Private mstrCustInNum As String Private mblnAllCust As Boolean Public Property Get CustInNum() As String If mblnAllCust Then CustInNum = "" Else CustInNum = mstrCustInNum End If If mblnOverrideSelection Then CustInNum = mstrCustInNum End IfEnd Property

Also, I ran the Stored Procedure with the same data and it works fine.

Error: 64k Max Data For Type
In my declarations for a module I have a few different Type calls that declare my variables:

Code:
Public Type TLVERTEX
X As Single
Y As Single
z As Single
rhw As Single
Color As Long
Specular As Long
tu As Single
tv As Single
End Type

Public Type Composition
TrStrip(0 To 3) As TLVERTEX
ColorTR As Long
ColorTL As Long
ColorBR As Long
ColorBL As Long
Color As Long
End Type

Public Type DXTiles
Public ListDx(500,500) as Composition
End Type

Public DXTile(100) as DxTiles
For some awkward reason when this code runs it returns an error that I can't surpass the 64k Data Max. Well, I know there is ALWAYS a way around with programming, so can someone help me? I may not be utilizing all the tools I have to make a different solution. Basically these calls make a tile map that is 500,500, and then the last call tells the game that it has 100 layers. Erm... Yea..

Thanks for help...
~SpiralEdge

Data Type Error
I have an access field ECONumber which type is set to Autonumber. I get an error upon trying to access it this way:
.Index = "ECONumber"
It says data type conversion error
How can I fix that?
Thanks

Data Type Error!
Hi, In my project I have a search option, this search can browse by code or name, but when I do a search by code "Data type mistmatch in criteria expression" shows up, in my database I have the field name in AutoNumber and is the primary key. What could be the problem?

The code is:

Code:
Set rs = db.OpenRecordset("SELECT * FROM Pacientes WHERE ID='" & Text1.Text & "'", dbOpenDynaset)

frmAltas.Text1.Text = rs!Id
frmAltas.Text2.Text = rs!Apellido
frmAltas.Text23.Text = IIf((rs!Otros_Datos), 1, 0)
frmAltas.Check1.Value = IIf((rs!Problema_Salud1_si), 1, 0)
frmAltas.Text34.Text = rs!Otra_especifique
Beep

Data Type Error
I'm getting a 'Data type mismatch error' in the following line, any idea's as to why? I've used the same syntax before without problem. The Id and cntr variable's are long variable's.

Code:
rssystem1.Open "SELECT TBLSYSTEM.CLIENTNO, TBLSYSTEM.SYSTEMNO, TBLSYSTEM.ITEMNAME, TBLSYSTEM.CATAGORY, TBLSYSTEM.QUANTITY, TBLSYSTEM.PRICEEACH, TBLSYSTEM.DESCRIPTION, TBLSYSTEM.NOTES" & _

Data Type Error
can some one plz help me out the following code is giving an error as data type mismatch in crieteria expressionat line

Set rs = conn.Execute(str)

i am stuck plz help

VB Code:
ConvertTxtToExcel(lSourceFile As String) Set myXLObj = CreateObject("Excel.Application") myXLObj.Visible = True ' to make the Excel app visible On Error GoTo 0 With myXLObj .Workbooks.OpenText FileName:=lSourceFile, DataType:=XLDELIMITED, _ TextQualifier:=XLDOUBLEQUOTE, semicolon:=True, _ FieldInfo:=Array(1, 2) End With Dim i As Integer Dim j As Integer Dim a As String Dim str As String Dim k As String i = 5 j = 1 While i < 180 While j <= 7 If j = 1 Then k = "notice" ElseIf j = 2 Then k = "are1no" ElseIf j = 3 Then k = "Date" ElseIf j = 4 Then k = "pname" ElseIf j = 5 Then k = "IName" ElseIf j = 6 Then k = "tariff" ElseIf j = 7 Then k = "duty" End If Set conn = New ADODB.Connection conn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:excelxldata.mdb;Persist Security Info=False") a = Cells(i, j).Value 'str = " update [data] set [" & k & "] = '" & a & "' where [sno] = '" & i & "'" str = "UPDATE [data] SET " & k & "= '" & a & "' WHERE sno = '" & i & "' " Set rs = conn.Execute(str) j = j + 1 Wend i = i + 1 Wend End Sub

Error Data Type Mismatch
I am running a SQL query in VB to search for anything in the comments field defined as Memo, not text in Access database.

When I run search, I got the error data type mismatch....

"WHERE (([DAILY WORK].[Comments])like ' ""*" & [txtCommentSearch.Text] & "*"" ')" & _

(The above code all in one line)

I tried txtCommentSearch.Memo but still not working. The txtCommentSearch is the field in VB that I want users to enter any keywords to search.

Can anyone help me, please? Is the wildcard right in VB statement?
Thanks.
Bill

Error Converting Data Type
I made a StoreProc and I get the following error message.

"Error converting data type varchar to real."

Here's the StoreProc:

CREATE PROCEDURE AjoutRoutePreliminaire
@SecVoulue varchar(255),
@SousSecVoulue varchar(255),
@pExempt tinyint,
@pBarcode tinyint

AS
INSERT INTO RouteSSS (section, soussection, image, tagid, pid, isole, type ,attrib, manif, modele, noequip, ligne, iiid, barcode, itid, exempt, note, taille ,fuitedef)
Select I.Section, I.SousSection, I.Route as Image, P.TagId, P.PID, P.isole, P.Cod3TypeEquip as lType, L.Nom as ligne,
P.ID_IMAGE, P.Barcode, P.id_point, P.exempt, P.note, P.taille,
P.Cod4AttribEquip as Attrib, P.Cod4ManifEquip as Manif, P.ModeleEquip as Modele, P.NoEquip, P.fuitedef
FROM (ImageDef I RIGHT JOIN PointDef P ON I.ID_IMAGE = P.ID_IMAGE)
LEFT JOIN LignePro L ON P.ID_LIGNE = L.ID_LIGNE
WHERE (((I.Section) Like @SecVoulue) AND ((I.SousSection) Like @SousSecVoulue) AND
((P.Exempt) < @pExempt) AND ((P.BCFlag) >= @pBarcode))
ORDER BY I.Section, I.SousSection, I.Route, P.TagID;

And Here's how I call it:

1> exec ajoutroutepreliminaire @SecVoulue = '_%', @SousSecVoulue = '_%', @pExempt = 1,@pBarcode = 1;

I cannot see why it tries to cast a real.

The problem is with the % sign. If I change it for text it then works. Maybe i'm not using the appropriate wildcard character?

Thanks

Data Type Error In Access
im encountering an error "Data type mismatch in criteria expression"

heres my code:

VB Code:
sqlselect = "select * from temp where 1 = 'T'"

FYI: my database is an access file..

Data Type Mismatch Error
Hi! I have this fields and their data type in MS ACCESS

Fields Data Type Fieldsize
Code Number Double
ProdDesc Text
SPrice Number Long
PPrice Number Long
Quantity Number Long
Unit Text
EntryDate Date/time

I have this code to save values in my DB

VB Code:
Private Sub cmdSave_Click() If rsStocks.State = adStateOpen Then rsStocks.Close rsStocks.Open sSQL, oConn, adOpenStatic, adLockOptimistic sSQL = "INSERT INTO tblStocks(Code, ProductDescription, SellingPrice, " & _ "PurchasePrice, Quantity, Unit,EntryDate, ReOrder)" & _ "VALUES('" & txtCode.Text & "', '" & txtDesc.Text & "', '" & _ txtSellingPrice.Text & "' ,'" & txtPurchasePrice.Text & "','" & _ txtQty.Text & "', '" & txtUnit.Text & "', '" & _ txtEntryDate.Text & "', '" & txtROP.Text & "')" oConn.Execute sSQLEnd Sub

When i clicked the save button it i received the error "Data mismatch in criteria expression" What causes this error?

Data Type Mismatch Error
Data type mismatch error in criteria expression, What should I look for here? I can't see whats wrong.

VB Code:
Dim SQL As String SQL = "SELECT * FROM Orders WHERE AccountNumber=11434"Adodc3.CommandType = adCmdTextAdodc3.RecordSource = SQLAdodc3.RefreshSet DataGrid3.DataSource = Adodc3

Data Type Mismatch Error
I changed a field type n my access database from text to a number datatype and now i'm getting a datatype mismatch error when i try to update.I want to keep the field as a number.Is there anyway to rectify this problem?I have tried converting the value to a long using CLng function.

Data Type Mismatch Error....
I have a database that has an autoincrement field. I am trying to lookup records using ADO on that field but I always get a data type mismatch error.

I have tried the following in the sql search without success:

Val(txtFind.txt)
cLng(txtFind.txt)

Data Type Mismatch Error
I got a "data type mismatch in criteria expression" error when i execute this statement

Code:
sql = "insert into jobs(shift,[date],user,prq,prtotal,prtwt)" & _
" select prshift,format(prdate,'dd/MM/yyyy'),pruser,prtotal, "& _
"prQueuename, prTWT from preptbl where pruser = '" & Me.cboname.Text & "' and " & _
"prdate=#" & Format(DTP.Value, "MM/dd/yyyy")& "# and prQueuename= '" & Me.txtQ.Text & "'"

i can't figure what is wrong with this statement!!

Data Type Text Error
I am using the data type Text in my SQL7 database.

When I try to save data to these fields I get the following error.

Run-time error '-2147217900(80040e14)':

Code page transalations are not supported for the text data type. From: 1252 To: 850.

My code is simple.

Rs.open "Select ......
rs.addnew
rs.fields("MonDesc1") = text1.text
rs.update

Anyone have any ideas why I'm getting this error? I have used the data type text in the past and have not received this error.

Thanks

P.S. I can use data type ntext but I would rather not since ntext takes up twice as much spaces as text.

Data Type Mismatch Error
Hi

I am getting a data type mismatch error with the following code...

dim Num as integer

Connectdb.Provider = "Microsoft.Jet.OLEDB.3.51"
Connectdb.Open "c: est est.mdb"
recdb.Open "Select name,value " _
& "from table1 WHERE value='" & Num & "'", Connectdb, adOpenStatic

I have also set "value" as number in DB(design view). Should I change this to text?

Any help would be appriciated

Thanks

Kelly

Data Type Mismmatchh Error '3464'
Some one can help me to find this error, please.

Run Time Error '3463'

database: Access 97

Visual Basic 5.0

Code DAO 3.6

Line Error: .Find first strOrder

Here is the code

Private Sub Form_Load()
Dim dbs As Database, rst As Recordset
Dim strOrder As String

Set dbs = OpenDatabase("C:ProjectDatos.mdb")
Set rst = dbs.OpenRecordset("Inventory", dbOpenDynaset)

Data1.Refresh

Do While True
' Get user input and build search string.

strOrder = _
Trim(InputBox("Enter Order for search."))
If strOrder = "" Then Exit Do
strOrder = "[OrderID] = '" & strOrder & "'"

With rst
' Populate recordset.
.MoveLast
' Find first record satisfying search string. Exit
' loop if no such record exists.
.FindFirst strOrder
If .NoMatch Then
MsgBox "No records found with " & _
strOrder & "."
' Delete Orders records where Order is user input.
dbs.Execute "DELETE * FROM " _
& "Inventory WHERE OrderID = 'strOrder';"

Exit Do

End If
End With

Exit Do
Loop

rst.Close
dbs.Close

End Sub

Error 3464 Data Type Mismatch
We are using VB 6.0 and Access 2000

In an SQL statement in a VB program we are getting Error 3464 - Data Type Mismatch.

The pertinent code is as follows:

Dim stDrawNum As String
Dim iIssueNum As Integer
Dim RS as dao.Recordset
Dim DB as Database

(datDuplicate is a data control on the form)

stDrawNum = datDuplicate.Recordset("Drawing #")
iIssueNum = datDuplicate.Recordset("Issue #")

Set RS = DB.OpenRecordset("Select * from [Lucent]" _
& " Where [Drawing Number] = '" & stDrawNum & "'" _
& "and [Issue Number] = '" & iIssueNum & "'")

It is at this point that we get Error 3464. The Issue # in the database is an integer. If we use only 'stDrawNum' in the SQL statement, no error occurs, so it is the 'iIssueNum' that is giving us the problem. I had this problem before and it had nothing to do with the data types, it was something else that was causing the error, however I forget what it was. Can anyone help me here please.

Data Type Mismatch Error 13 In SQL SET Statement
Hello All;

I have a problem retrieving a recordset. I have an access .mdb database created in Access 2003 as access 2000 format.
There are numerous tables within the .mdb and all of them return an Error 13 Data Type Mismatch when I use a
SET statement as below. I have even created a simple test table with 1 text field and 1 record and still same reults.
I have used this same type of statement in many other projects without problem (although the databases were created with Access 2000)
In the code below, the Variables for Database_Path and Database_Name are correct or it would not open.

*** This is declared in a startup module ***
Public TAcc_WS As Workspace
Public TAcc_Db As Database
Public Param_RecSet As Recordset 'Recordset of Parameters Table

*** This is code in another module called shortly after the above ***
'Sets up Workspace & Database.
Set TAcc_WS = DBEngine.Workspaces(0)
Set TAcc_Db = TAcc_WS.OpenDatabase(DataBase_Path & DataBase_Name)

*** This is the SET statement I use ***
'Set Recordset
Set Param_RecSet = TAcc_Db.OpenRecordset("SELECT * FROM Params2", dbOpenDynaset)
or
Set Param_RecSet = TAcc_Db.OpenRecordset("SELECT Params2.* FROM Params2", dbOpenDynaset)

I use DAO and have DAO 3.6 on the system (XP Pro SP-2) and referenced in the project.

I have tried running the exact same SQL statement in Access 2003 and works 100%.

I have stared at this and tweaked it for hours - no luck. Am I missing something?
Perhaps a different pair of eyes can help.

Thanks,
Fred

Edited by - trinzini on 7/23/2008 12:32:54 PM

Error 3464 - Data Type MisMatch
Hi,

I am writing a SQL query in VB6 and for some reason I am getting a data type mismatch error. I am using an Access 2000 database.
____________________________________
If rsOperator("Department") = 5 Then
        LockedUser.Visible = True
        Locked.Visible = True
        fraSuper.Visible = False
        frameLogin.Visible = False
        Picture1.Visible = False
        SQL1 = "Select Operator.* FROM Operator where Operator.Locked = 'No'"
        'mShowMsg mMessage14
        Set rsOperator1 = dbBPL.OpenRecordset(SQL1, dbOpenDynaset)
        'mShowMsg mMessage14
        LockedUser.Caption = rsOperator1("OperatorID")
    End If
________________________________________________________________________

This query is directly after a query which functions properly:
SQL = "Select * FROM Operator where OperatorID = '" + txtUID.Text + "'"
   Set rsOperator = dbBPL.OpenRecordset(SQL, dbOpenDynaset)

I am new to VB and would really appreciate it if any one could help me.

Thanks
Ashish

Sql Error Of Converting Data Type Char To Datetime
I need help.

I use this code to send data to a sql table:
sSQLInsert = "INSERT INTO AccountLog(StudentID,LogDate,Amount,Memo) " & _
"VALUES(" & Str(iStudentID) & ", '" & Str(Now) & _
"'," & Str(mvarprice) & ",'" & mvarMemo & "')"

and get an error masege:"the conversion of char data type to a datetime data type result in an out-of-range datetime value".
the field logdate is a datetime type.
what should I do?

Valid Name, No Data Record Of Requested Type: Error
Hello,

I downloaded this vbSendMail project and I was wondering why I get this error when I try to send an email?

"Your attempt to send mail failed for the following reason(s):
Valid name, no data record of requested type"

I have attached the .zip project so you can see it for yourself.
Does anyone know what this is connected to?

Any help will be rated!

Thank you and have a great day!
Stilekid007

Error Converting Data Type Datetime To Smalldatetime
Hi Everyone,
I'm having a little problem adding a record that contains 3 smalldatatime fields. I'm getting the following error:
Error converting data type datetime to smalldatetime.

Here is the code:
   Set mCommand = New ADODB.Command
   mCommand.CommandType = adCmdStoredProc
   mCommand.CommandText = "nf_AddOrder"
   Set mParam = mCommand.CreateParameter("@OrderId", adInteger, adParamInput)
   mParam.Value = nOrderid
   mCommand.Parameters.Append mParam
   Set mParam = mCommand.CreateParameter("@ProgramId", adVarChar, adParamInput, 10)
   mParam.Value = nProgramId
   mCommand.Parameters.Append mParam
   Set mParam = mCommand.CreateParameter("@OrderDate", adDBTimeStamp, adParamInput)
   mParam.Value = nOrderDate
   mCommand.Parameters.Append mParam
   Set mParam = mCommand.CreateParameter("@RequiredDate", adDBTimeStamp, adParamInput)
   mParam.Value = nRequiredDate
   mCommand.Parameters.Append mParam
   Set mParam = mCommand.CreateParameter("@DeleiveredDate", adDBTimeStamp, adParamInput)
   mParam.Value = nDeleiveredDate
   mCommand.Parameters.Append mParam

   mCommand.ActiveConnection = ado
   mCommand.Execute

  I get the error as soon the Execute function is called. The fields and the parameters of the stored procedures are declared as SmallDateTime. Has anyone seen this one yet. Thanks for any info.
Michael Lee

Error Converting Data Type Varchar To Numeric
hi,please help,when insert new data to the sql database have this error message appear.
Error converting data type varchar to numeric.
The UCL and LCL fields is decimal datatype at sql table.

this is the current code:
Code:
sSQL = "INSERT INTO PartList " & _
        "(PartNo,Dimension,Nominal,Unit,USL,LSL,UCL,LCL,Range,UpperRL,LowerRL,SampleSize,Decimal,Equip,BinLower,BinNormal,BinUpper,Decimalp)" & _
        "VALUES (" & _
        "'" & Combopartno.Text & "', " & _
        "'" & txtdimension.Text & "', " & _
        "'" & txtnominal.Text & "', " & _
        "'" & txtunit.Text & "', " & _
        "'" & txtusl.Text & "', " & _
        "'" & txtlsl.Text & "', " & _
        "" & CDec(txtucl.Text) & ", " & _
        "" & CDec(txtlcl.Text) & ", " & _
        "'" & txtrange.Text & "', " & _
        "'" & txturl.Text & "', " & _
        "'" & txtlrl.Text & "', " & _
        "'" & txtsamplesize.Text & "', " & _
        "'" & txtdecimal.Text & "', " & _
        "'" & txtequipment.Text & "', " & _
        "'" & txtbinlower.Text & "', " & _
        "'" & txtbinnormal.Text & "', " & _
        "'" & txtbinupper.Text & "', " & _
        "'" & txtdecimalp.Text & "'" & _
        ")"

thanks for help.

Edited by - monchichi on 6/17/2008 12:30:16 AM

'error Converting Data Type Varchar To Smallint' In SP
OK - I'm not a happy bunny and this is driving me absolutely mental

I've a Stored Procedure with an input variable called '@TotalRam' which is a smallint. I have another four which are varchar - but they are OK. In my VB app - I create the parameters, store them in a collection and punt them off to a DB Connection class - sound OK so far.

Well, everything works apart from this 'numeric' variable. If I take it out - everythings work OK. If I leave it in - it announces the following error when I execute the SP...

"error converting data type varchar to smallint"

So, here's how I'm generating the parameter (which is sent to a Database Connection class that returns a recordset)...
Code:Set parInputValue = New ADODB.Parameter
' Total RAM
With parInputValue
    .Name = "@TotalRAM"
    .Type = adSmallInt
    .Direction = adParamInput
    .Value = 256
End With
...which in my eyes is OK. Its a numeric value to start with, specified as a SmallInt in the Parameter - it is also specified as a smallint in the SP and in the underlying table?!?!? But the damn error keeps cropping its head up.

So in short - has anyone encountered this before? Am I missing some setting or extra chunk of code?

Just for your info...

The DB Connection class works like a dream - it is fine.
The parameters in the collection are successfully added to the Command object before its executed.
If I access the Stored Procedure say through an Access Project and provide it with the appropriate values - it works!
I've tried converting the value of the parameter, i.e. Cint, Clng, Csng, Cbyte, etc. before setting it in the parameter but no donut
I don't want to send over the parameter as a varchar and convert it - I want to nail this down

I checked a 101 tutorials on SPs and checked out example source and I cannot see any discrepencies but there code and mine

Cheers people and big thanks for any pointers - Drydo

improvise, overcome, go home
Microsoft MVP Visual Basic 2004, 2005, 2006, 2007 & 2008

Check out Drydo's Blog for infrequent, but bizarre code samples.

[ Resolved! ] Error Converting Data Type Varchar To Int?
I hope this is an easy one. I've been pulling my hair out for a couple of hours but it seems everything is correct. But all I get is an error. I've got a stored procedure (MSDE) which accepts 4 parameters (2 integers, 2 varchars). I'm passing them. Here is the stored procedure:
Code:
CREATE PROCEDURE UpdateRecords(

    @in_intSQLType INTEGER,
    @in_intCustID INTEGER,
    @in_strActive VARCHAR(3),
    @in_strIcon VARCHAR(35)

)

AS

SET NOCOUNT ON

BEGIN

    IF(@in_intSQLType = 1)

         UPDATE tblCust
         SET custActive = @in_strActive
         WHERE custID = @in_intCustID

    ELSE IF(@in_intSQLType = 3)

         UPDATE tblCust
         SET custImage = @in_strIcon,
             custActive = @in_strActive
         WHERE custID = @in_intCustID

END

Here is what I have for the VB code:
Code: ' check the connection
    If conSQLHandler.State <> 1 Then

        ' open the connection
        conSQLHandler.ConnectionString = strDBConn
        conSQLHandler.CursorLocation = adUseServer
        conSQLHandler.Open

    End If

    conSQLHandler.CursorLocation = adUseClient

    Dim adoParam1 As ADODB.Parameter
    Dim adoParam2 As ADODB.Parameter
    Dim adoParam3 As ADODB.Parameter
    Dim adoParam4 As ADODB.Parameter
    Dim cmdSP As ADODB.Command: Set cmdSP = New ADODB.Command
    Dim rsSP As Recordset: Set rsSP = New ADODB.Recordset

    With cmdSP

        .CommandText = "UpdateRecords"
        .CommandType = adCmdStoredProc

        Set .ActiveConnection = conSQLHandler

    End With

' MsgBox "intMobID: " & VarType(intCustID) & vbCrLf & _
' "Active: " & VarType(strActive) & vbCrLf & _
' "Icon: " & VarType(strIcon) & vbCrLf & _
' "SQL Type: " & VarType(intSQLType)

    Set adoParam1 = New Parameter
    adoParam1.Direction = adParamInput
    adoParam1.Name = "@in_intCustID"
    adoParam1.Type = adInteger
    adoParam1.Value = intCustID
    cmdSP.Parameters.Append adoParam1

    Set adoParam2 = New Parameter
    adoParam2.Direction = adParamInput
    adoParam2.Name = "@in_strActive"
    adoParam2.Type = adVarChar
    adoParam2.Size = 3
    adoParam2.Value = Trim(strActive)
    cmdSP.Parameters.Append adoParam2

    Set adoParam3 = New Parameter
    adoParam3.Direction = adParamInput
    adoParam3.Name = "@in_strIcon"
    adoParam3.Type = adVarChar
    adoParam3.Size = 35
    adoParam3.Value = Trim(strIcon)
    cmdSP.Parameters.Append adoParam3

    Set adoParam4 = New Parameter
    adoParam4.Direction = adParamInput
    adoParam4.Name = "@in_intSQLType"
    adoParam4.Type = adInteger
    adoParam4.Value = intSQLType
    cmdSP.Parameters.Append adoParam4

    Set rsSP = cmdSP.Execute

    Set cmdSP = Nothing
    Set rsSP = Nothing

Note the msgbox above where I set the adoParams ... those VarType are returning the correct variable datatypes. So, this all runs OK until it get to .Execute line. At that point, it throws an error stating:
Quote:-2147217913 / Error converting data type varchar to int.

The database fields are correct (intCustID = Integer, custActive = VarChar(3), custIcon = VarChar(35)).

I've tried including / excluding stuff like CInt(variable) but it always throws the same error.

Can anyone see what I am doing wrong? Any and all help is greatly appreciated. I've tried just about everything that I can think of. Judging from the code side of things (and the debugging.print and msgboxes that I've put up (and removed from this post)), I think everything on that side is correct. But something is happening with the SQL side of things.

Again, any and all idea's/suggestions/help is greatly appreciated. And thank you in advance for any that you can give.

DTFan
Ever-hopeful programmer-in-training

Edited by - DTFan on 7/26/2006 5:41:57 AM