79590383

Date: 2025-04-24 10:51:42
Score: 1.5
Natty:
Report link

Public Sub koneksi() Try str = "Server=localhost;uid=root;pwd=1705;database=penjualan" conn = New MySqlConnection(str) If conn.State = ConnectionState.Closed Then conn.Open() MsgBox("Koneksi berhasil") End If Catch ex As Exception 'MsgBox("Koneksi gagal" + ex.Message) End Try End Sub

Public Sub koneksi() Try str = "Server=localhost;uid=root;pwd=1705;database=penjualan" conn = New MySqlConnection(str) If conn.State = ConnectionState.Closed Then conn.Open() MsgBox("Koneksi berhasil") End If Catch ex As Exception 'MsgBox("Koneksi gagal" + ex.Message) End Try End Sub

Reasons:
  • Long answer (-0.5):
  • No code block (0.5):
  • Self-answer (0.5):
  • Low reputation (1):
Posted by: Muza Adza