Featured Post

Predators And Ecosystem Management :: essays research papers fc

Predators and Ecosystem Management Normal Resources Management      Predators everlastingly affect various types of biologic...

Friday, January 10, 2020

Software Architecture Code for Wrapper Class

Wrapper to connect two applications with different architectures Public con As ADODB. Connection Public rs As ADODB. Recordset Dim str As String Private Sub Command1_Click() Command1. Enabled = False Command2. Enabled = False Command3. Enabled = False Command4. Enabled = True Set con = New ADODB. Connection Set rs = New ADODB. Recordset con. Open â€Å"Provider=SQLOLEDB. 1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=AIR† str = â€Å"insert into Staff values(† & Text1. Text & â€Å",'† & Text2.Text & â€Å"‘, † & Text3. Text & â€Å",† & Text4. Text & â€Å",'† & Text5. Text & â€Å"‘)† On Error GoTo Delete_Error con. Execute (str) MsgBox † Record added Successfully† Text1. Text = â€Å"† Text2. Text = â€Å"† Text3. Text = â€Å"† Text4. Text = â€Å"† Text5. Text = â€Å"† Text1. SetFocus Exit Sub Delete_Error: MsgBox â€Å"This record cannot be Added . Error code = † _ & Err. Number & vbCrLf & Err. Description, _ vbCritical, â€Å"Cannot Update Database† End Sub Private Sub Command2_Click() Command1. Enabled = False Command4. Enabled = False Command6.Enabled = False If (Adodc1. Recordset. BOF) Then Adodc1. Recordset. MoveLast Else Adodc1. Recordset. MovePrevious End If End Sub Private Sub Command3_Click() Command1. Enabled = False Command4. Enabled = False Command6. Enabled = False If (Adodc1. Recordset. EOF) Then Adodc1. Recordset. MoveFirst Else Adodc1. Recordset. MoveNext End If End Sub Private Sub Command4_Click() Command4. Enabled = False Command1. Enabled = True Command2. Enabled = False Command3. Enabled = False Command7. Enabled = False Text1. Text = â€Å"†Text2. Text = â€Å"† Text3. Text = â€Å"† Text4. Text = â€Å"† Text5. Text = â€Å"† Text1. SetFocus End Sub Private Sub Command5_Click() Unload Me Form2. Show End Sub Private Sub Command6_Click() Text1. Text =  "† Text2. Text = â€Å"† Text3. Text = â€Å"† Text4. Text = â€Å"† Text5. Text = â€Å"† Text1. SetFocus End Sub SQL COMMANDS: create database AIR create table Staff(Staff_id int PRIMARY KEY NOT NULL,Staff_name varchar(20), Staff_age int, Salary int, Staff_address varchar(30)) ::Database AIR created successfully ::Table Staff creates successfully

No comments:

Post a Comment

Note: Only a member of this blog may post a comment.