Wednesday, May 6, 2020

Software Architecture Code for Wrapper Class Free Essays

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. We will write a custom essay sample on Software Architecture Code for Wrapper Class or any similar topic only for you Order Now 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 How to cite Software Architecture Code for Wrapper Class, Papers

No comments:

Post a Comment

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