Tamamlanmış

VB6 migrate VB2010 Code Snippet

I need the following two functions originally written in VB6 using DAO 3.5 updated to VB2010 code.

Public Function getValue(theTag As String)

Dim mydbM As Database

Dim mydsM As Recordset

Set mydbM = OpenDatabase([login to view URL] & "\[login to view URL]")

Set mydsM = [login to view URL]("SELECT * FROM IncidentRecords WHERE IncidentObject = '" & theTag & "'", dbOpenDynaset)

If [login to view URL] = False Then

getValue = mydsM!IncidentText

Else

getValue = ""

End If

[login to view URL]

[login to view URL]

End Function

Public Sub setValue(mySETTag As String, mySETValue As String)

Dim mydsXL As Recordset

Dim mydbXL As Database

Set mydbXL = OpenDatabase([login to view URL] & "\[login to view URL]")

Set mydsXL = [login to view URL]("SELECT * FROM IncidentRecords WHERE IncidentObject = '" & mySETTag & " ' ", dbOpenDynaset)

If [login to view URL] = False Then

[login to view URL]

mydsXL!IncidentObject = mySETTag

mydsXL!IncidentText = mySETValue

[login to view URL]

Else

[login to view URL]

mydsXL!IncidentObject = mySETTag

mydsXL!IncidentText = mySETValue

mydsXL!IAPOpsPeriod = currentOps

mydsXL!EntryTime = Now

[login to view URL]

End If

[login to view URL]

[login to view URL]

End Sub

Beceriler: .NET, Microsoft Access, Visual Basic

Daha fazlasını gör: vb2010 recordset, vb2010 dao, vb2010 code, vb2010 vb6, vb2010 app, vb2010 mdb, openrecordset vb6, vb2010 function, vb6 vb2010, eof vb2010, update mydsxl, vb2010 opendatabase, vb2010 set dim, openrecordset, vb2010 select, vb2010, vb2010 using, vb6 0, in vb6.0, vb2010 string, incidentobject, set vb2010, vb6 code vb2010, update vb6 vb2010, vb2010 openrecordset

İşveren Hakkında:
( 14 değerlendirme ) Walnut Creek, United States

Proje NO: #691736

Seçilen:

kakoappa

please see PM

1 gün içinde %selectedBids___i_sum_sub_4%%project_currencyDetails_sign_sub_5% USD
(16 Değerlendirme)
5.2

Bu iş için 20 freelancer ortalamada $63 teklif veriyor

HussienSharaf

HI, I m expert in [login to view URL] and DB Connectivity. With the new VB2010 , NO SQL Injection Regards, Hussien Sharaf

1 gün içinde %bids___i_sum_sub_32%%project_currencyDetails_sign_sub_33% USD
(68 Değerlendirme)
7.2
Nirmal2006

Hi I can do it now. Let's start...

in %bids___i_period_sub_35% gün içinde30%project_currencyDetails_sign_sub_37% %project_currencyDetails_code_sub_38%
(122 Değerlendirme)
7.0
rajtuhin1

Easy task for me, I can start ASAP after discussing it in Inbox.

in %bids___i_period_sub_35% gün içinde30%project_currencyDetails_sign_sub_37% %project_currencyDetails_code_sub_38%
(159 Değerlendirme)
7.2
netcoder

Hi, I think I can do it:-)! Best regards, netcoder:-)

1 gün içinde %bids___i_sum_sub_32%%project_currencyDetails_sign_sub_33% USD
(99 Değerlendirme)
6.0
aptecpymefree

13 Years of experience in Software development Windows and Web. Expert in Sql Server and .NET. Microsoft Certified as MCP, MCTS, MCPD, MCT.

in %bids___i_period_sub_35% gün içinde30%project_currencyDetails_sign_sub_37% %project_currencyDetails_code_sub_38%
(21 Değerlendirme)
5.9
servicebenq

Hi See your pm please

in %bids___i_period_sub_35% gün içinde40%project_currencyDetails_sign_sub_37% %project_currencyDetails_code_sub_38%
(31 Değerlendirme)
5.2
tenshihan

Please see pm.

in %bids___i_period_sub_35% gün içinde40%project_currencyDetails_sign_sub_37% %project_currencyDetails_code_sub_38%
(1 Yorum)
3.9
junworried

I have already done the [login to view URL] see PMB message. Thanks!

in %bids___i_period_sub_35% gün içinde30%project_currencyDetails_sign_sub_37% %project_currencyDetails_code_sub_38%
(11 Değerlendirme)
3.7
saivisiontech

you already know the quality and speed of my work. accept me to start. thanks

in %bids___i_period_sub_35% gün içinde30%project_currencyDetails_sign_sub_37% %project_currencyDetails_code_sub_38%
(4 Değerlendirme)
3.8
erwinyudha

please check your pm

in %bids___i_period_sub_35% gün içinde30%project_currencyDetails_sign_sub_37% %project_currencyDetails_code_sub_38%
(1 Yorum)
1.7
hemantgautam

I m from India, working with windows, sql server, access, vb6, vb.net,C, C#, Crystal Reports, foxpro since 1994, I have developed many projects like inventory, accounting, payroll, hotel management, ERP solutions runni Daha Fazla

in %bids___i_period_sub_35% gün içinde200%project_currencyDetails_sign_sub_37% %project_currencyDetails_code_sub_38%
(0 Değerlendirme)
0.0
mohmrt

hi,, im experienced for this job.. ready to work for you thanks

in %bids___i_period_sub_35% gün içinde30%project_currencyDetails_sign_sub_37% %project_currencyDetails_code_sub_38%
(0 Değerlendirme)
0.0
avisUK

Already ported your methods to vb.net. Please check you PM for more details

1 gün içinde %bids___i_sum_sub_32%%project_currencyDetails_sign_sub_33% USD
(0 Değerlendirme)
0.0
dhrsolution

Hi, I am ready to do it. Please let me know if you need more information. Thanks.

in %bids___i_period_sub_35% gün içinde150%project_currencyDetails_sign_sub_37% %project_currencyDetails_code_sub_38%
(0 Değerlendirme)
0.0
VectorWares

We are a company. we are a group of resources consists of 6 developers and a graphic designer. The resources are very technical and experienced in the mentioned field. We have got the experience of successfully compl Daha Fazla

in %bids___i_period_sub_35% gün içinde30%project_currencyDetails_sign_sub_37% %project_currencyDetails_code_sub_38%
(0 Değerlendirme)
0.0
raman6sept

I am ready to start this work.. reply

in %bids___i_period_sub_35% gün içinde130%project_currencyDetails_sign_sub_37% %project_currencyDetails_code_sub_38%
(0 Değerlendirme)
0.0
shikigame

for fast conversion . please accept me.. and get this done quickly

1 gün içinde %bids___i_sum_sub_32%%project_currencyDetails_sign_sub_33% USD
(0 Değerlendirme)
0.0
kmssharp

I have been workin in VB.NET since 4 yrs. Expecting opportunity to show up talent.

in %bids___i_period_sub_35% gün içinde30%project_currencyDetails_sign_sub_37% %project_currencyDetails_code_sub_38%
(0 Değerlendirme)
0.0
vlopes777

HI there I'm a programmer with more than 10 years experience using VB6 with MS SQL/ Access and more than 2 years using VB.NET I'm ready to help you with this Best regards

1 gün içinde %bids___i_sum_sub_32%%project_currencyDetails_sign_sub_33% USD
(0 Değerlendirme)
0.0